こんにちは！Access VBAの開発現場で、日々フォームやクエリと格闘していませんか？
マクロの記録から一歩踏み出し、「さあ、本格的にVBAでフォームを制御するぞ！」と意気込んだものの、なぜかコードが意図したタイミングで動かなかったり、突然「実行時エラー」に悩まされたり……。そんな経験はありませんか？
実は、Accessのフォームには「生まれた瞬間」から「画面に表示されるまで」の厳格なライフサイクル（寿命と状態の遷移）が存在します。ここを理解していないと、どれだけ綺麗なコードを書いたところで、Accessの神様に嫌われてエラーの連続になってしまいます。
今回は、フォームの初期化において最も重要な「OnOpen」と「OnLoad」の実行順序をテーマに、安全で美しい初期化処理の設計方法を、優しく、そして本質的なところまで徹底的に解説していきますね。
ここをクリアすれば、あなたのAccess VBAのスキルは一段上のステージに到達します。一緒にバッチリマスターしていきましょう！
—
1. フォームのライフサイクルを知る：Open と Load の決定的な違い
まずは、フォームを開いたときにAccessの内部で何が起きているのか、そのタイムラインを覗いてみましょう。
フォームが表示されるまでには、いくつかのイベントが連続して発生しますが、中でも混同しやすいのが次の2つです。
1. `Open` イベント（窓口のオープン）
2. `Load` イベント（家具の配置と内装の完了）
この2つの違い、イメージできますか？
図解：フォームが画面に現れるまでの裏側
[ユーザーがフォームを開く操作]
↓
1. Open イベント発生 ──> 「フォームの枠組み（器）」がメモリ上に作られた瞬間
↓ (ここでデータソースの差し替えやキャンセル判定ができる)
2. 読み込み (RecordSourceのデータ取得)
↓
3. Load イベント発生 ──> 「コントロール（テキストボックス等）」が配置され、準備完了した瞬間
↓ (ここでコントロールの初期値設定やデザイン調整ができる)
↓
4. Paint イベント ──> 画面描画
↓
[ユーザーの目にフォームが映る]
- `Open` は「器」の話：
フォームという入れ物がメモリ上にロードされ始めた段階です。まだ中のコントロール（テキストボックスやボタン）には触れません。しかし、「今日の権限ではこのフォームを開かせない！」といったキャンセル（Cancel = True）の判断は、このOpenイベントでしかできません。
- `Load` は「中身」の話：
フォームの器ができ、データが読み込まれ、中に配置されたすべてのコントロールが実体化した状態です。したがって、「テキストボックスに初期値を入れる」「コンボボックスのリストを動的に書き換える」といったコントロール操作は、すべてこのLoadイベント以降で行う必要があります。
—
2. 初学者がやりがちな「タブー」と陥りやすいエラー
ここで、よくある現場の悲劇を見てみましょう。
「フォームが開いたときに、テキストボックス `txtWelcome` に挨拶メッセージを表示させたい！」と思ったA君は、次のようなコードを書きました。
‘ 【やってしまいがちなNGコード】
Private Sub Form_Open(Cancel As Integer)
‘ Openイベントでコントロールを操作しようとする
Me.txtWelcome.Value = “ようこそ、Accessの世界へ！”
End Sub
これを実行するとどうなるでしょうか？
運悪く（あるいは当然のように）、Accessから冷酷なエラーが突きつけられます。
> 実行時エラー ‘2448’:
> 「オブジェクトに値を代入することはできません。」
「えっ、テキストボックスはあるのに、なぜ！？」「コードのスペルも間違っていないのに！」
A君のようにパニックになる初学者は後を絶ちません。
エラーの正体
これは、「まだコントロール（器の中の家具）がこの世に存在していない（インスタンス化されていない）のに、家具にペンキを塗ろうとした」ために起きたエラーです。`Open` イベントの時点では、`Me.txtWelcome` はまだアクセスのメモリ上で「概念」としてしか存在していません。実体がないものに値を代入しようとしたため、Accessが怒り出したというわけです。
—
3. 【実践】安全な初期化処理の設計パターン
では、正しくエラーを防ぎ、美しくフォームを初期化するにはどうすればよいのでしょうか？
答えはシンプルです。「役割に応じてイベントを完全に使い分けること」です。
実際の現場でそのまま使える、堅牢な初期化処理のテンプレートコードを見てみましょう。
Option Compare Database
Option Explicit
‘ =====================================================================
‘ イベント名: Form_Open
‘ 役割: フォームを開くかどうかの「判定」と「データソースの動的変更」
‘ =====================================================================
Private Sub Form_Open(Cancel As Integer)
On Error GoTo ErrorHandler
‘ 【例1】ユーザーの権限チェックなどを行って、開くのをキャンセルする場合
‘ If CurrentUser() <> “Admin” Then
‘ MsgBox “このフォームを開く権限がありません。”, vbCritical, “アクセス権限エラー”
‘ Cancel = True ‘ フォームのオープンを中止する
‘ Exit Sub
‘ End If
‘ 【例2】状況に応じてフォームのデータソース（RecordSource）を動的に切り替える
‘ 例：引数やグローバル変数によって読み込むテーブルを変える場合
‘ Me.RecordSource = “T_Log_Archive”
Exit Sub
ErrorHandler:
MsgBox “Form_Openでエラーが発生しました: ” & Err.Description, vbCritical
Cancel = True
End Sub
‘ =====================================================================
‘ イベント名: Form_Load
‘ 役割: コントロールの初期値設定や、画面の見た目の制御
‘ =====================================================================
Private Sub Form_Load()
On Error GoTo ErrorHandler
‘ ここではすべてのコントロール（テキストボックス等）の実体が完成しています。
‘ 1. テキストボックスに初期値を設定する
Me.txtInputDate.Value = Date ‘ 本日の日付をセット
Me.txtStatus.Value = “新規作成”
‘ 2. コンボボックスの初期選択や値のクリア
Me.cmbCategory.Value = Null
‘ 3. 新規入力モードに応じたコントロールの有効/無効の切り替え
Me.txtID.Enabled = False ‘ IDは自動採番のため編集不可にする
Exit Sub
ErrorHandler:
MsgBox “Form_Loadでエラーが発生しました: ” & Err.Description, vbCritical
End Sub
このコードの美しいポイント
- 責務の分離が明確： 「開くべきか・データをどうするか」は `Open` で、「画面のパーツをどう初期化するか」は `Load` で完全に分かれています。
- 堅牢なエラーハンドリング： 万が一予期せぬエラーが起きても、`On Error GoTo` があることで、Accessがいきなり強制終了するのを防ぎ、ユーザーに優しいメッセージを返すことができます。特に `Open` イベント内でエラーが起きたときは `Cancel = True` を挟むことで、中途半端な状態でフォームが開いてしまうバグを防げます。
—
4. チーフアーキテクトからのアドバイス
実務でAccessVBAを書くとき、私たちは常に「オブジェクトの寿命（ライフサイクル）」を意識する必要があります。
「とりあえず動けばいいや」とすべての初期化処理を `Open` に詰め込んだり、逆に何でもかんでも `Load` に突っ込んで「なぜか値が入らない」と悩むのは、もう今日で終わりにしましょう。
- 「フォームそのものの設定・データの準備」なら `Open`
- 「フォームの中にある部品の初期化」なら `Load`
この黄金律を頭の片隅に置いておくだけで、あなたの書くコードの不具合率は劇的に下がり、メンテナンス性の高いプロフェッショナルなシステムへと生まれ変わります。
ここをクリアすれば、Access VBAの基本のキはもうバッチリです！
ぜひ次の開発案件から、このライフサイクルを意識した美しい設計を取り入れてみてくださいね。応援しています！
