Password Tries

[Guest]

I could like to add additional code to track number of invalid password
tries attempted by user. After 3 times log-out automatically.


Private Sub PassWordLookUp_LostFocus()

'test for blank password
If IsNull([PassWordLookUp]) Then
MsgBox ("Must Enter Valid Password")
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null
Exit Sub
End If

'test for valid password
Dim strValidPassWord As Integer
strValidPassWord = DCount("*", "tblOperators", "[PassWord] ='" &
[PassWordLookUp] & "'")
If strValidPassWord = 0 Then
MsgBox "Invalid Password Entered"
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null

Exit Sub
End If
End Sub

 

[John Spencer (MVP)]

Add a static variable and increment it. When it reaches 3 failures, exit the database

Static intFailure as Integer

If intFailure = 3 then
DoCmd.Quit
Else
intFailure = intFailure + 1

'Your existing code here.

end if

 

[Guest]

Thank You, John

I am not sure of the placement of code.
Where is the variabel declaration placed. And what part of the code is tries
counter placed

Add a static variable and increment it. When it reaches 3 failures, exit the database

Static intFailure as Integer

If intFailure = 3 then
DoCmd.Quit
Else
intFailure = intFailure + 1

'Your existing code here.

end if

I could like to add additional code to track number of invalid password
tries attempted by user. After 3 times log-out automatically.

Private Sub PassWordLookUp_LostFocus()

'test for blank password
If IsNull([PassWordLookUp]) Then
MsgBox ("Must Enter Valid Password")
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null
Exit Sub
End If

'test for valid password
Dim strValidPassWord As Integer
strValidPassWord = DCount("*", "tblOperators", "[PassWord] ='" &
[PassWordLookUp] & "'")
If strValidPassWord = 0 Then
MsgBox "Invalid Password Entered"
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null

Exit Sub
End If
End Sub

 

[John Spencer (MVP)]

Probably something like the following.


Private Sub PassWordLookUp_LostFocus()

Static intFailure as Integer

If intFailure = 3 then
DoCmd.Quit
Else
intFailure = intFailure + 1
'test for blank password
If IsNull([PassWordLookUp]) Then
MsgBox ("Must Enter Valid Password")
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null
Exit Sub
End If

'test for valid password
Dim strValidPassWord As Integer
strValidPassWord = DCount("*", "tblOperators", "[PassWord] ='" &
[PassWordLookUp] & "'")
If strValidPassWord = 0 Then
MsgBox "Invalid Password Entered"
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null

Exit Sub
End If
End If
End Sub

Thank You, John

I am not sure of the placement of code.
Where is the variabel declaration placed. And what part of the code is tries
counter placed

Add a static variable and increment it. When it reaches 3 failures, exit the database

Static intFailure as Integer

If intFailure = 3 then
DoCmd.Quit
Else
intFailure = intFailure + 1

'Your existing code here.

end if

I could like to add additional code to track number of invalid password
tries attempted by user. After 3 times log-out automatically.

Private Sub PassWordLookUp_LostFocus()

'test for blank password
If IsNull([PassWordLookUp]) Then
MsgBox ("Must Enter Valid Password")
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null
Exit Sub
End If

'test for valid password
Dim strValidPassWord As Integer
strValidPassWord = DCount("*", "tblOperators", "[PassWord] ='" &
[PassWordLookUp] & "'")
If strValidPassWord = 0 Then
MsgBox "Invalid Password Entered"
LookupUserID.SetFocus
PassWordLookUp.SetFocus
PassWordLookUp = Null

Exit Sub
End If
End Sub