allow user to set startup options

  • Thread starter Thread starter Jahanzaib
  • Start date Start date
J

Jahanzaib

please help..

How can I allow a user (created with user level security wizard) to set
startup options (like 'allow full menus') of Application.
Regaards

JB
 
Hi.
You can find out the user login and work from there.

Select Case CurrentUser 'Set the startup
properties

Case "Admin"
MsgBox "Program is not set up correctly. " & _
"See your System Administrator to provide a correct shortcut " & _
"including reference to the workgroup file."

DoCmd.Quit ' Exit Microsoft
Access.

Case "sysadmin"
Application.MenuBar = "SysAdminMenuBar" 'Show the
administrator menu
DoCmd.ShowToolbar "SysAdminMenuBar", acToolbarYes 'Show the system
admin toolbar
DoCmd.ShowToolbar "ToolbarUser", acToolbarYes 'Show the user
toolbar
DoCmd.ShowToolbar "Form Design", acToolbarNo 'Don't show the
form design toolbar
DoCmd.ShowToolbar "Form View", acToolbarNo 'Don't show the
form view toolbar

ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowShortcutMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowToolbarChanges", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, True

Hope that helps

www.projectperfect.com.au
Project Infrastructure Specialists
 
Jahanzaib said:
please help..

How can I allow a user (created with user level security wizard) to set
startup options (like 'allow full menus') of Application.
Regaards

JB

Tell them to hold down the shift key when they open the file.

Keith.
www.keithwilby.com
 
Back
Top