こんにちは！ Accessでのシステム開発、日々の試行錯誤お疲れ様です。
マクロの記録から一歩踏み出し、「自分だけの自由なアプリケーションを作りたい！」そう思ってVBAを学び始めると、最初の大きな壁にぶつかりますよね。
「別のフォームを開くときに、今の選択情報をどうやって持っていくんだ……？」と。
ここで多くの人がやりがちなのが、グローバル変数に値を突っ込んでおき、開いた先のフォームでそれを読みに行くという手法。
……おっと、顔をしかめないでください。動くには動きますが、これ、システムの規模が大きくなるにつれて「どのタイミングで変数が書き換わったかわからない」というスパゲッティコードの温床になり、メンテナンス地獄への片道切符になってしまいます。
今回は、Accessが標準で用意してくれている超強力なパスポート、`OpenArgs`（オープン・アークス）を使った、スマートでエレガントな画面遷移の極意を伝授しましょう。
ここをクリアすれば、あなたのAccess VBAのスキルは間違いなく中級者の領域に突入します。一緒にマスターしていきましょう！
—
1. なぜ「OpenArgs」なのか？ 画面遷移の本質を知る
まず、オブジェクトのライフサイクルの話を少しだけさせてください。
Accessでフォームを開くとき（`DoCmd.OpenForm`）、裏側では何が起きているでしょうか？
1. フォームの設計図（オブジェクト）がメモリ上に読み込まれる（`Load`イベント）
2. 画面に表示される（`Open`イベント）
ここで問題になるのが、「フォームが生まれる瞬間（Load）に、外からデータを手渡ししたい」というニーズです。
よくある初心者向け解説では、「カンマ区切りで `ID, Mode, Date` みたいな文字列を渡して、後から `Split` 関数でバラせばいいよ」と教えられます。
……確かにそれでも動きますが、引数の順番を間違えたり、項目が増えた途端にコードが崩壊したりと、現場では使い物になりません。
プロの現場で使われるアプローチはこうです。
「意味を持った名前付きのパラメータ（構造化データ）として渡し、受け取り側で美しく解釈（パース）する」
今回は、これを極めてシンプル、かつ実務でそのまま使えるコードで実現してみましょう。
—[PR/広告エリア]—
「Accessでのデータ管理にも限界を感じてきた……」そんなあなたへ。本格的なWebシステムへの移行や、クラウドDB連携の設計もお手伝いします。現場の悩みを解決するアーキテクトの技術支援、いつでもご相談ください。
———————-
—
2. 実践：顧客詳細フォームへ「モード」と「顧客ID」をスマートに渡す
イメージしてください。
「顧客一覧フォーム」から、ある時は「詳細閲覧モード」で、ある時は「新規作成モード」で、共通の「顧客詳細フォーム」を呼び出したいとします。
渡したいパラメータは以下の2つです。
1. 処理モード (`View` または `Edit`)
2. 対象の顧客ID (`105` など)
これを、次のようなルール（書式）で結合して `OpenArgs` に乗せます。
`”Mode=Edit;CustomerID=105″`
まるでWebのURLクエリ文字列のようですね。これなら順番を気にする必要もありませんし、後から項目を追加するのも容易です。
呼び出し側のコード（一覧フォーム）
まずは、一覧フォームのボタンをクリックしたときのコードです。
Private Sub cmdOpenDetail_Click()
Dim strOpenArgs As String
Dim lngCustomerID As Long
‘ 選択されている顧客IDがあると仮定
If Me.List_Customers.ListIndex = -1 Then
MsgBox “対象の顧客を選択してください。”, vbExclamation, “選択エラー”
Exit Sub
End If
lngCustomerID = Me.List_Customers.Column(0)
‘ 【重要】渡したいデータを「キー=値;」の形式で組み立てる
strOpenArgs = “Mode=Edit;CustomerID=” & lngCustomerID
‘ DoCmd.OpenFormの引数（OpenArgs）に文字列を仕込んでフォームを開く
DoCmd.OpenForm FormName:=”frmCustomerDetail”, _
View:=acNormal, _
WindowMode:=acDialog, _
OpenArgs:=strOpenArgs
‘ フォームが閉じられた後の処理（必要に応じて一覧を再描画）
Me.Requery
End Sub
ここがポイント！
`OpenArgs` 引数には、任意の文字列を1つだけ突っ込むことができます。ここに先ほど作った `strOpenArgs` を指定するだけで、Accessが安全に新しいフォームへその荷物を届けてくれます。
—
3. 受け取り側のコード（詳細フォームの初期化）
次に、呼び出された側のフォーム（`frmCustomerDetail`）の `Load` イベント（または `Open` イベント）を記述します。
ここで、受け取った文字列を分解し、フォームの振る舞いを動的にコントロールします。
Private Sub Form_Load()
Dim vArgs As Variant
Dim strMode As String
Dim lngID As Long
‘ 1. OpenArgsが空っぽで直接開かれた場合のガード処理（超重要！）
If IsNull(Me.OpenArgs) Or Me.OpenArgs = “” Then
MsgBox “不正な呼び出しです。一覧画面から開いてください。”, vbCritical
DoCmd.Close acForm, Me.Name
Exit Sub
End If
‘ 2. パラメータを解析して値を取り出す（共通関数を使うとさらにスマート）
strMode = GetArgValue(Me.OpenArgs, “Mode”)
lngID = Val(GetArgValue(Me.OpenArgs, “CustomerID”))
‘ 3. 取得したパラメータに基づいてフォームを動的制御
Select Case strMode
Case “Edit”
Me.Caption = “顧客情報 編集 (ID: ” & lngID & “)”
‘ 該当レコードを検索して表示する処理
Me.RecordSource = “SELECT FROM T_Customers WHERE CustomerID = ” & lngID
Me.AllowEdits = True
Case “New”
Me.Caption = “新規顧客登録”
DoCmd.GoToRecord , , acNewRec
Case Else
MsgBox “未知のモードです: ” & strMode, vbExclamation
DoCmd.Close acForm, Me.Name
End Select
End Sub
おまけ：文字列からピンポイントで値を取り出す「便利関数」
先ほどのコードで登場した `GetArgValue` という関数、実は標準機能にはありません。しかし、これを標準モジュールに一つ書いておくだけで、あなたのVBAライフは劇的に変わります。
標準モジュール（例: `modCommon` など）に以下のコードを貼り付けておいてください。
‘——————————————————————
‘ OpenArgsの文字列(“Key1=Val1;Key2=Val2;”)から指定したキーの値を取り出す
‘——————————————————————
Public Function GetArgValue(ByVal SourceArgs As String, ByVal Key As String) As String
Dim pairs() As String
Dim kv() As String
Dim i As Long
GetArgValue = “”
‘ セミコロンで分割
pairs = Split(SourceArgs, “;”)
For i = LBound(pairs) To UBound(pairs)
If InStr(pairs(i), “=”) > 0 Then
kv = Split(pairs(i), “=”)
If Trim(kv(0)) = Key Then
GetArgValue = Trim(kv(1))
Exit Function
End If
End If
Next i
End Function
この関数さえあれば、`GetArgValue(Me.OpenArgs, “Mode”)` のように書くだけで、何番目のデータだったかを気にする必要もなく、安全に値を取り出すことができます。
—
4. 陥りやすい罠とエンジニアからのアドバイス
最後に、実務でこの手法を使うときに絶対にハマるポイントをシェアしておきます。
罠①：OpenArgsが「Null」のときのクラッシュ
他のフォームから開かれることを前提としているフォームを、開発中にデザインビューから直接「フォームビュー」で開こうとしたことはありませんか？
その瞬間、`Me.OpenArgs` は `Null` になります。
先ほどのコードにも入れましたが、「受け取り側の最初で必ず `IsNull(Me.OpenArgs)` のチェックを入れて、想定外の開き方をされたら即座に閉じる（`DoCmd.Close`）」という防御的プログラミングを絶対に忘れないでください。これをサボると、VBAのエラー画面がポップアップしてユーザーを恐怖に陥れることになります。
罠②：文字列インジェクションへの意識
今回は解説の簡略化のため、SQL文の中に直接 `lngID` を結合していますが、もし `OpenArgs` にユーザーが自由に入力できるテキストなどをそのまま渡す場合は、シングルクォーテーションの囲み忘れや、SQLインジェクション的な不具合（特殊文字のエスケープ）に注意してください。IDや数値など、型が明確なものを渡すのが一番安全です。
—
まとめ
いかがでしたでしょうか？
`OpenArgs` をただの「文字の受け渡し箱」ではなく、「構造化されたリクエストの伝達手段」として捉えることで、フォームの再利用性が一気に跳ね上がったはずです。
- 呼び出し側：`”Key=Value;Key=Value;”` の形でパラメータを組み立てて渡す。
- 受け取り側：必ず `IsNull` チェックを行い、安全に値をパースしてフォームを料理する。
ここをクリアすれば、もうグローバル変数の迷宮に迷い込むことはありません。
あなたの作るAccessアプリケーションが、より堅牢で、メンテナンス性の高いプロフェッショナルなシステムになることを、心から応援しています。
それでは、また次の極限知見でお会いしましょう！バッチリ使いこなしてくださいね！
