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" wrote:

> 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

"Jahanzaib" <(E-Mail Removed)> wrote in message
newsF153A6B-C3B3-49BD-80C4-(E-Mail Removed)...
> 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