Login form using 2 text boxes allows Login after adding just Employee Name

[oldlearner]

Hi all - I am unable to identify why my login screen allows Login and access to Main form after just typing in a correct employee name. It simply bypasses the need for the password to be added. Can anyone identify anything obvious that I am missing from the code below please.

Option Compare Database
Option Explicit
Private Sub btnLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblEmployee", dbOpenSnapshot, dbReadOnly)

rs.FindFirst "EmployeeName='" & Me.txtUserName & "'"

If rs.NoMatch = True Then
Me.lblwronguser.Visible = True
Me.txtUserName.SetFocus
Exit Sub
End If
Me.lblwronguser.Visible = False

If rs!Password <> Me.txtPassword Then


Me.lblWrongPass.Visible = True
Me.txtPassword.SetFocus
Exit Sub
End If
Me.lblWrongPass.Visible = False
DoCmd.OpenForm "FrmMain"
DoCmd.Close acForm, Me.Name

End Sub

[pbaldy]

I would set a breakpoint and step through the code. You can check what values are being returned to the test.

http://www.baldyweb.com/Debugging.htm

[accesstos]

I didn't test it but, I think that if the txtPassword is Null, rs!Password <> Me.txtPassword is False.

Try it as folows:

If Not IsNull(Me.txtPassword) Then
    If rs!Password = Me.txtPassword Then
        Me.lblWrongPass.Visible = False
        DoCmd.OpenForm "FrmMain"
        DoCmd.Close acForm, Me.Name
        Exit Sub
    End If
End If
Me.lblWrongPass.Visible = True
Me.txtPassword.SetFocus