Button For "Edit Mode"

[jaarons]

Hi all,

Another day, another question. I have my database open to a splash screen and then a main menu. I would like the database to open without the ribbon and without the navigation buttons and without any right click functionality. BUT I want a hidden button on my main menu form (transparent, etc) that has code that will bring it all back.

I've found the options for "current database" and have managed to close the navigation pane, some of the ribbon and the right click functionality. Can I hide the ribbon altogether? Does my splash screen form need an "onLoad" macro/code to do this? And what code do I put on the button to bring it all back (to what I call "Edit Mode")?

Thanks for your help!

[stmoong]

I'm not sure if there is a better way to hide the shortcut menu and navigation buttons for the forms. Of the top of my head, one way you can do to store 2 variables in a module that will indicate if those features are enabled or not.

In a module, e.g. basFlags, declare 2 variables.

Public gEnableShortcutMenu as Boolean
Public gNavigationButtons as Boolean

In the Load event of the splash screen, use the following code.

Private Sub Form_Load()
    'Hide the ribbon
    DoCmd.ShowToolbar "Ribbon", acToolbarNo

    'Set the flags
    gEnableShortcutMenu = False
    gNavigationButtons = False
End Sub

Then, in the Click event of your Edit button, use the following code.

Private Sub CmdEdit_Click()
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    gEnableShortcutMenu = True
    gEnableNavigationButtons = True

    'This affects the current form
    Me.ShortcutMenu = gEnableShortcutMenu
    Me.NavigationButtons = gEnableNavigationButtons
End Sub

In the Load event of all other forms, use the following code.

Private Sub Form_Load()
    Me.ShortcutMenu = gEnableShortcutMenu
    Me.NavigationButtons = gEnableNavigationButtons
End Sub

[jaarons]

An extremely belated thanks for this! I've been away from the project for a few weeks, and I finally got this going. Your code worked a charm.

[stmoong]

You're welcome.

[Missinglinq]

...I want a hidden button on my main menu form...

What I always do for this type of thing is to simply use the OnClick event of a Label in place of a Command Button. It accomplishes the task, and very few users know that a Label can be used in this fashion, much less think about clicking on one. The only caveat is that it has to be an independent Label, i.e. one you've created and placed on the Form, as opposed to one that Access automatically creates and associates with another Control (such as a Textbox) that you place on the Form.

Linq ;0)>