dlookup not working

[andy143vivi]

hi, whats wrong with this code?

 If Me.txtPassword.Value = DLookup("[User_Password]", "User", "[User_Name]='" & Me.txtUsername.Value & "'") Then
    DoCmd.OpenForm "frmDetails"
Else
    MsgBox "Wrong Log In details!", vbCritical, "Warning"
    Me.txtUsername.SetFocus
End If
 
 

it always highlights the dlookup line whenever i cluck the the login command

[missinglinq]

I set up a clone of your User table and form with all controls/fields named the same and the code runs perfectly! My first thought would be to double check the spelling of the names of all objects, including the table name. User instead of Users would be all it'd take to break the code, as well as the name of any control/field involved. My only other thought would be corruption of your form, with seems unlikely, given the utter simplicity of it!

Welcome to TheScripts!

Linq ;0)>

[andy143vivi]

I set up a clone of your User table and form with all controls/fields named the same and the code runs perfectly! My first thought would be to double check the spelling of the names of all objects, including the table name. User instead of Users would be all it'd take to break the code, as well as the name of any control/field involved. My only other thought would be corruption of your form, with seems unlikely, given the utter simplicity of it!

Welcome to TheScripts!

Linq ;0)>

thanks! found the problem my record source is empty, so i use the record to table User, am i doing the right thig here?

[missinglinq]

Which record source is empty? User table or the table behind frmDetails?

And I'm sorry, but I don't understand "i use the record to table User."

Linq ;0)>

[Minion]

I'm not sure I understand either what you mean by using the table to User, but if you're having problems with the recordsource being empty (ie. getting an error that the Dlookup is null) then you might want to change your code to the following:

If Me.txtPassword.Value = Nz(DLookup("[User_Password]", "User", "[User_Name]='" & Me.txtUsername.Value & "'") , 0) Then
    DoCmd.OpenForm "frmDetails"
Else
    MsgBox "Wrong Log In details!", vbCritical, "Warning"
    Me.txtUsername.SetFocus
End If
 

This should return a "0" instead of the Null value and save you an error. On a whole I have found that you should just about always trap for Null when using DLookup to avoid errors.

Hope this helps.

- Minion -