データベースウィンドウを表示しない

Sub データベースウィンドウを表示する()
DoCmd.SelectObject acForm, "", True
End Sub

は問題なく動くのですが

Sub データベースウィンドウを表示しない()
DoCmd.SelectObject acForm, "", False
End Sub

は
「実行時エラー'2493'　このアクションを実行するには[オブジェクト名]引数が必要です。 」
というエラーになります。

Sub データベースウィンドウを表示しない2()
DoCmd.SelectObject acForm, "データベースウィンドウ", False
End Sub

でも駄目でした。
アドバイス宜しくお願い致します。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2009/05/29 00:12

Sub データベースウィンドウをしない()

　　DoCmd.SelectObject acForm, "", True
　　DoCmd.RunCommand acCmdWindowHide
End Sub

SelectObject でデータベースウィンドウをアクティブにしておいて
acCmdWindowHide コマンドで、そのウィンドウを非表示にします。

なお、
　　DoCmd.SelectObject acForm, "", True
の 「True」 は、表示/非表示 を制御するものではなく、
データベースウィンドウで選択するか、否かを決めるものです。
詳しくは 「SelectObject」をヘルプで調べてください。

この回答へのお礼

一回表示してから非表示にするんですね。
ありがとうございました。

お礼日時：2009/05/29 06:49