I do this, users table has levels:
Manager
Admin
User
(you could have more)
tUsers table:
bobS, M
bethH, A
danaM, U
when user opens the app, grab the user's ID, then get their user 'rights' from the tUsers table:
gvUserID= Environ("Username")
vLevel = Dlookup("[Level]","tUsers","[UserID]='" & gvUserID & "'")
when the form loads, enable/disable buttons according to level:
Code:
public gvUserID
sub form_load()
dim vLevel
gvUserID = Environ("Username") 'get userID,visible in all forms
'get level from user table
vLevel = Dlookup("[Level]","tUsers","[userID]='" & gvUserID & "'")
'now, enable/disable items on form
select case vLevel
case "A" 'admin
'all is enabled
case "U" 'normal user
txtBox1.enabled = false
txtManager.enabled = false
case "M" 'manager
txtBox1.enabled = false
end select
end sub