|
ここでは、フォーム「アドレス帳メニュー」のボタン[終了]と、フォーム「アドレス帳メニュー」のイベント[閉じる時]へVBAコードを記述します。まずは、フォーム「アドレス帳メニュー」をデザインビューで開いて下さい。
終了処理は、「1.フォーム「アドレス帳メニューを閉じる」、「2.Accessを終了する」の順序で行います。
フォーム「アドレス帳メニュー」をデザインビューで開いたら、まずはボタン[終了]のイベント「クリック時」へ次のようなVBAコードを記述します。フォーム「アドレス帳メニュー」を閉じる処理です。
■イベントプロシージャ「削除_Click」の作成例
Private Sub 終了_Click()
'20.最終設定
'記述先：フォーム[アドレス帳メニュー]/ボタン[終了]/[クリック時]
'アドレス帳メニューを閉じます
DoCmd.Close acForm, "アドレス帳メニュー"
End Sub
|
※これは、Access VBAです。
次に、Accessを終了させます。Accessを終了させるときは「Application.Quit」を実行します。この命令を、フォーム「アドレス帳メニュー」のイベント「閉じる時」へ記述しましょう。フォームのイベント「閉じる時」とは、フォームを閉じたときに実行されるイベントです。
ちなみに、ボタンのイベント「クリック時」ではDoCmd.Closeを実行、Application.Quitはフォームのイベント「閉じる時」で実行しますが、これには理由があるのです。というのも、ボタンをクリックしたときだけApplication.Quitが実行されるような仕組みだと、それ以外の方法、例えばフォームの で閉じたときにAccessが終了しないからです。
■イベントプロシージャ「削除_Click」の作成例
Private Sub 終了_Click()
'20.最終設定
'記述先：フォーム[アドレス帳メニュー]/イベント[閉じる時]
'Accessを終了します
Application.Quit
End Sub
|
※これは、Access VBAです。
全てのVBAコードを記述したら、終了処理が正常に動作するか確認してみよう。手順は、フォーム「アドレス帳メニュー」をフォームビューで開き、[終了]ボタンをクリックするだけです。ただし、テストを行う前に必ず全て保存しておいてください。
それと、終了処理が正常に動作するとAccessも終了してしまします。面倒でも、もう一度アドレス帳ツールのMDBを開いて下さい。
|
|
|
※
※ 
※
へジャンプします。※は共著作品）