DLookUp - (Am I going Mad?!) 2

[SiJP]

What the heck does this mean??!!

Run-time error '2471':

The expression you entered as a query parameter produced this error: "The object doesn't contain the Automation object 'admin'."

I'm running the following code in the On_Open event of a report:

Dim strUser As String
Dim strFirstName As String
Dim strLastName As String

strUser = CurrentUser
strFirstName = DLookup("[FirstName]", "UserDetails", "[UserID] = " & strUser)
strLastName = DLookup("[LastName]", "UserDetails", "[UserID] = " & strUser)

The code breaks on strFirstName... I have a table called UserDetails, a field called FirstName & a field called UserID... so whats the problem?! Its got to be somthing really basic that'll make me feel a right plum, but I can cope with that if I can get it solved! (btw, I'm logged in as "admin" therefore strUser will be 'admin')...

TIA

 

[danvlas]

Missing the single quotes...

strFirstName = DLookup("[FirstName]", "UserDetails", "[UserID] = '" & strUser & "'")
strLastName = DLookup("[LastName]", "UserDetails", "[UserID] = '" & strUser & "'" )

I know...it's simple


Daniel Vlas
Systems Consultant

 

[PaulBricker]

You are testing for a numeric value in your function.

Try this
strFirstName = DLookup("[FirstName]", "UserDetails", "[UserID] = '" & strUser & "'&quot

Paul

 

[SiJP]

Yep.. I feel like a plum.. thank you both!

 

[danvlas]

LOL You had the answer in your own original post (last line, admin is surrounded by quotes in both places):

logged in as "admin" therefore strUser will be 'admin'

It's funny how little things can drive one nuts (one misplaced slash made me crazy for 2 entire days. It was even funnier because no error popped up and I really felt like killing myself)


Daniel Vlas
Systems Consultant