Menu Bar

[Secret Squirrel]

How do I get the default Menu Bar to only appear for all my users except for
me? I created a custom menu bar for myself to use as the Admin user but I
don't want anyone else to use this one. I want them all to use the default
menu bar.

Also, how can I change the default menu bar to show full menus for specific
users if I wanted to? Right now I have it unchecked in the startup functions
to allow full menus but I want to be able to toggle this depending on the
user.

 

[rhann]

Have you used the currentuser function before

 

[Secret Squirrel]

Yes I have. I've tried that in an "IF" statement and I can get it to work on
my toolbars by user but for some reason I can't get this to work on the
default menu bar.

 

[rhann]

try this

if currentuser ="your name here" then
Application.CommandBars("Menu Bar").Enabled = False
else
end if

 

[Secret Squirrel]

That worked! Thank you very much for your help.
Just out of curiosity how come it won't work using this:

If CurrentUser() = "yourname" Then
DoCmd.ShowToolBar "Menu Bar", acToolbarNo
Else
DoCmd.ShowToolBar "Menu Bar", acToolbarYes
End If

This is what I tried before but didn't work.

Also, How do I make the "Menu Bar" available as full menus to certain users?
Right now I have it unchecked in the startup functions but I may want to
enable it for certain people. Can this be done?

 

[rhann]

I don't know but it could be something to do with "toolbar", and menubar

 

[rhann]

remember when you close the last form on the database to reenable the toolbar
as it may not shgow up when you next start access

 

[rhann]

you can also use it to disabe tools on menus, but its easier to hide and
unhide menus, and create custom menus