グローバル変数よ、さらば！`DoCmd.OpenForm`の「OpenArgs」で実現する洗練された画面間データ連携
こんにちは！Access VBAでの開発、楽しんでいますか？
マクロの自動記録から一歩踏み出し、「自分でコードを書いて画面（フォーム）を動かせるようになった！」という段階に入ると、必ずぶつかる壁があります。
それが「メイン画面で選んだデータのIDを、詳細画面に渡したいけれど、どう書くのが正解なんだろう？」という悩みです。
よくある初心者の方の解決策として、「標準モジュールに `Public g_CustomerID As Long` みたいなグローバル変数を作って、そこに一時保存する」という方法があります。
確かに動きます。動くのですが……実はこれ、将来のバグの大増殖を引き起こす「悪魔の甘い罠」なのです！
今回は、グローバル変数に頼らず、Accessが標準で用意してくれているエレガントな仕組み「OpenArgs（オープン・アーギュメンツ）」を使ったスマートな画面間データ連携を徹底解説します。ここをマスターできれば、あなたのAccess VBAの基礎知識は一気にプロレベルへと引き上がりますよ！
—
1. なぜ「グローバル変数」を使ってはいけないのか？
解説に入る前に、少しだけ「なぜグローバル変数が危険なのか」をお話しさせてくださいね。
標準モジュールで定義した `Public` 変数は、データベースが開いている間、いつでも・どこからでも読み書きできてしまいます。
【グローバル変数の恐怖】
[画面A] ──(g_ID = 100 をセット)──> [画面Bが開く]
│
(途中で画面Cが開いて g_ID = 999 に書き換えた！)
↓
[画面B] ──(g_IDを使って処理… あれ？100じゃない！バグ発生！)
このように、「いつ・誰が値を書き換えたのか追跡不能になる（＝密結合な状態）」のが最大のデメリットです。また、フォームを閉じても値がメモリに残るため、予期せぬ挙動の原因になります。
解決策：疎結合（そけつごう）を目指そう
プログラムの世界では、画面同士がお互いの内部事情を知りすぎず、「呼び出す時に必要なデータだけを手渡す」という関係性が理想とされています。これを「疎結合」と呼びます。
この「手渡し」を実現するバトンこそが、`DoCmd.OpenForm` の `OpenArgs`（引数） なのです！
—
2. OpenArgs（引数）の基本構造
使い方はとってもシンプルです。「送る側」と「受け取る側」の2ステップで完了します。
【OpenArgsによるスマートなデータ連携】
[ 呼び出し元フォーム ] [ 呼び出されるフォーム ]
┌────────────────────────┐ ┌────────────────────────┐
│ DoCmd.OpenForm │ ─── “1001” (OpenArgs) ───> │ Form_Open / Form_Load │
│ “frmDetail”, … │ │ Me.OpenArgs で受け取る│
└────────────────────────┘ └────────────────────────┘
呼び出し側の基本文法
DoCmd.OpenForm フォーム名, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs
末尾にある最後の引数（第7引数）が `OpenArgs` です。ここに渡したい文字列を指定します。
受け取り側の基本文法
受け取り側のフォームコード内では、`Me.OpenArgs` というプロパティを参照するだけで、送られてきたデータを取り出すことができます。
—
3. 【実践レベル1】単一のデータを渡す基本コード
それでは、具体的なコードを見ていきましょう。
「顧客一覧画面（`frmCustomerList`）」から「顧客詳細画面（`frmCustomerDetail`）」を開き、選択された「顧客ID」を渡す例です。
1. 送信側（一覧画面のボタンクリックイベント）
Private Sub btnOpenDetail_Click()
‘ 顧客IDが選択されているか確認
If IsNull(Me.txtCustomerID) Then
MsgBox “対象の顧客を選択してください。”, vbExclamation, “確認”
Exit Sub
End If
Dim targetID As String
targetID = CStr(Me.txtCustomerID.Value)
‘ OpenArgsに「顧客ID」を載せて詳細画面を開く
‘ ※引数の位置を分かりやすくするため、名前付き引数(OpenArgs:=)を使っています
DoCmd.OpenForm FormName:=”frmCustomerDetail”, _
DataMode:=acFormEdit, _
OpenArgs:=targetID
End Sub
2. 受信側（詳細画面のイベントプロシージャ）
受信側では、「画面が開く瞬間（Form_Open）」と「データが読み込まれる瞬間（Form_Load）」のライフサイクルを意識することが重要です。
Private Sub Form_Open(Cancel As Integer)
‘ 【ポイント1】Guard Clause (ガード構文)
‘ OpenArgsが渡されていない（直接フォームを開こうとした）場合は開かせない
If IsNull(Me.OpenArgs) Then
MsgBox “この画面は一覧画面から開いてください。”, vbExclamation, “不正なアクセス”
Cancel = True ‘ フォームのオープンをキャンセル
Exit Sub
End If
End Sub
Private Sub Form_Load()
‘ 【ポイント2】渡されたOpenArgsを使ってデータを抽出する
Dim customerID As Long
customerID = CLng(Me.OpenArgs)
‘ 抽出条件を設定してレコードを表示
Me.Filter = “CustomerID = ” & customerID
Me.FilterOn = True
End Sub
💡 先輩エンジニアのワンポイントアドバイス
`Form_Open` イベントで `Cancel = True` と書くと、フォームがメモリに読み込まれる前に安全にオープン処理を中止できます。開発中のテストで直接詳細フォームを開いてしまってエラーになるのを防ぐ、超重要テクニックです！
—
4. 【実践レベル2】複数のデータを一度に渡すプロの技
「でも先輩、`OpenArgs` って文字列1つしか渡せないですよね？『ID』と『編集モード』の2つを渡したい時はどうするんですか？」
良い質問ですね！実はプロの現場では、複数のパラメータを区切り文字（カンマやパイプ記号）で連結して1つの文字列にして送信するという手法を使います。
1. 送信側（複数パラメータの連結）
Private Sub btnEdit_Click()
Dim custID As String
Dim mode As String
Dim openArgsString As String
custID = CStr(Me.txtCustomerID.Value)
mode = “EDIT” ‘ 編集モードという情報を追加
‘ 区切り文字「|」（パイプ）で連結する
openArgsString = custID & “|” & mode
‘ 例: “1001|EDIT” という文字列が渡される
DoCmd.OpenForm FormName:=”frmCustomerDetail”, OpenArgs:=openArgsString
End Sub
2. 受信側（Split関数による分解）
受信側では、VBAの `Split` 関数を使って文字列をバラバラに分解します。
Private Sub Form_Load()
‘ OpenArgsが空なら処理しない
If IsNull(Me.OpenArgs) Then Exit Sub
Dim params() As String
‘ パイプ記号「|」で文字列を分割して配列に格納
params = Split(Me.OpenArgs, “|”)
‘ 配列要素の取り出し
‘ params(0) -> 顧客ID (“1001”)
‘ params(1) -> 動作モード (“EDIT”)
Dim customerID As Long
Dim opMode As String
customerID = CLng(params(0))
opMode = params(1)
‘ モードに応じた画面制御
If opMode = “EDIT” Then
Me.AllowEdits = True
Me.lblTitle.Caption = “顧客情報 – 編集”
ElseIf opMode = “VIEW” Then
Me.AllowEdits = False
Me.lblTitle.Caption = “顧客情報 – 参照”
End If
‘ フィルタ適用
Me.Filter = “CustomerID = ” & customerID
Me.FilterOn = True
End Sub
—
5. よくある陥りやすいエラーと回避策
`OpenArgs` を使う際に、初心者がハマりがちな2大エラーとその対策を整理しておきましょう。
❌ エラー1：実行時エラー ’94’: Invalid use of Null (Nullの使い方が不正です)
- 原因: 呼び出し元から `OpenArgs` を渡していないのに、受け取り側で `CLng(Me.OpenArgs)` や `Split(Me.OpenArgs, …)` を実行した。
- 対策: 必ず `IsNull(Me.OpenArgs)` または `Nz(Me.OpenArgs, “”)` を使って、Nullチェックを行ってから処理に入ること。
❌ エラー2：型が一致しません (Type Mismatch)
- 原因: `OpenArgs` は常に文字列型（String）として渡されます。数値として扱いたい場合は、受け取り側で `CLng()` や `CInt()` を使って明示的に型変換を行う必要があります。
—
まとめ：疎結合なコードが、あなたをバグの悪夢から救う
今回のまとめです。
1. グローバル変数は極力使わない（データがどこで変わったか追えなくなるため）
2. `DoCmd.OpenForm` の第7引数 `OpenArgs` を活用する
3. 受け取り側では `Form_Open` でNullチェックを行い、安全にキャンセルできるようにする
4. 複数データを渡したい時は `Split` 関数と区切り文字を使う
最初から完璧に書く必要はありません。まずは「IDを1つ渡して画面を開く」ところから試してみてください。
グローバル変数から卒業し、`OpenArgs` によるスマートな画面遷移が書けるようになったら、あなたはもう立派な「脱・初心者」です！Access VBAの基本構造はしっかりマスターできたと言って間違いありません。
自信を持って、綺麗なコードを書き進めていってくださいね。応援しています！
