vba login code wont work

[Die Klein]

ive been trying to get this code to work for a few days now, but i dont know what im doing wrong :S
im basicaly trying to create a login that will allow members to login to their details.
the code i have will only run the look up, and give a msgbox if there is no username or password inputed.
i have an invisble textbox that sends the password to that when the username is inputed in th txtbox for the username (txtUser)
the lookup works, however, when i type in the correct password into the txtbox for the password (txtPass) and click the button, it comes up with the error msg saying "Invalid Username/Password. Please try again."
ive been changing things around and adding different code but nothing has worked so far :/

Private Sub cmdEnter_Click()
 
    If IsNull(Me.txtUser) Or Me.txtUser = "" Then
        MsgBox "You must enter a username.", vbOKOnly, "Required Data"
            Me.txtUser.SetFocus
        Exit Sub
    End If
 
 
    If IsNull(Me.txtPass) Or Me.txtPass = "" Then
        MsgBox "You must provide a password.", vbOKOnly, "Required Data"
            Me.txtPass.SetFocus
        Exit Sub
    End If
 
 
    Me.txtlookup.Value = DLookup("[Password]", "qryCustomerAccess", "[FirstName] ='" & Me.txtUser & "'")
 
 
'Compare value of Password to PassLookup and
 
    If Me.txtPass.Value = Me.txtlookup.Value Then
 
 
             DoCmd.OpenForm "frmRes"
 
    Else
            MsgBox "Invalid Username/Password. Please try again.", vbOKOnly, "Invalid Entry!"
 
        Exit Sub
    End If
 
    End Sub
 

[beacon]

Hi Die,

Have you added breakpoints to your code to confirm that the values of the txtPass and txtlookup fields are equal when you run the code?

I'm not sure if this will work, but you could combine part of your code together so that you are comparing the value in Me.txtPass directly to the corresponding field in the query instead of assigning the value to a textbox and then comparing.

Here's the modified code:

Private Sub cmdEnter_Click() 
 
    If IsNull(Me.txtUser) Or Me.txtUser = "" Then 
        MsgBox "You must enter a username.", vbOKOnly, "Required Data" 
            Me.txtUser.SetFocus 
        Exit Sub 
    End If 
 
 
    If IsNull(Me.txtPass) Or Me.txtPass = "" Then 
        MsgBox "You must provide a password.", vbOKOnly, "Required Data" 
            Me.txtPass.SetFocus 
        Exit Sub 
    End If 
 
 
    Me.txtlookup.Value = DLookup("[Password]", "qryCustomerAccess", "[FirstName] ='" & Me.txtUser & "'") 
 
 
'Compare value of Password to PassLookup and 
 
    If Me.txtPass.Value = DLookup("[Password]", "qryCustomerAccess", "[FirstName] ='" & Me.txtUser & "'") Then 
 
 
             DoCmd.OpenForm "frmRes" 
 
    Else 
            MsgBox "Invalid Username/Password. Please try again.", vbOKOnly, "Invalid Entry!" 
 
        Exit Sub 
    End If 
 
End Sub 
 

I would also check that the underlying field for your [Password] field is a string, or that it at least matches the format of the textbox control on your form.

[Die Klein]

hey beacon,

unfortunatly, the modified code didnt work :\
it still comes up with the same invalid entry message box
even though the passwords match

my format in the field for the Password is Number
how would i make the txtbox the same??

[beacon]

Looking back on your code, it looks like the Me.txtPass holds a string instead of a number...at least that's how you're handling the null or blank values.

Have you tried assigning the value that you're putting in the Me.txtlookup to a variable and converting the value to a string before comparing it to Me.txtPass?

Or, vice versa, you could assign the value in Me.txtPass to a variable and convert the value to a number.

[Die Klein]

you were right!!
it had to do with the format of the password!
it finally works after almost a week of trying to figure it out :)
funny how something so small and simple can have a big impact on something :P lol

[beacon]

I'm glad it worked for you.

I should also point out that if the password is a string and you want the password to be case sensitive you can use the StrComp function with the VBBinaryComplete comparison (third argument in the function) to make the determination. If the function returns 0, then the two strings are equal and the case is identical.