Область Навигации (Navigation Pane) - Скрыть / Показать

Public Sub DisplayNavPane(Optional IsVisible As Boolean = True)
'Область Навигации (Navigation Pane) - Скрыть / Показать по <IsVisible>
    DoCmd.SelectObject acTable, , True
    If IsVisible = False Then DoCmd.RunCommand acCmdWindowHide
End Sub

Просто скрыть (если видима):

Public Sub HideNavigationPane() 'Область Навигации (Navigation Pane) - Скрыть!
Dim sTableName
'Name of any existing table:
    sTableName = DLookup("Name", "MSysObjects", "Type = 1 and Flags=0") & ""
    If Len(sTableName) = 0 Then
        MsgBox "Не могу найти локальную таблицу для определения статуса области навигации!", _
                vbExclamation, "HideNavigationPane"
        'MsgBox "Can't Cannot find a local table to define Navigation Pane visibility!", _
                vbExclamation, "HideNavigationPane"
        Exit Sub
    End If
    'Debug.Print sTableName
    DoCmd.SelectObject acTable, sTableName, True 
    If Application.CurrentObjectName = sTableName Then DoCmd.RunCommand acCmdWindowHide
End Sub