On my booking page, I have a member ID field, Class type field as a dropdown (swimming, circuit etc) and a date field.


The issue I am having is that when I log in as a user, how do I automatically populate the memberID field on the booking page updated to that user's member ID (logged in user). So that the booking comes under their details. Can you guys share any coding to connect my login to automatically populate the member ID field. Or if there is an alternative way without using member ID to make 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", , , "Username = '" & CurrentUserID & "'"


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.