Command button visible using DLookup 1

[meagain]

Hi All,

I need to make a command button visible to certain users based on a multiple user levels in a table.

I currently am using the following code successfully to make the button visible to one user level:

If DLookup("Level", "USERS", "[USER ID] = '" & CurrentUser & "'") = 9 Then
Me.Command180.Visible = True
Else

Me.Command180.Visible = False
End If

How can I amend this so levels 2,15, and 32 can also see the button?

Thank you!!

 

[PHV]

You may try this:

Dim lngLevel As Long
lngLevel = DLookup("Level", "USERS", "[USER ID] = '" & CurrentUser & "'")
Me!Command180.Visible = (lngLevel = 2 Or lngLevel = 9 Or lngLevel = 15 Or lngLevel = 32)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[meagain]

Thank you PHV, it works like a charm.