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.