Access VBAの深淵へ：OnOpenとOnLoadの「境界線」をマスターして堅牢なシステムを構築する
こんにちは。日々、システムの最適化と戦っている皆さん。
Accessで開発をしていると、必ず一度は頭を抱えるのが「フォームの初期化」ですよね。「なぜかここでエラーが出る」「値がまだ入っていない」。そんな経験はありませんか？
実は、Accessのフォームには「生まれたての瞬間」と「立ち上がる瞬間」という、明確に区別された2つのフェーズが存在します。それが`OnOpen`と`OnLoad`です。
この境界線を支配できるかどうかが、あなたの作るシステムが「たまたま動く不安定なもの」になるか、「堅牢で神速な業務基盤」になるかの分かれ道です。さあ、深淵を覗いてみましょう。
—
1. フォームのライフサイクル：二つの「誕生」
Accessのフォームが画面に現れるまで、以下の順序でイベントが走ります。
1. Open（開く）：データソースに接続し、フォームの「器」を作る段階。
2. Load（読み込む）：フォームが完全に表示され、コントロール（テキストボックスなど）にデータが流れ込む段階。
なぜ「場所」が重要なのか？
初心者のうちは、「とりあえず全部Form_Openに書いておけばいいや」となりがちです。しかし、「データの準備ができていないのに、データを操作しようとする」という矛盾が、Accessにおけるランタイムエラーの最大の原因です。
—
2. 【図解】OnOpenとOnLoadの使い分け
迷ったらこの表を思い出してください。
| イベント | 役割 | できること | やってはいけないこと |
| :— | :— | :— | :— |
| OnOpen | フォームの「準備」 | キャンセル処理、初期フィルター設定 | コントロールの値への直接アクセス |
| OnLoad | フォームの「完成」 | コントロールの制御、動的な表示変更 | フォーム自体のキャンセル処理 |
OnOpenでやるべきこと：門番の役割
`OnOpen`は、「このフォームを開いていいかどうか」を判定する門番です。例えば、「特定の権限がないと開けない」「引数（OpenArgs）で渡された条件が不正なら閉じる」といった処理はここで行います。
Private Sub Form_Open(Cancel As Integer)
‘ フォームの器ができる前の「門番」処理
‘ 例：OpenArgsで渡された値がなければ開かない
If IsNull(Me.OpenArgs) Then
MsgBox “不正なアクセスです。”, vbCritical
Cancel = True ‘ ここでTrueにすると、フォームは開かずに消滅する
Exit Sub
End If
‘ ※注意：ここではまだMe.txt名前.Valueにはアクセスできません！
End Sub
OnLoadでやるべきこと：内装工事の役割
`OnLoad`は、フォームが完成し、データが箱に詰められた後です。ここで初めて、テキストボックスに値を代入したり、ボタンの有効/無効を切り替えたりします。
Private Sub Form_Load()
‘ フォームが完成した後の「内装」処理
‘ ここならコントロールにアクセス可能
Me.txtステータス.Value = “準備完了”
‘ ユーザーの権限に応じてボタンを制御
If CurrentUser() <> “Admin” Then
Me.btn編集.Enabled = False
End If
End Sub
—
3. なぜ「Load」で書くのが安全なのか？
`OnOpen`の段階では、Accessはまだ「どのレコードを表示するか」を確定させている最中です。このタイミングでコントロールの値を参照しようとすると、Accessは「まだ何も入っていない箱」に手を突っ込むことになり、予期せぬエラー（実行時エラー 2448など）を引き起こします。
鉄則：
- 「フォームそのもの」の設定はOpen
- 「中のデータや表示」の設定はLoad
この黄金律を守るだけで、あなたの書くコードの安定感は劇的に向上します。
—
4. 伝説のエンジニアからのアドバイス
「動けばいい」コードから「壊れない」コードへ昇華するためには、イベントの「重み」を感じ取ることが大切です。
- CurrentDbはどこで使う？：`CurrentDb` は `Open` でも `Load` でも使えますが、頻繁に呼び出すなら `Open` 時点でグローバル変数やモジュールレベル変数にセットしておくと、パフォーマンスの微細な向上とコードの可読性アップに繋がります。
- エラーハンドリングの徹底：どんなに完璧な順序でも、データは生き物です。必ず `On Error GoTo` を入れ、何が起きたかをログに残す癖をつけてください。
—
まとめ：今日からできる一歩
1. 今まで `Open` に書いていた処理を見直す。
2. 「コントロールの操作」が含まれているなら、迷わず `Load` へ移動させる。
3. `Open` は「門番（キャンセル制御）」という本来の役割に専念させる。
Access VBAは、一度本質を掴んでしまえば、これほど素直で強力な武器はありません。この「ライフサイクルの理解」という壁さえ越えれば、あなたはもう初心者ではありません。自信を持って、より良いシステムを作り上げてくださいね。
また何か壁にぶつかったら、いつでもここに戻ってきてください。応援しています。
