hucheunghugo
New member
- Local time
- Tomorrow, 05:53
- Joined
- Apr 11, 2022
- Messages
- 23
Code:
Y = DLookup("RankID", "staff", "StaffID =" & X)
If Y = 3 Or Y = 4 Then
DoCmd.OpenForm "Jrmenu"
ElseIf Y = 5 Then
DoCmd.OpenForm "Srmenu"
ElseIf Y = 6 Then
DoCmd.OpenForm "Bossmenu"
Else
Msg.Box "Permission Needed", vbCritical, "ermission NeededPassword Required"
Me.PW.SetFocus
End If