Access VBA: Runtime error 2471

Question

I've copied some code to create a login form for my Access, but I keep getting this error every time I try to run the login form. It pulls the UserID from a table called Users.

Here is my code: VBACode

Below is a sceenshot of the error.

Answer 1

Are you sure the DLookup is correct:

1. If Me.txtPassword.Value = DLookup("Password", "Users", _
2. "[Users]=" & Me.cboUser.Value) Then

If "Users" is a Column in the Users table, then you might be okay with that syntax. However, if the name of that column is "User" then you'd need to change that to reflect the correct name.

Also, if that column is a Text field the DLookup should probably look like this:

Nz(DLookup("Password", "Users", "User='" & Me.cboUser & "'"),"")

That would return either (a) the Password, if it's found by that User or (b) a Zero Length String, if the password is not found. Either way, you'd compare it to the password entered by the user.

I do agree with Tom that words such as "User" should not be used when programming.

Answer 2

You might want to check out my blog on Login Security with VBA

Answer 3

User is a Reserved Word. Don't use it for field name or table name.