Access VBAの極致：DoCmd.OpenFormによる同期処理とメモリ管理の深淵
多くのエンジニアは、`DoCmd.OpenForm`を単なる「画面を開く命令」だと誤解している。だが、真のアーキテクトにとって、それは「非同期世界と同期世界の境界線を制御する魔法のスイッチ」に他ならない。
今回は、単にダイアログを表示するだけでなく、Accessのイベントループを制し、リソースリークを完全に排除した「堅牢なデータ入力フロー」の設計思想を伝授する。
—
1. DoCmd.OpenFormの「WindowMode」が隠し持つ真実
`WindowMode`に`acDialog`を指定した瞬間、Accessのメインスレッドは呼び出し側のプロシージャを一時停止させ、モーダルフォームが閉じるか、非表示になるまで実行を保留する。
これは単なるUIの制御ではない。「後続処理の実行コンテキストを維持したまま、ユーザー入力を同期的に待機する」という、極めて強力なプログラミング・パラダイムである。
なぜ「同期」が重要なのか
非同期的なイベント駆動（例えば、Form_AfterUpdate等に処理を逃がす手法）は、ロジックの断片化を招く。対して、`acDialog`を用いた同期フローは、ビジネスロジックを1つのプロシージャ内にカプセル化できるため、保守性と可読性が飛躍的に向上する。
—
2. 完遂された同期入力フローの実装
以下のコードは、単にフォームを開くだけではない。オブジェクトの状態を監視し、呼び出し元で入力結果を確実に回収する設計だ。
‘ 呼び出し元のメインプロシージャ
Public Sub ExecuteDataEntryFlow()
Const FormName As String = “frm_TargetDataEntry”
‘ 1. ダイアログとしてフォームを開く (同期処理の開始)
‘ OpenArgsを利用して、初期値や制御フラグを渡すのは基本中の基本
DoCmd.OpenForm FormName, WindowMode:=acDialog, OpenArgs:=”Mode=NewRecord”
‘ — ここでコードの実行は一時停止する —
‘ 2. フォームがまだ存在するかを確認 (ユーザーが閉じたか、キャンセルしたか)
If Not CurrentProject.AllForms(FormName).IsLoaded Then
Debug.Print “ユーザーがキャンセル、またはフォームを閉じました。”
Exit Sub
End If
‘ 3. 入力結果の回収とオブジェクトの整合性確保
Dim frm As Form
Set frm = Forms(FormName)
‘ 4. 後続処理（DBへの反映や他システムへの通知）
ProcessInputData frm
‘ 5. 明示的な解放とクリーンアップ
DoCmd.Close acForm, FormName
Set frm = Nothing
End Sub
—
3. シニアレベルの知見：メモリ最適化と「幽霊オブジェクト」の排除
Accessにおいて最も忌むべきは、「閉じられたはずのオブジェクトがメモリ上に残り続けること」だ。
`acDialog`でフォームを閉じた後、`DoCmd.Close`を呼ぶだけでは不十分なケースがある。特に複雑なクラスモジュールを組み込んでいる場合、VBAのガベージコレクションは頼りにならない。
究極のメモリ解放テクニック
フォームの`Unload`イベントにて、自身を明示的に解放し、親プロセスへの影響を遮断する。
‘ フォームモジュール内
Private Sub Form_Unload(Cancel As Integer)
‘ フォーム上のコントロールに紐付いた複雑なオブジェクトを破棄
‘ メモリリークを防ぐための鉄則
Set Me.Recordset = Nothing
‘ ウィンドウハンドルが確実に破棄されるよう、必要に応じてAPIを呼ぶことも検討する
‘ (詳細は後述のWindows APIセクションを参照)
End Sub
—
4. Windows APIによる「強制制御」の必要性
Access標準の制御だけでは、多重起動や画面の最前面固定など、OSレベルの制御が必要な場面がある。`FindWindow`や`SetForegroundWindow`を駆使し、ダイアログを強制的に制御下に置くことが、システム管理者の腕の見せ所だ。
If VBA7 Then
Private Declare PtrSafe Function SetForegroundWindow Lib “user32” (ByVal hwnd As LongPtr) As Long
Else
Private Declare Function SetForegroundWindow Lib “user32” (ByVal hwnd As Long) As Long
End If
‘ ダイアログ表示時に確実に前面へ持ってくるためのラッパー
Public Sub ForceFocus(FormName As String)
Dim h As LongPtr
h = Forms(FormName).hwnd
SetForegroundWindow h
End Sub
—
5. チーフアーキテクトからの提言
Accessにおけるデータ入力の設計は、「いかにユーザーの入力を阻害せず、かつデータの整合性を保つか」という、矛盾する要求の調停に他ならない。
- イベント駆動の多用は「スパゲッティコード」の入口である。 可能であれば同期的なフローを優先せよ。
- ObjectのSet = Nothingは宗教ではなく義務である。 特に`acDialog`を用いた長期実行プロセスでは、蓄積するメモリの微塵がシステムダウンを招く。
- レガシーを恐れるな。 Accessのオブジェクトモデルは30年以上の実績がある。正しく使えば、最新のWebフレームワークよりも遥かに高速に、堅牢な業務システムを構築できる。
君たちの書くVBAが、ただ動くコードから「システムとして完成されたコード」へと昇華することを期待している。コードに魂を込めよ。そうすれば、システムは君たちを裏切らない。
