Help with startup code

[neemi]

I have the following startup code to hide toolbars etc and set the db properties but when i hold the shift key down the "menu Bar" does not show and i have to enable it via code again.

Can some one help me with what i am doing wrong please.

        ChangeProperty "StartupShowDBWindow", dbBoolean, False
        ChangeProperty "AppTitle", dbText, DLookup("[SystemTitle]", "tblSystemDetails") & " - Version " & DLookup("[Version]", "tblSystemDetails")
        'ChangeProperty "AppIcon", dbText, Application.CurrentProject.Path & "\" & "RAT.ICO"
        ChangeProperty "StartupForm", dbText, "About"
        'ChangeProperty "UseAppIconForFrmRpt", dbBoolean, True
        
        With Application
            .SetOption "Confirm Action Queries", False
            .SetOption "Confirm Record changes", False
            .CommandBars("Menu bar").Enabled = False
            .SetOption "Show Status Bar", False
            .CommandBars("RATTool").Enabled = True

        End With

help apreciated
Neemi

 

[JBinQLD]

From database window, Tools, Startup. Ensure "Use Access Special Keys" is checked.

NB. When doing this kind of property settin I find breakpoints in code often get disabled too, so just be aware of that, it can be infuriating.

 

[neemi]

How can I set this to true via code in my startup?

 

[JBinQLD]

Ummm, Properties("AllowBypassKey") rings bells mate.

Possibly "AllowShiftByPass" something like that. I have ued it on a database which is at the office, if you have no luck i'll look tomorrow for you. Let me know.

Laterz