【実務・中級編】フォームの「OnLoad」と「OnOpen」の実行順序を理解した、安全な初期化処理の設計 – Access VBA解析バイブル

Access VBAを掌握する極限の知見：Formの「Open」と「Load」の境界線を見極めろ

開発現場でよく見かけるバグがある。
「フォームを開いた瞬間に、テキストボックスの値を書き換えようとしたら実行時エラーになった」
「コンボボックスのリストに動的クエリを割り当てようとしたら、タイミングによって落ちる時がある」

原因の多くは、Accessフォームのライフサイクル、特に `OnOpen` と `OnLoad` の実行順序と役割の混同 にある。

今回は、数多くのAccess基幹システムを構築してきたアーキテクトの視点から、この2つのイベントの正体を完全に暴き、明日から現場で使える「絶対に破綻しない安全な初期化処理の設計手法」を伝授する。

—

1. フォームライフサイクルの真実：Open と Load の決定的な違い

まずは、Accessがフォームを画面に表示するまでの内部シーケンスを正確に把握してほしい。

1. `Open` イベント (Form_Open)

• 何をするところか: フォームの「設計図」がメモリ上に読み込まれ、ウィンドウが開こうとしている状態。
• 主導権: キャンセル可能 (`Cancel = True` が使える唯一の場所)。
• 注意点: この時点では、フォーム上のコントロール（テキストボックスやボタンなど）はまだインスタンス化されているが、「データ」や「コントロールの内部プロパティ（Value等）」には触ってはいけない領域がある。データソースのバインドも完了していない。

2. `Load` イベント (Form_Load)

• 何をするところか: レコードソースからデータが読み込まれ、コントロールの初期化が完了し、画面に描画される直前の状態。
• 主導権: キャンセル不可。
• 注意点: コントロールの値（`Value`）へのアクセス、フォーカス制御、動的なコントロールの操作は、すべてこの `Load` 以降で行うべきである。

なぜ「Open」で値をいじると壊れるのか？

`Open` イベントの段階でコントロールの `Value` や `RecordSource` を強引に操作しようとすると、Accessエンジンは「まだ準備ができていないデータや構造へのアクセス」と判断し、エラーを吐くか、最悪の場合は暗黙のバグ（ゴーストデータ）を抱え込むことになる。

—

2. 現場で即破綻する「アンチパターン」

以下のコードを見てほしい。よくある初心者の実装だが、プロの現場では即リジェクト対象だ。

‘ 【絶対やってはいけないアンチパターン】
Private Sub Form_Open(Cancel As Integer)
‘ ✕ NG: Openイベントでコントロールの値を変更しようとしている
Me.txtStatus = “初期化中…”

‘ ✕ NG: 実行時引数（OpenArgs）の検証前にデータ操作を行っている
Me.RecordSource = “SELECT FROM T_Master WHERE Category = ” & Me.OpenArgs
End Sub

何が問題なのか？

• `Open` イベントで `Me.txtStatus` にアクセスした瞬間、コントロールのインスタンス化が強制され、予期せぬタイミングでバインドが歪む。
• `OpenArgs` の受け渡しや画面の振る舞い制御は `Open` で行うべきだが、データの流し込みやコントロールの初期化をごちゃ混ぜにすると、保守不能なスパゲッティコードの完成となる。

—

3. プロダクションコード：安全な初期化パイプラインの設計

では、どう設計すべきか。
答えは明確だ。「責務の分離（Separation of Concerns）」を徹底する。

• `Open` イベント: 「このフォームを開いてよいか？」のガード条件（バリデーション・引数チェック）に徹する。開くべきでなければ `Cancel = True` で即座に中止する。
• `Load` イベント: フォームのデータおよびコントロールの初期化（UIの構築）を行う。

以下に、実務でそのまま使える堅牢なテンプレートコードを提示する。

Option Compare Database
Option Explicit

‘ =========================================================================
‘ フォーム名: frmClientDetail
‘ 概要: 顧客詳細フォームの安全なライフサイクル管理
‘ =========================================================================

‘ — 1. ガード条件の判定フェーズ —
Private Sub Form_Open(Cancel As Integer)
On Error GoTo ErrorHandler

‘ 【鉄則】OpenArgsの型チェックと存在チェックは必ずOpenで行う
If IsNull(Me.OpenArgs) Or Not IsNumeric(Me.OpenArgs) THEN
MsgBox “不正な呼び出しです。顧客IDが指定されていません。”, vbCritical, “システムエラー”
Cancel = True ‘ フォームのオープンを完全にキャンセル
Exit Sub
End If

‘ 必要な外部リソースや前提条件のチェックをここに記述
If Not CheckDatabaseConnection() Then
MsgBox “データベース接続が不安定です。”, vbCritical, “接続エラー”
Cancel = True
Exit Sub
End If

Exit Sub

ErrorHandler:
Call ShowErrorLog(“Form_Open”, Err.Number, Err.Description)
Cancel = True
End Sub

‘ — 2. データのバインドとUI初期化フェーズ —
Private Sub Form_Load()
On Error GoTo ErrorHandler

Dim lngClientID As Long
lngClientID = CLng(Me.OpenArgs)

‘ 動的なレコードソースの割り当て（必要に応じて）
Me.RecordSource = “SELECT FROM T_Clients WHERE ClientID = ” & lngClientID

‘ コントロールの初期値設定（Loadイベントなら安全にアクセス可能）
Me.txtStatus.Value = “参照モード”
Me.txtStatus.ForeColor = RGB(100, 100, 100)

‘ コンボボックスのリストを動的に絞り込む場合
Me.cmbCategory.RowSource = “SELECT CategoryID, CategoryName FROM M_Categories WHERE IsActive = True”
Me.cmbCategory.Requery

‘ UIの初期制御（権限に応じたロックなど）
Call ApplyUserPermissions

Exit Sub

ErrorHandler:
Call ShowErrorLog(“Form_Load”, Err.Number, Err.Description)
‘ Loadイベント以降での致命的エラーはフォームを閉じる
DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

‘ — ヘルパーメソッド群 —
Private Function CheckDatabaseConnection() As Boolean
‘ ダミーの接続確認ロジック（実際にはCurrentDbの健全性などを確認）
CheckDatabaseConnection = True
End Function

Private Sub ApplyUserPermissions()
‘ 簡易的な権限制御の例
If CurrentUser() <> “Admin” Then
Me.cmdDelete.Enabled = False
End If
End Sub

Private Sub ShowErrorLog(ByVal procedureName As String, ByVal errNum As Long, ByVal errDesc As String)
‘ 実際の現場ではエラーログテーブルへの書き込みやイベントログ出力を行う
MsgBox “[” & procedureName & “] エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & errNum & vbCrLf & _
“内容: ” & errDesc, vbCritical
End Sub

—

4. チーフアーキテクトからの実践的アドバイス

① `CurrentDb` の使い所に気をつけろ

`Load` イベント内でデータを取得するために `CurrentDb.OpenRecordset` を多用する場合、オブジェクトの解放（`Set rs = Nothing`）を絶対に忘れてはならない。Access VBAはガベージコレクションが強力ではないため、フォームの数だけメモリリークが蓄積し、やえ知れず「リソース不足」エラーを引き起こす。

② タイミング制御の最終防衛ライン「Current」イベント

もし「レコードが移動するたびにコントロールを初期化したい」という要件であれば、`Open` でも `Load` でもなく、`Current` イベントを使う必要がある。`Load` はフォームのライフサイクルにおいて「最初の一回」しか通らないことを忘れてはならない。

—

総括

Access VBAによる開発は、一見するとローコードツールのような手軽さがある。しかし、オブジェクトモデルのライフサイクル（特に `Open` と `Load` の境界）を無視した実装は、数カ月後の改修時、あるいはデータ量が増大した瞬間に必ずシステムを崩壊させる。

「どこで何がメモリ上に存在し、どのタイミングでデータが流し込まれるのか」
この物理的なロード順序を頭に叩き込み、安全な初期化パイプラインを設計してほしい。あなたの書くコードの堅牢性が、そのまま業務システムの信頼性に直結するのだから。