how to add one to a DIM value after each failed password attempt?

[RLehrbass]

i have a login screen and want it to fail at 4th password attempt. how do i say to add 1 to the intLoginAttempts?

I currentlry have it as:

Dim intLoginAttempts as Integer
intLoginAttempts = 0

Else


MsgBox "Password Invalid. Please Try Again", vbOKOnly, _
"Invalid Entry!"
Me.txtPassword.SetFocus

'If User Enters incorrect password 3 times database will shutdown
intLoginAttempts = intLoginAttempts(, 1)
If intLoginAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.", _
vbCritical, "Restricted Access!"
Application.Quit
End If

n



End If

[June7]

Options:

1. set textbox on form with incremented value

2. declare the variable in module header, not within the procedure, so it doesn't get reset to 0 every time the procedure runs and remove the line intLoginAttempts = 0

The code you posted is incomplete - what event is it in?

Syntax for incrementing the variable is:

intLoginAttempts = intLoginAttempts + 1

[RLehrbass]

Moderator,
I am building my logon form and have pulled the following code from the internet: http://www.databasedev.co.uk/login.html
it works correctly except for the last section of code counting the attempts and closing after 3 tries. I had modified it because it does not Dim the variable for intLogonAttempts and the placement of the counting sequence seems out of place. I have returned it to the original code as found in the article. but it still does not count...
Also "I have added Encryption to the password for protection".

Private Sub cmdLogin_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 Encrypt (Me.txtPassword.Value) = DLookup("strEmpPassword", "tblEmployees", _
"[lngEmpID]=" & Me.cboEmployee.Value) Then

lngMyEmpID = Me.cboEmployee.Value

'Close logon form and open splash screen

DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "Switchboard"

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 admin.", _
vbCritical, "Restricted Access!"
Application.Quit
End If

End Sub

[June7]

The example code does not declare the variable intLogonAttempts anywhere. It must be declared in the form module header. Aside from this, the code looks fine

Did you declare the lngMyEmpID variable as instructed in the article?

Did you download the example db?

[RLehrbass]

Moderator
I had the lngMyEmpID declared incorrectly.
Next, I will add some code so a user must set their password from this login screen if the password has not previously been established.
Thank You