VBA in Access

[Oneclo1]

Hello,

Im building a login form for an Access Data base, i keep getting the error "compile Error: Method or data member not found" when i try to test the form. when i debug it highlights the the folowing text in the code: .Value/

The code i have it VBA is:

Private Sub LogOnBtn_Click()
Dim ID As Long, PW As String
ID = Nz(DLookup("UserID", "USerIDT", "UserName=""" & UserName & """"), 0)
If ID = 0 Then
MsgBox "User not found"
Quit




End If


PW = Nz(DLookup("Password", "UserIDT UserID=" & ID), "")
If PW <> Password Then
Quit


End If


TempVars("username") = UserName.Value <--------This is what is highlighted with the error.


End Sub



Thank you in advance

[CJ_London]

what is UserName? a control on a form? a field in a table? a global variable?

So far as I can see it has not been defined - use of .value implies a form control

And you should have Option Explicit at the top of every module, just below Option Compare Database so compile errors are picked up when you compile your code and not when you run it.

you also have a problem with this line

PW = Nz(DLookup("Password", "UserIDT UserID=" & ID), "")

should be

PW = Nz(DLookup("Password", "UserIDT", "UserID=" & ID), "")

[Oneclo1]

UserName is a field in a table sane one as in the first line.
I thought i had it defined, building this form is new to me.
I had Option Explicit on top, i removed it to see if that would fix the issue. i forgot to put it back.
I fix that like, i modified that as well trying to figure out the problem.

[davegri]

Do you have a textbox on the form where the user is supposed to type in the UserName?
Access will give that textbox a default name of textnnn or the like. You want to rename the textbox to something like txtUserName. (Other tab on property sheet)
Then use txtUserName in your code:

ID = NZ(DLookup("UserID","UserIDT","UserName='" & txtUserName & '") ,0)

then

Tempvars!username=Me.txtUserName.Value

[Oneclo1]

Thanks for the reply, i actually figured this one out, the names were wrong in the properties. but now i get the error: runtime error '438': Object doesnt support the property or method and highlights
If PW <> Password Then.
What could cause this error?

[davegri]

Thanks for the reply, i actually figured this one out, the names were wrong in the properties. but now i get the error: runtime error '438': Object doesnt support the property or method and highlights
If PW <> Password Then.
What could cause this error?

Same deal as txtUserName. Rename the textbox that the user types the password into.

If PW <> Me.txtPassword Then