Dlookup Issue

[thmsjlmnt3953]

Hi

I'm using the following to get a users id number once they login - that part the first line works. however now i want to use that number to check in the permissions table to see if there is a tick in the 'EnterTrade' field and if not then do some action however i cant seem to get it tot work

'return user id to check permissions
EmpIDLogin = DLookup("[empid]", "tblemployee", "[userid] ='" & Me.txtUserID.Value & "'")
If DLookup("[EnterTrade]", "tblpermissions", "[empID] ='" & EmpIDLogin & "'") = -1 Then 'somefunction

 

[MarkK]

cant seem to get it to work

For best troubleshooting results, provide symptoms of the failure, for instance, you get an compile error, runtime error, silent failure, wrong result, etc..., etc... We know it doesn't work, or you wouldn't post.

 

[thmsjlmnt3953]

EmpIDLogin = DLookup("[empid]", "tblemployee", "[userid] ='" & Me.txtUserID.Value & "'")

The expression you entered as a query parameter produced this error.

What im trying to achieve is that each user has a tick against what cmdbutton they can access on the nav form. so i can add and take away privelages without having to code each person individually.

So there is one dlookup to find the empid then a dlookup for each button to see if they should have access, if so then forms!form!ctrl.enabled

 

[MarkK]

I thought the first part worked? Isn't this the first part?

EmpIDLogin = DLookup("[empid]", "tblemployee", "[userid] ='" & Me.txtUserID.Value & "'")

The expression you entered as a query parameter produced this error.

Sorry, what error is that?

 

[thmsjlmnt3953]

apologies its this part that fails

If DLookup("[EnterRecords]", "tblpermissions", "Criteria= '" & EmpIDLogin & "'") = -1 Then
Forms!frmnavigation!cmdNavEnterRecords.Enabled
End If

 

[MarkK]

Consider describing the symptoms of the failure.