double/single quotes

[SunTop]

Hello Everyone




I found this code in a sample database and I need to re-use it in my database, but access keeps throwing errors at me. I did some digging and I think the cause of the error is that TempVars("EmployeeType") is a string in my database, but it is a number in the sample database where I got this code from. I think I need to alter the double/singe quotes. I just can’t seem to figure it out, a little help please.


UserAccess = Nz(DLookup("HasAccess", "tbl9EmployeeAccess", "EmployeeType_ID=" & TempVars("EmployeeType") & " AND FormName=' " & FormName & " ' "), False)

[ranman256]

loose the TempVars("EmployeeType"), and put in a variable or a control from a form

Nz(DLookup("HasAccess", "tbl9EmployeeAccess", "EmployeeType_ID=" & vEmpType & " AND FormName='" & FormName & "'"))
or
Nz(DLookup("HasAccess", "tbl9EmployeeAccess", "EmployeeType_ID=" & me.txtBoxEmpType & " AND FormName='" & FormName & "'"))

[John_G]

What is the error message that you are getting? We can only guess at the answer if we don't know what the problem is!