dlookup

[mrijet]

hello..how can I retrieve data for restricted the access level

here are my code

Form_OnLoad()
Dim user as string
 
user = dlookup("UserType","tblUser","EmployeeID=" & [EmployeeID])
 
if user = "Admin" then
me.txtdel.visible = True
elseif user = "user" then
me.txtdel.visible = false
endif

Is this the right code to retrieve data...

[Seth Schrock]

It looks fine. What happens when you run it?

[zmbd]

I advise that you pull "EmployeeID=" & [EmployeeID] out of the function, assign it to a variable and use the variable within the function:

'...
Dim strWhere As String
'...
strWhere = "EmployeeID=" & [EmployeeID]
'
user = dlookup("UserType","tblUser",strWhere)
 

this way if the returned value(s) for strWhere are not resolving correctly you can use the debug.print strWhere to print the resolved string to the immediates window for review.