Help with login

[jtm013]

Hello, I have a login screen which is working well, with the exception that my attempt to limit the max number of attempts at login is not working.
I am still new to VBA so I'm sure I am just overlooking something.

Thanks,

Private Sub VerificationButton_Click()




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


If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cboEmployee.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 tblEmployees to see if this
'matches value chosen in combo box


If Me.txtPassword.Value = DLookup("Pwd", "Tbl_Log_In_Data", _
"[EmpNumber]=" & Me.cboEmployee.Value) Then


EmpNumber = Me.cboEmployee.Value


'Close logon form and open splash screen


DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "Suggestion Review Form"


Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, _


"Invalid Entry!"
Me.txtPassword.SetFocus
End If


'If User Enters incorrect password 2 times database will shutdown


intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 2 Then
MsgBox "You do not have access to this database.Please contact admin.", _
vbCritical, "Restricted Access!"
Application.Quit

End If


End Sub

[RuralGuy]

If you resolved this issue, do you care to share your solution with others that read these forums?

[jtm013]

I would...but I don't know how I fixed it. All I know is after messing with the code for the better part the morning it started working. The final code looks identical to what is shown above, so I'm not sure what changed, but it works now.

[RuralGuy]

Okay! Thanks for trying.