Password Tries

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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
 
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




John Spencer (MVP) said:
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
Click to expand...
Click to expand...
 
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

John Spencer (MVP) said:
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
Click to expand...
Click to expand...
Click to expand...
 
Back
Top