View Database Window

[Mando13]

How can I view my database window if I disabled all the viewable options from the startup menu?
I disabled Display Database Window, Display Status Bar, Allow Full Menus, Allow Default Shortcut Menus, Allow Built-In Toolbars, Allow Toolbar/Menu Changes and Use Access Special Keys.

 

[THWatson]

Mando13
As the database is opening, hold down the Shift key. That will bypass the Options and then you can change them.

Tom

 

[Mando13]

Thanks.
Just asking. Do you know any other ways to bring up that database window?
I heard there were a few different ways to do the same thing.

 

[THWatson]

Not sure. Perhaps holding down F7...but that's only a guess. Using the Shift key is the only way that I know.

You will have to experiment with any other options and see what happens.

Tom

 

[BobStubbs]

This code returns 'True' if the 'Display Database Window' startup option is checked, and 'False' if it is unchecked:

CurrentDb.Properties("StartUpShowDBWindow")

You can also use this as a command to check / uncheck the value, e.g.

CurrentDb.Properties("StartUpShowDBWindow") = True

So, I think you could:

-- Create a form which only someone with Administrator rights can view
-- Place a command button on the form
-- Write the code shown above into the button's On_Click event.

You now have another way to enable the database window again:

-- Open the form
-- Click the button
-- Close and re-open the database

Bob Stubbs

 

[obli]

You could simply press F11.

 

[ChuckWhite]

Here is code I use for a menu item that only appears for DB users identified as "Superusers".

Note the Allow/Disallow Bypass setting requires creation of that Database property first. The code is in Access help.

Public Function EaseStartup()

With CurrentDb
.Properties("AppTitle") = "SMHC Client Maintenance SUPERUSER"
.Properties("StartUpShowDBWindow") = True
.Properties("AllowShortcutMenus") = True
.Properties("AllowFullMenus") = True
.Properties("AllowBuiltInToolbars") = True
.Properties("AllowToolbarChanges") = True
.Properties("AllowSpecialKeys") = True
.Properties("AllowBypassKey") = True
Application.SetHiddenAttribute acTable, "sec_User_Security", False
Application.SetHiddenAttribute acTable, "sec_Object_Security", False
'.Properties("Auto Compact") = False
'AppIcon
'StartUpForm
End With

MsgBox "Startup settings are set for development. " & vbCrLf & _
"The Application will now close.", vbCritical, _
"Development Settings!"
Application.Quit

End Function

Public Function RestrictStartup()

With CurrentDb
.Properties("AppTitle") = "SMHC Client Maintenance"
.Properties("StartUpShowDBWindow") = False
.Properties("AllowShortcutMenus") = True
.Properties("AllowFullMenus") = False
.Properties("AllowBuiltInToolbars") = True
.Properties("AllowToolbarChanges") = False
.Properties("AllowSpecialKeys") = False
.Properties("AllowBypassKey") = False
Application.SetHiddenAttribute acTable, "sec_User_Security", True
Application.SetHiddenAttribute acTable, "sec_Object_Security", True
'Application.AutomationSecurity = msoAutomationSecurityLow
'.Properties("Auto Compact") = False
'AppIcon
'StartUpForm
End With

MsgBox "Startup settings are set for general use. " & vbCrLf & _
"The Application will now close.", vbCritical, _
"General Use Settings!"

Application.Quit

End Function