simple password screen

[dagoose]

Hi All,

I have created a simple password scree that validates against 2 fields, User_Name and password. Trouble is it keeps crashing. It appears to begin the login ok and then it all freezes up any ideas appreciated.

Code Below:

Private Sub cmdCheck_Click()

'set up a new recordset
Dim dbPWD As DAO.Database, rsPWD As DAO.Recordset
Dim intResponse As Integer

intResponse = 0

Set dbPWD = CurrentDb
Set rsPWD = dbPWD.OpenRecordset("Select * From tblpwd;", dbOpenDynaset)

'Search and validate
Do While Not rsPWD.EOF

If txtUserName.Value = rsPWD.Fields("User_name") And _
txtPassword.Value = rsPWD.Fields("Password") Then

Form_Startup.Visible = True
Form_pwdAuth.Visible = False

Else
MsgBox ("Invalid Username or password, please try again")
rsPWD.MoveNext
intResponse = intResponse + 1

End If

If intResponse = 3 Then
MsgBox ("You have reached the maximum number of login attempts, please contact an administrator for further assistance.")
'Unload Me
End If

Loop

End Sub

[Br1an_g]

Hi there,

not sure how far into your routine its getting, if you step into the code it should give you a better idea at what part to look.

Brian

[alex_read]

Private Sub cmdCheck_Click()
    'NOTE: declaring variables on the same line makes
    'each one declared a variant apart from the first one!
    Dim dbPWD As DAO.Database
    Dim rsPWD As DAO.Recordset
    Dim intResponse As Integer
    Dim strSQL As String
    
    intResponse = 0
    strSQL = "Select * From tblpwd WHERE User_name = '" & _
    txtUserName.Value & "' and Password = '" & txtPassword.Value & "'"
    
    Set dbPWD = CurrentDb
    Set rsPWD = dbPWD.OpenRecordset(strSQL, dbOpenDynaset)
    
    If Not rsPWD.BOF And rsPWD.EOF Then
        Form_Startup.Visible = True
        Form_pwdAuth.Visible = False
    Else
        MsgBox ("Invalid Username or password, please try again")
        intResponse = intResponse + 1
    End If
    
    If intResponse = 3 Then
        MsgBox ("You have reached the maximum number of login attempts," & _
        "please contact an administrator for further assistance.")
    End If
End Sub

[alex_read]

Ah, just one more thing, I think if you're using access and try & reference/call on a field/table column named "password" you might run into problems.

From memory I think this one might be a reserved keyword which access recognises internally so might not realise it being a field name, you might want to rename this to pwd, or passwordtext for example if you run into problems here.