See different stuff on forms depending on user

[banpreet]

Hi Guys,

I don't know if this is possible but all help is appreciated. I have test request forms with 3 approval sections on it for managers to sign. My boss said I should get rid of those sections because the users shouldn't have access to approval otherwise they can just sign, so he wants the approvals section to be only seen by other managers who looking to approve the Test Request forms. I don't know if this is the right way to go or possible, but I have created a button on the main menu password protected, so managers have access to a search form that the manager will type in maybe a date or something for the form that are looking to approve, and then the same form will open the user inputted but this time the manager will see the approval sections on the same form, and then can sign them. Please let me know if this possible.

Thanks!

[ranman256]

You will need a tUsers table, with userID and Level
when user opens the db, the main menu form will open and read the userID. Then lookup that persons rights in order to enable/disable controls.

sub form_load()
   vUserID =  Environ("Username")
   vLevel = Dlookup("[Level]","tUsers","[userID]='" & vUserID & "'")

   select case vLevel
         case "A"  'admin 
             'all is enabled
         case "U"  'normal user
             txtBox1.enabled = false
             txtManager.enabled = false
   end select
end sub

[banpreet]

Do I type in this code for the subform load on the Test Request form after the manager clicks searches for the form and clicks the button to open up the form? Thanks, and srry I am a noob

[banpreet]

or better yet is there a way that if the Manager Chooses case "A", a password box comes up?

[banpreet]

I typed in the code, how do I look up the persons rights, sorry I am not clear on this

[ranman256]

you must make a table , tUsers.
userID, name, level

of everyone using the db. Enter all names and levels. you can hardcode a password if the user is Admin.

vPass = inputbox("Enter password","Admin Entry")
if vPass <> "Mypassword" then docmd.close