I have a tUser table with their limitation code levels:
cXavier, Adm
Logan, Mgr
JGrey, Usr
then the db opens, grab the useriD
then with that , grab their Level from the tUsers table.
then enable buttons/objects:
Code:
public gvUserID, gvLevel
sub form_Load()
gvUserID = getUserID()
gvLevel = getUserLevel()
'then turn on/off buttons
'all buttons start disabled
btnAdmin.enabled = gvLevel = Adm
btnManager.enabled =(gvLevel = Adm) or ( gvLevel = Mgr) )
btnLookup.enabled = true 'all
end if
Code:
Public Function getUserID() As String
getUserID = Environ("Username")
End Function
Public Function getUserLevel() As String
getUserLevel= Dlookup("[Level],"tUsers","[UserID]='" & gvUserID & "'") & ""
End Function