アクセス小僧：閉じる必要の無いヘルプ：崖の上のジョージ：So-netブログ

	ブログをはじめるログイン

アクセス小僧：閉じる必要の無いヘルプ　[コンピューター] [編集]

アクセスのフォームで、

ヘルプウィンドウを開いたまま、アクセスの操作ができるようにするにはどうしたら、いいのでしょう。

MsgBoxを使用した場合、MsgBoxを閉じないと、アクセスのフォームの操作ができません。

Windows Script Host(WSH)のPopupメソッドを使うと、ヘルプウィンドウを開いたまま、アクセスの操作ができるようになります。

Popupメソッド(MSDN)
https://msdn.microsoft.com/ja-jp/library/cc364428.aspx

上記のMSDNの説明によると、WSHのオブジェクトを生成するのに、下記のコードで、と書いてあります。

Set WshShell = WScript.CreateObject("WScript.Shell")

しかし、ジョージの環境(Windows8.1, Office2016)では、

オブジェクトが必要です (エラー 424)
https://msdn.microsoft.com/ja-jp/VBA/Language-Reference-VBA/articles/object-required-error-424

となってしまいます。どうも、WScript.が余計だ。ということが分かりました。

Set objWshShell = CreateObject("WScript.Shell")

上記のコードで、うまく動いています。参考にしたのは、下記のYAHOO!知恵袋です。

エクセルＶＢＡの質問です。指定されたフォルダ...
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10120948430

アクセスのフォームに設置したボタンをクリックしたときに、次のマクロを起動します。

Private Sub ヘルプ1_Click()
  '【機能】検索フィルタのヘルプ
  '【変数】
  Dim objWshShell
  Dim intButton
  Dim myString1 As String
  '【実行コード】
  Set objWshShell = CreateObject("WScript.Shell")
  myString1 = "除外=0 : 選択されていない" & vbCrLf _
  & "除外=1 : 選択されている"
  intButton = objWshShell.PopUp(myString1, 0, "検索フィルタのヘルプ", 0)
  Set objWshShell = Nothing
End Sub

マクロを実行した結果イメージは次のようになります。