ページ内目次
概要
フォームを閉じる閉じるには、 オブジェクトウィンドウ 内の右端にある
をクリックするとそのフォームは閉じます。また、 画面右上の
をクリックするとAccessが終了します。Windowsの標準機能やAccessの標準機能を使えばできることを、 何故わざわざVBAを記述するようなことをしなければならないのか。
それは、 終了時に何かの処理を行いたいときや、 大きなボタンを設置することによって 利用者 にとって操作しやすいからです。
よく見かけるのが「処理を終了します。」と小窓を表示し、 「OK」や「キャンセル」を選択するように確認をとっています。
使用するVBAコード
このコードはボタンを設置してイベントプロシージャを登録したあとで使用します。
- フォームを閉じるためのVBA
-
フォームを閉じるためのVBAはこのように記述します。
DoCmd.Close acForm, Me.NameDoCmdオブジェクトのCloseメソッドを使用します。
上のコードをクリップボードにコピーします。
次に「acForm」を記述します。
「acForm」はAccessのキーワードで、 フォームを意味します。
「DoCmd.Close」で「閉じなさい」、 「acForm」で「フォーム」を、 つまり「フォームを閉じなさい」ということになります。
次はどのフォームを閉じるのかと言うことをフォームの名称で指示します。
フォーム名は、 ダブルクォーテーションで囲んで（文字列を意味します）閉じるフォームの名前を指定します。
フォーム名は変数でも指定できます。
ここでは、「Me.Name」と指定しています。
「Me」は私（今開いているフォーム）のことです。
私（フォーム）のプロパティである「Name」を指定しているので、 フォームの名称ということになります。
つまり今開いているフォームの名前を表しています。
なので、 「DoCmd.Close acForm, Me.Name」のコードは、 「私（フォーム）を閉じる」ということになります。 - Accessを終了するためのVBA
-
小窓を表示して可否を確認したあとに、
フォームを閉じてAccessも終了するためのVBAはこのように記述します。
If MsgBox("処理を終了して、Windowsに戻ります。", vbOKCancel, "終了確認") = vbCancel Then
Exit Sub
End If
Application.Quit
上のコードをクリップボードにコピーします。
まず4行中の先頭3行から解説します。
この3行は概要であげた例に従って、 「小窓を表示して終了するか否かを選択する」となっているので入れてみました。
もちろん利用者に改めて確認することなくすぐに終了するのなら、 このコードは不要です。
この3行は超入門講座を見ている人には難しいと思いますので、 コピペで良いと思います。
一応簡単に説明しておきます。
If MsgBox("処理を終了して、Windowsに戻ります。", vbOKCancel, "終了確認") = vbCancel Then
Exit Sub
End If- If MsgBox("処理を終了して、Windowsに戻ります。", vbOKCancel, "終了確認") = vbCancel Then
-
「If」は「If a = b then」の形式で、
ふたつのものを比較します。
この場合、
aは「MsgBox("処理を終了して、Windowsに戻ります。", vbOKCancel, "終了確認") 」で、
bは「vbCancel」
となります。
「Then」は、 比較した結果が真であれば（正しければ）「End If」までの間に記述したVBAを実行します。
比較した結果が真でなければ「Then」以降「End If」までの間は実行されずに「End If」の次からの命令を実行します。
つまりこのようになります。If a = b Then
' 真であればここに記述したVBAを実行します。
' 真でないときは実行されません。
End If
' ここに記述したVBAは「If」の判定結果に関係なく実行されます。「MsgBox("処理を終了して、Windowsに戻ります。", vbOKCancel, "終了確認"」
構文はこのようになります。
「MsgBox」 メッセージボックスの意味で下図の小窓を表示します。
「"処理を終了して、Windowsに戻ります。"」 小窓に表示するメッセージです。
「vbOKCancel」 小窓に「OK」と「キャンセル」のボタンを表示します。
「"終了確認"」 小窓のタイトルを指定します。
「MsgBox("処理を終了して、Windowsに戻ります。", vbOKCancel, "終了確認")」
の「If」文の中での値は、 まず小窓を表示し、 「OK」か「キャンセル」をクリックした値になります。
「OK」をクリックするとその値は「VbOK」となり、
「キャンセル」をクリックすると「VbCancel」になります。「Exit Sub」
このプロシージャの後ろの処理は実行せず、 プロシージャを抜けるという意味です。
この例で具体的に表現すると、
メッセージボックスで「キャンセル(VbCancel)」をクリックすると、
下の行の「Application.Quit」は実行しませんということです。
- Application.Quit
-
Application.QuitApplicationオブジェクトのQuitメソッドを使用します。
このことにより、 開いているフォームの変更をすべて保存した後Accessを終了します。
フォームを閉じてAccessも終了させるためのVBAにはこのようなコードもあります。DoCmd.Quitこれは古いバージョンのAccessに対応するために残してあるものです。
上のコードをクリップボードにコピーします。
もし、 前者の「Application.Quit」が動作するのであれば前者を使用してください。
「F住所録一覧表」に「処理終了」ボタンを設置する
そこで「F住所録一覧表」フォームには「処理終了」ボタンを設置します。
）を左クリックしてボタンを選択し、「F住所録一覧表」フォームのフッターの貼り付けたい位置で左クリックしてボタンを貼り付けます。
（ドラッグ&ドロップではありません）
「コマンド19」と表示されているボタンが貼り付けられました。
「コマンド19」のプロパティシート -> 「その他」タブ -> 「名前」を「コマンド処理終了」に変更します。
「標題」と「名前」を変更した後の処理終了ボタン。
Application.Quit
End Suv
ビルドボタン をクリックして、
表示されたクリック時イベントに「Accessを終了するためのVBA」を記述します。
結果はこのようになります。
これで、
「F住所録一覧表」フォームの「処理終了」ボタンをクリックするとAccessが収容します。
なお、
開発時に「処理終了」ボタンをクリックするごとにAccessが終了してしまうのは面倒です。
開発中はここを「フォームを閉じるVBA」に変更しておいても良いかもしれません。
この場合、
開発完了時にもとに戻すのを忘れないように注意する必要があります。
「F住所録明細」に「閉じる」ボタンを設置する
そこで「F住所録明細」フォームを閉じると「F住所録一覧表」フォームが見えるようになります。
このことからフォームを閉じるためのボタンの名前は「戻る」ボタンであっても、 「閉じる」ボタンであっても良いわけです。
どちらでも構いませんが、 ここでは「閉じる」ボタンとして設置することにします。
）を左クリックしてボタンを選択し、「F住所録明細」フォームのフッターの貼り付けたい位置で左クリックしてボタンを貼り付けます。
（ドラッグ&ドロップではありません）
「コマンド12」と表示されているボタンが貼り付けられました。
「コマンド12」のプロパティシート -> 「その他」タブ -> 「名前」を「コマンド閉じる」に変更します。
「標題」と「名前」を変更した後の処理終了ボタン。
DoCmd.Close acForm, Me.Name
End Suv
ビルドボタン をクリックして、
表示されたクリック時イベントに「フォームを閉じるためのVBA」を記述します。
結果はこのようになります。 これで、 「F住所録明細」フォームの「閉じる」ボタンをクリックすると「F住所録明細」フォームが閉じて、 「F住所録一覧表」フォームが見えるようになります。