You're going to need something like this on Option3 of the Swtichboard...
Code:
Dim lngMyEmpID As Long
If CurrentProject.AllForms("frmLogon").IsLoaded = False Then
DoCmd.OpenForm "frmLogon"
Else
lngMyEmpID = Forms![frmLogon].cboEmployee.Value
End If
...you will have to add some logic that sees frmLogon. Oh, and I changed that to be invisible and not erase the password...
Code:
Else
'rtw Me.txtPassword = Null <<<REMOVE
Dim strAccessLevel As String
strAccessLevel = DLookup("[Admins]", "tblAdmins", "[EmpID]=" & lngMyEmpID)
If strAccessLevel = "Admin" Then
MsgBox "Welcome " & DLookup("EmpName", "tblAdmins", "EmpID=" & lngMyEmpID)
Me.Visible = False <<<ADD
Forms!Switchboard.Filter = "[ItemNumber] = 3 And [SwitchboardID] = 1"
ElseIf strAccessLevel = "User" Then
MsgBox "Invalid Account", vbOKOnly, "Access Denied!"