Here is what I had for my Login button
Code:
Private Sub cmdLogin_Click()
Dim strFormName As String
strFormName = Me.Name
' Check the password
If Nz(Me.txtUserPassword, "InvalidPassword") <> Me.cboEmployeeID.Column(2) Then
MsgBox "Invalid Password "
ilogins = ilogins + 1
Me.txtUserPassword = ""
Me.txtUserPassword.SetFocus
If ilogins > 2 Then
DoCmd.Quit
End If
Else
TempVars("EmployeeID").Value = Me.cboEmployeeID.Column(0)
TempVars("Employee").Value = Me.cboEmployeeID.Column(1)
TempVars("UserLevel").Value = DLookup("DataOrder", "tblLookup", "LookupID = " & Me.cboEmployeeID.Column(3))
DoCmd.OpenForm "Switchboard"
DoCmd.Close acForm, strFormName
End If
End Sub
Here is what I have for the Employee combo rowsource
Code:
SELECT tblUser.EmployeeID, [Forename] & " " & [Surname] AS FullName, tblUser.UserPassword, tblUser.UserLevel, tblUser.UserActive
FROM tblEmployee INNER JOIN tblUser ON tblEmployee.EmployeeID=tblUser.EmployeeID
WHERE (((tblUser.UserActive)=True));
HTH