Dlookup give san error saying I am missing an operator

[gaherna3]

I am trying to make a login form and used dlookup to confirm that the first name belongs to the employee ID entered.

Dlookup("FName", "UserLogin","[ProcessorID]= '"&me.txtLoginID.value &"'")

I keep getting an error saying I am missing =. Help please.

[PhilOfWalton]

What sort of field is ProcessorID? I suspect it is numeric.
What is a typical value of Me.TxtLogin? Is it also numeric, if not you might try

Dlookup("FName", "UserLogin","[ProcessorID]= " & CLng(me.txtLoginID))
 

Also. for clarity, make sure there are spaces on both sides of the "&"

Phil

[gaherna3]

ProcessorID is a text field as well as txtLogin.
I did try that code and it did not work.

Dlookup("[Fname]", "LoginForm", "[ProcessorID]=" & CLng(Me.txtLoginID.Value))

Me entire code is

Private Sub btnLoginOK_Click()
If IsNull(Me.txtLoginID) Then
    MsgBox "Please Enter Employee ID", vbInformation, "LoginID Required"
    Me.txtLoginID.SetFocus
Else
    'process the job
    Dlookup("[Fname]", "LoginForm", "ProcessorID = '"& txtLoginID.Value &"'")
    MsgBox "Welcome"
    DoCmd.OpenForm "Questionnaire"
    DoCmd.Close acForm, "LoginForm"
    End If
End Sub

If that helps any.

[PhilOfWalton]

OK. Your last code will not work because a DLookup works only on tables and queries, not on a form

So try your original code again but with spaces round the "&" but without the word ".Value"

Dlookup("FName", "UserLogin", "[ProcessorID]= '" & me.txtLoginID & "'")
 

Also can you confirm that both FName & ProcessorID are in your UserLogin table?

Also I would be rather inclined to run the code on the AfterUpdate of the TxtLoginID rather than on a separate command button.

Unfortunately the code that you have written after the Else clause doesn't really do anything.
It looks up someone's first name and doesn't do anything with it. E.G. compare it to the first name of the person who is logging on, just opens a message box to say "Welcome" which the operator hat to waste their time clicking the OK button, and then does what is wanted by opening the Questionnaire form.

Phil

[gaherna3]

Thank you so much for your help Phil. Unfortunately, it is still giving me the same error. I can confirm that both ProcessorID and FName are in my UserLogin table. My code is as follows:

Dlookup("[FName]", "UserLogin", "[ProcessorID]= '" & me.txtLoginID & "'")
    MsgBox "Welcome"
    DoCmd.OpenForm "Questionnaire"
    DoCmd.Close acForm, "LoginForm"
    End If 

My intentions for the clause after else is for a pop up to say "Welcome (FName) (LName)." I was thinking that by looking up the values I would be able to input them into the message.

[PhilOfWalton]

Not that I doubt you, but there is something very odd here.

Please can you post your UserLogin table.

If you put a debug stop on the DLookup Line, what value are you getting for the me.txtLoginID.

I am a little suspicious (don't know why) but I would expect the word me. would be capitalised to Me. In all my databases, the editor always capitalises the word Me. It's as if it isn't being recognised.

Phil

[gaherna3]

How would I go about posting my table? I am sorry I am a newbie here.

[PhilOfWalton]

Well you could either do a PrintScreen of tour table in design view and send the image, or better still if you remove any sensitive information from your database, you can send it as a zip file.

That can either be posted on the Bytes website, or if you send me a personal message, we can arrange that you send the zip file directly to me

Phil

[gaherna3]

Here is my table. Let me know if there is anything else you need.

[PhilOfWalton]

Table looks fine.

So if you debug the code, what value are getting (see my earlier post) for me.txtLoginID

Another way of getting this is on the first line of code type

Debug.Print me.txtLoginID
 

Phil

[gaherna3]

When I debug it says syntax error.

Would it have to do anything with my textbox being unbound?

[PhilOfWalton]

Sorry, try changing the dot to an exclamation mark !

Debug.Print me!txtLoginID
 

Phil

[gaherna3]

Here is my file. Let me know what you find.

[PhilOfWalton]

Solved:

Private Sub btnLoginOK_Click()
 
    Dim FirstName As String
 
If IsNull(Me.txtLoginID) Then
    MsgBox "Please Enter Employee ID", vbInformation, "LoginID Required"
    Me.txtLoginID.SetFocus
Else
    'process the job
    FirstName = Nz(DLookup("[FName]", "UserLogin", "[ProcessorID]= '" & Me.txtLoginID & "'"))
    If FirstName = "" Then
        MsgBox "Sorry, Don't recognise you"
        Exit Sub
    End If
 
    MsgBox "Welcome " & FirstName
    DoCmd.OpenForm "Questionnaire"
    DoCmd.Close acForm, "LoginForm"
    End If
 
End Sub
 

Phil

[gaherna3]

Thank you so much!!!! This is exactly what I wanted! Is there a way to go back to the login form if the user says that is not them?

[PhilOfWalton]

The normal way to use a login form is to ask for 2 bits of information so something like they enter the first name, then enter the number which looks up the first name. If they match go on, if not, clear both fields and try again.

Phil

[gaherna3]

Okay got it! Thank you so much Phil.