Call ChangeProperty("StartupShowDBWindow", DB_Boolean, False)
This then calls a subroutine to add the property if it's not there or change it's value if it is there.
What i would like to do is to display all the startup options in the immediate window.
The startup options I know about are:
Code: Select all
If TestDBProperty("AllowSpecialKeys") Then
' These next lines of code set to True the various properties
' we wish to activate in the MFE database. They call the code in the
' function "ChangeProperty"
Call ChangeProperty("StartupShowDBWindow", DB_Boolean, False)
Call ChangeProperty("StartupShowStatusBar", DB_Boolean, True) 'False
Call ChangeProperty("AllowBuiltinToolbars", DB_Boolean, False)
Call ChangeProperty("AllowFullMenus", DB_Boolean, False)
Call ChangeProperty("AllowBreakIntoCode", DB_Boolean, False)
Call ChangeProperty("AllowSpecialKeys", DB_Boolean, False)
Call ChangeProperty("AllowBypassKey", DB_Boolean, False)
Call ChangeProperty("AllowShortcutMenus", DB_Boolean, False)
Call ChangeProperty("AllowToolbarChanges", DB_Boolean, False)
' I want to make sure these toolbars do not appear at startup.
DoCmd.ShowToolbar "Menu Bar", acToolbarYes 'acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
End If