MS Access Navigation Pane

Question

What is the OptionName for the "Display Navigation Pane" button for MS Access.

I have the following code that disables the Status bar for the Database but I need the same result for the Navigation pane but I need the OptionName of that button.

Application.SetOption "Show Status Bar", False

Answer 1

I also tried to put that same line of code on the On Open Event of the "TFS Staff" Form and it won't hide the navigation pane unless I manually open the form.

Answer 2

It still did not hide the navigation pane. I created that table,  with the exact same name and field in it making it a primary key. I have all of this code inside of this If Statement. If the user is a Developer("1") then nothing will hide but if the user is an employee(Else Statement) it will open a form with the employee dashboard, it will hide the ribbon and status bar but it did not hide the navigation pane. Any ideas?

If Me.txtPassword = Me.cboUser.Column(2) Then

        'Check if password needs to be reset

        If Me.cboUser.Column(3) = True Then

            DoCmd.OpenForm "frmPasswordChange", , , "[UserID] = " & Me.cboUser

        End If

        If Me.cboUser.Column(4) = "1" Then

                DoCmd.OpenForm "MAIN"

                Me.Visible = False

                Application.SetOption "Show Status Bar", True

        Else

        DoCmd.OpenForm "TFS Staff"

        DoCmd.ShowToolbar "Ribbon", acToolbarNo

        Application.SetOption "Show Status Bar", False

      DoCmd.NavigateTo "acNavigationCategoryObjectType"

DoCmd.RunCommand acCmdWindowHide

        Me.Visible = False

        End If

Answer 3

The way I found a couple of years ago is pretty easy.

1. Create a table with the name that would put it first in your list (i.e. 'aaTable")
2. Put one field in the table as a Primary Key (i.e. 'GenericField' - Short Text).
3. Don't put any info in the record.

To hide the Navigation Pane via VBA:

     DoCmd.NavigateTo "acNavigationCategoryObjectType"

     DoCmd.RunCommand acCmdWindowHide

To unhide the Navigation Pane via VBA:

     DoCmd.SelectObject acTable, , True

Quick, easy, and gets the job done!

Jeff