【ACCESS VBA】ナビゲーションウィンドウを非表示にするには?

訪問して頂きありがとうございます。まさふくろーです。

この記事では、ナビゲーションウィンドウを非表示にする方法をご紹介します。

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

使用するメソッド

SelectObjectメソッド

DoCmd.SelectObject(ObjectType [, ObjectName] [, InNavigationPane])

説明
SelectObjectメソッドは、引数に指定したオブジェクトを選択します。
指定項目 必須 説明
ObjectType

選択するオブジェクトの種類を指定します。
指定する定数または値は、以下の表になります。
ObjectName

引数ObjectTypeで選択した種類のオブジェクトの名前を指定をします。
引数InNavigationPaneに「True」が指定されていない場合は、必須になります。
InNavigationPane ナビゲーションウィンドウでオブジェクトを選択する場合は「True」を指定します。

引数「ObjectType」に指定する定数と値

定数 内容
acTable 0 テーブル 
acQuery 1 クエリ
acForm 2 フォーム
acReport 3 レポート
acMacro 4 マクロ
acModule 5 モジュール

RunCommandメソッド

DoCmd.RunCommand(Command)

説明
RunCommandメソッドは、引数Commandに指定した処理を行います。
指定項目 必須 説明
Command

アクティブなウィンドウを非表示にするには、引数Commandに「acCmdWindowHide」を指定します

サンプルプログラム

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

1 Subプロシージャ「Sample」を作成。
3 ナビゲーションウィンドウを選択します
5 ナビゲーションウィンドウを非表示にします。

ナビゲーションウィンドウを再表示する

1 Subプロシージャ「Sample2」を作成。
3 ナビゲーションウィンドウを再表示します

実行結果

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

ナビゲーションウィンドウを再表示する

関連記事

連結フォームを作成する

【ACCESS VBA】連結フォームを作成するには?

リボンを非表示にする

【ACCESS VBA】リボンを非表示にするには?

最後まで読んでいただき、ありがとうございました!