[RESOLVED] password problem

[matrik02]

I have a problem.Actually I want to set a counter that allow the user to enter the valid password for 3 times.. if the password fail after 3 times attempt, the form 1 show.How to do that?

Set adoConn = New ADODB.Connection
    Set adoRS = New ADODB.Recordset

    Dim cs As String
        cs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AdminPassword.mdb" & ";Persist Security Info=False;"

    adoConn.ConnectionString = cs
    adoConn.Open

If Text2.Text = "" Then

        MsgBox "Sila masukkan Kata laluan Anda", vbCritical, "Kata laluan"
      '  MsgBox "Sila masukkan Kata laluan Anda"
        Text2.Text = ""
        Text2.SetFocus
    Else
    
     usrnm = Text2.Text
     adoRS.Open "SELECT * FROM pass WHERE password='" & usrnm & "';", adoConn, adOpenStatic, adLockOptimistic
        
   
        
     If adoRS.Fields("Password").Value = Text2.Text Then
        pass = True
        'if password valid, success
        MsgBox "Anda Berjaya memasuki ruang admin" & vbCrLf & "Logged in. Username: " & usrnm & " !", vbInformation, "Selamat datang"
        Form2.Show
        Unload Me
    Else
    'if password invalid,message box ask to insert invalid password
         MsgBox "Kata laluang tidah sah. Ruang ini hanya untuk admin", vbCritical, "WARNING"
         'Exit Sub
         Unload Me
         Form1.Show
    

        Exit Sub
    End If
 End If
End Sub

[Hack]

Something like

Dim intCounter As Integer
Set adoConn = New ADODB.Connection
    Set adoRS = New ADODB.Recordset

    Dim cs As String
        cs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AdminPassword.mdb" & ";Persist Security Info=False;"

    adoConn.ConnectionString = cs
    adoConn.Open

If Text2.Text = "" Then

        MsgBox "Sila masukkan Kata laluan Anda", vbCritical, "Kata laluan"
      '  MsgBox "Sila masukkan Kata laluan Anda"
        Text2.Text = ""
        Text2.SetFocus
    Else
    
     usrnm = Text2.Text
     adoRS.Open "SELECT password FROM pass WHERE password='" & usrnm & "';", adoConn, adOpenStatic
     If adoRS.Fields("Password").Value = Text2.Text Then
        pass = True
        'if password valid, success
        MsgBox "Anda Berjaya memasuki ruang admin" & vbCrLf & "Logged in. Username: " & usrnm & " !", vbInformation, "Selamat datang"
        Form2.Show
     Else
        intCounter = intCounter + 1
           If intCounter = 3 Then
              Form1.Show
           Else
              Msgbox "Invalid Password"
           End If
     End If 

[matrik02]

The counter value did not change. The value does not increase. It still start with 0 value.

If adoRS.Fields("Password").Value = Text2.Text Then
        pass = True
        'if password valid, success
        MsgBox "Anda Berjaya memasuki ruang admin" & vbCrLf & "Logged in. Username: " & usrnm & " !", vbInformation, "Selamat datang"
        frmmanagement.Show
        Unload Me
        
      Else
         intCounter = intCounter + 1
         
         If intCounter = 3 Then
         frmMenu.Show
         Unload Me
         Else
        'if password invalid,message box ask to insert invalid password
         MsgBox "Invalid password", vbCritical, "WARNING"
         Text2.Text = ""
         Text2.SetFocus
         End If
    End If

[Hack]

If the first part of your code works (which I did not test) that would tell me the password was valid.

[matrik02]

Yes. But if the password invalid, it go to the second part. at the second part, the user are allow enter the password for 3 times.After 3 attempt,If the password invalid the frmMenu will appear

intCounter = intCounter + 1
         
         If intCounter = 3 Then
         frmMenu.Show
         Unload Me
         Else
        'if password invalid,message box ask to insert invalid password
         MsgBox "Invalid password", vbCritical, "WARNING"
         Text2.Text = ""
         Text2.SetFocus
         End If

[Hack]

If you are doing this all in a button click, then you are resetting the counter each time you click it. Take Dim intCounter As Integer and move it the forms declaration section and declare it as Private.