川中重司、ほのぼのＩＴ税理士！(^^)のブログ

探していた宝物を発掘した気分です。

こんな素敵なコメントをいただきました、『後編・Microsoft Access RuntimeでAccessが入っていないＰＣでもAccessファイルは使えるが一工夫必要場合も有る』と言う記事で。
自分の備忘メモ的な記事でも誰かのお役に立てることも有ると思うと嬉しくなります。

具体的にはどうするのか？という質問を併せていただきましたので、以下に書かせていただきます。
いや、こんな一つの記事にするようなことでも無いのでしょうが、嬉しくて、嬉しくて。

え〜、
アクセス（ＡＣＣＥＳＳ）でアクションクエリを動かすときには、本当に良いの？と聞いてきます。
これがうっとうしい不要なときにはアクセスの設定で非表示に出来るのですが、アクセスのランタイム版では『設定』が出来ません。

ではどうする？
その設定をする動作をマクロで組み込んでしまおう。
という事ですね。


手順１．アクションクエリ等を表示させない設定にする手順の登録
標準モジュールのModule1で下記を記入。
名前は『hihyouji（＝非表示）』にしましたが、別に何でも良いですよね。

Public Function hihyouji()
'レコードの変更での確認を非表示に
Application.SetOption "Confirm Record Changes", False
'オブジェクトの削除での確認を非表示に
Application.SetOption "Confirm Document Deletions", False
'アクションクエリでの確認を非表示に
Application.SetOption "Confirm Action Queries", False
'
End Function


手順２．マクロへの組み込み
川中の場合、autoexecというマクロで、まずフォームを開くようにしています。
そのフォームを開いた後で、上の手順を動かしてしまいます。
『プロシージャの実行』で、プロシージャ名を手順１．で用いた『hihyouji()』に。


手順２．のautoexecマクロをＶＢＡコードに変換すると、この様に。
『Call hihyouji』という部分が手順２．の部分ですね。


とまあ、書いてしまえばこれだけのことなのですが、
アクセスランタイム版でアクションクエリ等の確認が出なくなるのは本当にありがたいです。

マイクロソフトアクセス、ちょっと知っているとかなり便利ですよね、小ネタをいくつか作るともう手放せません。


　ネットビジネスを応援する鯖江の税理士法人川中経営
　　税理士・ＩＴコーディネータ　川中重司