Code Correction :|

[hitesh_asrani_j]

If Me.PASS.Value = Nz(DLookup("Password", "tblEmployees", "[Employee]=" & Chr(34) & Me.EMP.Value & Chr(34)), vbNullString) Then
gstrUserName = Me.EMP.Value
gstrPassword = Me.PASS.Value

'Close logon form and open splash screen

DoCmd.Close acForm, "UserNew", acSaveNo
DoCmd.OpenForm "Data"

Else
Countabc = Countabc + 1
If Countabc > 3 Then
MsgBox "You do not have access to this database. Please contact your system administrator.", vbCritical, "Restricted Access!"
Application.Quit
Else

MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.PASS.SetFocus
End If
End If
Me.EMP.SetFocus





I actually wanna close the appilcation if the passwrod is incorrect for 3 times....
Please advise if the above code is incorrect....

[RuralGuy]

Where is this code located? In what event?

[hitesh_asrani_j]

In user and password form
under the login button....

[RuralGuy]

Where have you defined the Countabc variable?

[hitesh_asrani_j]

I dint get you with Countabc.....

[RuralGuy]

Countabc = Countabc + 1
If Countabc > 3 Then
...where did you Dim this variable?

[hitesh_asrani_j]

In the starting of the same Function..,


here is the code...


Private Sub Command4_Click()
Dim Count As String
Countabc = 0
'Check to see if data is entered into the UserName combo box
Me.EMP.SetFocus
If IsNull(Me.EMP) Or Me.EMP = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.EMP.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If IsNull(Me.PASS) Or Me.PASS = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.PASS.SetFocus
Exit Sub
End If
'Check value of password in tblEmployees to see if this matches value chosen in combo box
If Me.PASS.Value = Nz(DLookup("Password", "tblEmployees", "[Employee]=" & Chr(34) & Me.EMP.Value & Chr(34)), vbNullString) Then
gstrUserName = Me.EMP.Value
gstrPassword = Me.PASS.Value

'Close logon form and open splash screen

DoCmd.Close acForm, "UserNew", acSaveNo
DoCmd.OpenForm "Data"
Else
Countabc = Countabc + 1
If Countabc > 3 Then
MsgBox "You do not have access to this database. Please contact your system administrator.", vbCritical, "Restricted Access!"
Application.Quit
Else

MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.PASS.SetFocus
End If
End If

'If User Enters incorrect password 3 times database will shutdown


End Sub

[hitesh_asrani_j]

I corrected the Dim Count As String to Dim Countabc As String...
But still it doesnot work

[RuralGuy]

You need to define this variable *outside* of any procedure:
Option Compare Database
Option Explicit
Dim Countabc As Integer
Private Sub Command4_Click()
...
Notice I defined it as an Integer rather than a String. The way you have it defined (inside the procedure) it startes at zero *every* time the button is pressed.

[hitesh_asrani_j]

Still, the application keeps asking for the password

It should close after the third attempt

[RuralGuy]

Maybe you should post your zipped up db so we can look at it. Either that or post all of the code on the code module for the form from top to bottom.

[apr pillai]

Option Compare Database
Option Explicit
Dim Countabc As Integer

Private Sub Command4_Click()
Dim Countabc as String
Countabc = 0
.
.
.

Remove the last two statements from the code segment shown above, if they are still there, and retry.

[hitesh_asrani_j]

HI,

Which statements :S

[hitesh_asrani_j]

ITs working

[RuralGuy]

Thanks for posting back with your success.