VBA. Form_Open sub API- Windows, , . "", , , Access.
' Dim As String Dim AuthorizedUser As Boolean user = UCase (CurrentUser())
AuthorizedUser = True
Select Case user
Case "USER_A":
Case "USER_B":
Case "USER_C":
Case Else: AuthorizedUser = False
End Select
If AuthorizedUser = True Then
MsgBox "Welcome authorized user " & user
Else
MsgBox user & "is not Authorized. For access to this database contact User_A"
DoCmd.Quit
End If