access2010 ナビゲーションウィンドウを非表示に

データベースウィンドウ/Navigation Paneを実行時に非表示とするプロシージャ2通り。

Sub NavigationPaneHide01()
    DoCmd.NavigateTo "acNavigationCategoryObjectType", ""
    DoCmd.RunCommand acCmdWindowHide
End Sub

Sub NavigationPaneHide02()
    DoCmd.SelectObject acForm, "", True
    DoCmd.RunCommand acCmdWindowHide
End Sub