Making a fitness class booking after logging in as a user

[2k7mmurtaza]

I have a booking page set up which shows the username field as well as Class type and Date

The issue I am having is that when I log in as a user, how do I automatically get the username field updated to that user which has logged in. So that the booking comes under their details. Can you guys share any coding to connect my login to automatically populate the username field. Or if there is an alternative way of making a booking whilst logged in, that would be great too.

This is my module

Option Compare Database
 
Public CurrentUserID As String
 
Public Function setUser(user123)
    CurrentUserID = user123
End Function
 
Public Function deleteUser()
    CurrentUserID = ""
End Function

My login Code

Option Compare Database
Option Explicit
Private Sub btnLogin_Click()
 
MemberID = Nz(DLookup("[MemberID]", "tblMember", "[Username] ='" & Me.txtUsername.Value & "' And password ='" & Me.txtPassword.Value & "'"), 0)
If MemberID = 0 Then
    MsgBox "Incorrect Username or Password"
  Else
    MsgBox "You have successfully logged in"
    Call setUser(Me.txtUsername.Value)
    DoCmd.OpenForm "frmHomepage"
    End If
End Sub

My homepage

Option Compare Database
Public Sub btnBookings_Click()
 
    DoCmd.OpenForm "frmBookings"
 
End Sub
 
Private Sub btnLogout_Click()
 
Response = MsgBox("Are you sure you want to logout?", vbYesNo + vbQuestion, "Warning")
   If Response = vbYes Then
 
        Call deleteUser
        DoCmd.Close
        DoCmd.OpenForm "frmStart"
    Exit Sub
   End If
 
End Sub
 
Public Sub btnMembershipdetails_Click()
 
    MsgBox (CurrentUserID)
    'Copy Below to whereever you want member specific details
    DoCmd.OpenForm "frmMemberDetails", , , "Username = '" & CurrentUserID & "'"
 
End Sub

When I login as a user, I can load up their specific details through the module. I'm assuming it will require me doing something similar to get each user to make a booking when they login.

[twinnyfo]

2k7mmurtaza,

Welcome to Bytes!

First, when posting code, please use the Code Tags button "[CODE/]" to have it properly formatted on this forum.

Second, I think a potential solution may be found in this Article:
How To Create User Permissions and Customized Menus in MS Access. If you have additional questions concerning that set-up, please let me know, I might be able to shep some light on it.

There are less-elaborate ways to do this, but the foundation is the same. Find out who the system user is and update your information based upon that user's information.

Hope that hepps!

[twinnyfo]

Did the linked article provide any additional insight for you?