VBAで記述したプログラムは、主にフォーム上のコントロールの操作で活用します。マクロでも簡単に作成できますが、VBAを学習してスキルが上がるとVBAの方で作った方が容易に感じます。また、マクロでは実現できない処理も可能となります。
一般的によく利用されるコントロールの操作は、基本的な活用術となります。

※ このコントロールの操作では、「サンプル.accdb」ファイルを使用します。

フォームを開く

データベースのテーブル、クエリ、フォーム、レポートの各オブジェクトができあがり、動作の確認を終えると後はどのように運用していくかになります。誰にでも扱えるようなシステムにするには、利用するフォーム、レポートだけを利用させるような仕組みを作り上げます。その仕組みとは、Accessというアプリケーションを意識させないように、利用できる操作はメイン画面として１つのフォームにボタン類を配置させておき、そのボタンから使うフォームやレポートを表示させるようにすることです。

ここで使用するメイン画面を以下の図のように作成します。

3つのコマンドボタンを配置します。

標題	名前	説明
顧客リスト表示	顧客リスト	F_顧客リストフォームを開くコマンドボタン
見積一覧表示	見積一覧	F_見積一覧フォームを開くコマンドボタン
終了	終了	Accessまで終了させるコマンドボタン

フォームを開くには、OpenFormメソッドを使用します。

◆ OpenFormメソッド

イベントプロシージャの作成

メイン画面の「顧客リスト表示」コマンドボタンをクリックすると、「F_顧客リスト」フォームが開くようにイベントプロシージャを作成します。

「F_メイン画面」フォームをデザインビューで開き、「顧客リスト」コマンドボタンを選択します。そのプロパティシートを表示させ、[イベント]タブの[クリック時]プロパティを「イベントプロシージャ」に切り替え、右端のビルドボタンをクリックします。

VBE画面が表示され、[コード]ウィンドウに「Private Sub 顧客リスト_Clikc()」プロシージャのひな型が作成されます。

「F_顧客リスト」フォームを開き、「F_メイン画面」フォームを閉じる動作のプロシージャを作成します。エラートラップ処理も考慮して、次のように記述します。

	Private Sub 顧客リスト_Click()
		On Error GoTo Err_go

		DoCmd.OpenForm "F_顧客リスト", acNormal
		DoCmd.Close acForm, "F_メイン画面"

	Exit_go:
		Exit Sub

	Err_go:
		MsgBox Err.Number & ":" & Err.Description
		Resume Exit_go
	End Sub
    

F_顧客リストを開き、メイン画面は閉じられます。なるだけ、不必要なフォームは閉じた方がユーザは使いやすくなります。
フォームなどを閉じるには、Closeメソッドを使用します。

◆ Closeメソッド

同様に、見積一覧表示コマンドボタンのクリック時のイベントにも以下のようなプロシージャを作成します。

	Private Sub 見積一覧_Click()
		On Error GoTo Err_go

		DoCmd.OpenForm "F_見積一覧", acNormal
		DoCmd.Close acForm, "F_メイン画面"

	Exit_go:
		Exit Sub

	Err_go:
		MsgBox Err.Number & ":" & Err.Description
		Resume Exit_go
	End Sub
    

次に「F_顧客リスト」フォームの[メイン画面へ]コマンドボタンにもクリック時のイベントに以下のようなプロシージャを作成します。

	Private Sub メイン画面へ_Click()
		On Error GoTo Err_go

		DoCmd.OpenForm "F_メイン画面", acNormal
		DoCmd.Close acForm, "F_顧客リスト"

	Exit_go:
		Exit Sub

	Err_go:
		MsgBox Err.Number & ":" & Err.Description
		Resume Exit_go
	End Sub
    

次は、「F_見積一覧」フォームの[メイン画面へ」コマンドボタンにもクリック時のイベントに以下のようなプロシージャを作成します。

	Private Sub メイン画面へ_Click()
		On Error GoTo Err_go

		DoCmd.OpenForm "F_メイン画面", acNormal
		DoCmd.Close acForm, "F_見積一覧"

	Exit_go:
		Exit Sub

	Err_go:
		MsgBox Err.Number & ":" & Err.Description
		Resume Exit_go
	End Sub
    

フォームを開いて、閉じるという動作を見てもわかるように、記述の違いは開くオブジェクト名と、閉じるオブジェクト名だけです。その他の記述はすべて同じなので、1つ作成してからそれをコピーしてオブジェクト名を変更するだけの作業となります。マクロであれば、これを一つ一つ指定していくことになるので、同じ仕組みであればVBAの方が、作成作業が簡単であることを分かります。

Accessを終了させる

「F_メイン画面」フォームには[終了]コマンドボタンが配置されています。これをクリックすると、現在開いているデータベースを閉じて、さらにAccessも終了させるようにします。つまり、作業が終わると結局はAccessも閉じることになるので、その途中の無駄を省いて、データベースを閉じると同時にAccessも終了させます。

Accessを終了させるにはQuitメソッドを使用します。

◆ Quitメソッド

「F_メイン画面」フォームの[終了]コマンドボタンのクリック時のイベントに以下のようなプロシージャを作成します。

	Private Sub 終了_Click()
		Dim myAction As Integer

		On Error GoTo Err_go

		myAction = MsgBox("終了してもよろしいですか？", _
				vbOKCancel + vbInformation, "終了確認")
		If myAction = vbOK Then
			DoCmd.Quit acQuitSaveAll
		Else
			Exit Sub
		End If

	Exit_go:
		Exit Sub

	Err_go:
		MsgBox Err.Number & ":" & Err.Description
		Resume Exit_go
	End Sub
    

[終了]コマンドボタンを誤ってクリックしてしまう場合も想定して、クリック時に“まず終了して良いかどうか”のメッセージを表示させ、終了の確認をして[OK]ボタンで終了するように作成します。