have a tUser table with their limittaion codes:
cXavier, 4
Logan, 3
JGrey, 1
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
Code:
sub form_Load()
gvUserID = getUserID()
gvLevel = getUserLevel()
'then turn on/off buttons
'all buttons start disabled
btnAdmin.enabled = gvLevel = 4
btnManager.enabled =(gvLevel = 4) or ( gvLevel = 3)
btnLookup.enabled = (gvLevel = 4) or ( gvLevel = 2)
end if
Code:
Public Function getUserID() As String
getUserID = Environ("Username")
End Function
Code:
Public Function getUserLevel() As String
getUserLevel= Dlookup("[Level],"tUsers","[UserID]='" & gvUserID & "'") & ""
End Function