Runtime Error 2001 caused by DLOOKUP line in "Login" form

[Summit_IT]

Thanks for the help
Well I figured out what I did wrong. Slap me. LOL.



I went back to the shared code and started to replace pieces one at a time to make sure the code kept working right. Then I was able to recreate the error. After some soul searching and changes I got it to work. The final Code for the btnlogin was;

Option Compare DatabasePrivate intLogonAttempts As Integer


Private Sub Form_Open(Cancel As Integer)
'On open set focus to combo box
Me.cboUsername.SetFocus
End Sub


Private Sub cboUsername_AfterUpdate()
'After selecting user name set focus to password field
Me.txtPassword.SetFocus
End Sub


Private Sub cmdLogin_Click()


'Check to see if data is entered into the UserName combo box


    If IsNull(Me.cboUsername) Or Me.cboUsername = "" Then
            MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
            Me.cboUsername.SetFocus
        Exit Sub
    End If


'Check to see if data is entered into the password box


    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
            MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
            Me.txtPassword.SetFocus
        Exit Sub
    End If


'Check value of password in tblUsers to see if this matches value chosen in combo box


    If Me.txtPassword.Value = DLookup("strEmpPassword", "tblUsers", "[lngEmpID]=" & Me.cboUsername.Value) Then


        lngMyEmpID = Me.cboUsername.Value


'Close logon form and open splash screen
        
        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "frmSplash_Screen"


        Else
        MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"
        Me.txtPassword.SetFocus
    End If
    
'If User Enters incorrect password 3 times database will shutdown
    
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts = 3 Then
        MsgBox "You do not have access to this database.  Please contact your system administrator.", vbCritical, "Restricted Access!"
        Application.Quit
    End If
    
End Sub

[isladogs]

Glad to see you've got it working
Please don't ignore my comments about encrypting passwords. Its not that difficult to do
If you ignore it, you WILL have problems when passwords get hacked