【Access VBA 深度解説】OpenArgsの呪縛を解く：JSONシリアライズによる高度画面間パラメータ制御の極意
Access VBAにおけるフォーム間のデータ受け渡しにおいて、`DoCmd.OpenForm` の `OpenArgs` 引数は極めて重要な役割を持つ。しかし、この引数が受け付けられるのは単一の `String` 型のみという致命的な制限を抱えている。
実務の現場では、子画面を起動する際に「単一のID」だけでなく、「モード（新規・編集・参照）」「初期フォーカス対象」「親画面のインスタンス参照保持フラグ」「動的なフィルタ条件」など、複数の複雑なコンテキストを同時に伝達したい要求が日常茶飯事だ。
未熟なコードベースでは、これらをカンマ区切りやパイプ区切りで無理やり結合し、子画面側で `Split` 関数を用いてパースするという原始的なハックが横行している。しかし、この手法はパラメータの順序変更に極めて脆弱であり、値の中に区切り文字が含まれた瞬間にシステムが崩壊する脆弱性を孕む。
本稿では、レガシーなAccess環境において、JSON形式の文字列を介した構造化パラメータのシリアライズ・デシリアライズを実装し、堅牢かつ拡張性の高い画面間制御アーキテクチャを構築する極限の知見を公開する。
—
1. なぜ「外部ライブラリなし」のJSON処理が必要なのか
近代的なモダン言語であれば、組み込みのJSONパーサーや強力なオブジェクトマッパーが存在する。しかし、Accessが稼働する閉じたエンタープライズ環境、あるいはクライアント端末へのアドインインストールが厳格に制限されたレガシーネットワークにおいて、外部のCOMコンポーネントやサードパーティ製DLLを勝手に持ち込むことはセキュリティポリシー上、御法度であるケースが多い。
したがって、我々は「VBAネイティブの文字列操作と正規表現」、あるいはWindowsOSに標準搭載されているコンポーネントのみで、実用に足る軽量なJSONハンドリング層を自前で構築しなければならない。
幸いなことに、フォームの `OpenArgs` でやり取りされるJSONは、深層のネストを持つ巨大なドキュメントである必要はほとんどない。大半はフラットなキーバリューの構造体、あるいは一次元の配列程度で完結する。ここに過剰なパーサーを持ち込むことは、メモリ消費量の増加とパフォーマンスの劣化を招くだけである。
—
2. アーキテクチャの全体像
今回構築するアーキテクチャの概念は以下の通りである。
1. 呼出元フォーム (Caller): 渡したいパラメータを連想配列（あるいは自作のPropertyBag/Dictionary）に格納し、簡易JSON文字列へとシリアライズして `DoCmd.OpenForm` の `OpenArgs` に渡す。
2. 遷移 (Transit): Accessのメッセージループとフォームライフサイクルを経て、`OpenArgs` がターゲットフォームへ安全に運ばれる。
3. 呼出先フォーム (Callee): `Form_Load` または `Form_Open` イベントの初期段階で `OpenArgs` を取得し、デシリアライズして内部の構造体変数へ展開する。
—
3. 実装コード：軽量JSONビルダー＆パーサー
以下のコードは、外部依存関係を一切持たず、VBAの標準機能だけでキーバリュー型のJSONを組み立て・分解するためのモジュール（例：`ModJson`）の完成形である。
Option Compare Database
Option Explicit
‘ =====================================================================
‘ Module: ModJson (軽量JSONシリアライザ / デシリアライザ)
‘ 備考: Access VBAのOpenArgs受渡し専用に特化した堅牢な実装
‘ =====================================================================
‘ ———————————————————————
‘ シリアライズ: 簡易的なDictionaryからJSON文字列を生成
‘ ———————————————————————
Public Function SerializeParam(ByRef dict As Object) As String
Dim key As Variant
Dim json As String
Dim val As Variant
json = “{”
For Each key In dict.Keys
val = dict(key)
‘ 文字列の場合はダブルクォーテーションで囲む（簡易エスケープ含む）
If VarType(val) = vbString Then
json = json & “””” & key & “””:””” & EscapeJsonString(CStr(val)) & “””,”
ElseIf VarType(val) = vbBoolean Then
json = json & “””” & key & “””:” & IIf(val, “true”, “false”) & “,”
Else
json = json & “””” & key & “””:” & CStr(val) & “,”
End If
Next key
‘ 末尾のカンマを除去
If Right(json, 1) = “,” then
json = Left(json, Len(json) – 1)
End If
json = json & “}”
SerializeParam = json
End Function
‘ ———————————————————————
‘ デシリアライズ: JSON文字列から指定キーの値を取り出す（正規表現使用）
‘ ———————————————————————
Public Function GetJsonValue(ByVal json As String, ByVal key As String) As String
Dim regEx As Object
Dim matches As Object
Set regEx = CreateObject(“VBScript.RegExp”)
‘ キーに対応する値を抽出する正規表現パターンの構築
‘ 例: “key”\s:\s”([^”])” または “key”\s:\s([^\s,}]+)
regEx.Pattern = “””” & key & “””\s:\s(“”([^””])”|([^,\}]+))”
regEx.IgnoreCase = True
regEx.Global = False
If regEx.Test(json) Then
Set matches = regEx.Execute(json)
Dim subMatches As Object
Set subMatches = matches(0).SubMatches
If subMatches(0) <> “” Then
‘ 文字列値の場合（ダブルクォーテーション内側）
GetJsonValue = subMatches(1)
Else
‘ 数値・真偽値の場合
GetJsonValue = Trim(subMatches(2))
End If
Else
GetJsonValue = “”
End If
Set regEx = Nothing
End Function
‘ ———————————————————————
‘ 内部ユーティリティ: 文字列のエスケープ処理
‘ ———————————————————————
Private Function EscapeJsonString(ByVal str As String) As String
str = Replace(str, “\”, “\\”)
str = Replace(str, “”””, “\”””)
str = Replace(str, vbCrLf, “\n”)
str = Replace(str, vbCr, “\n”)
str = Replace(str, vbLf, “\n”)
EscapeJsonString = str
End Function
—
4. 呼出元フォームでの実装パターン
親フォーム（あるいはメニュー画面）から、複数のパラメータ（顧客ID、操作モード、親画面のウィンドウハンドル等）を構造化して子画面へ送り出す実装例を示す。
ここでは `Scripting.Dictionary` を用いてデータを束ね、JSON文字列に変換した上で `OpenArgs` に乗せている。
‘ =====================================================================
‘ 呼出元フォーム (FrmMain) のイベントプロシージャ
‘ =====================================================================
Private Sub cmdOpenDetail_Click()
Dim paramDict As Object
Dim jsonArgs As String
On Error GoTo ErrorHandler
‘ 1. Dictionaryオブジェクトの生成 (要: Microsoft Scripting Runtime 参照設定、またはCreateObject)
Set paramDict = CreateObject(“Scripting.Dictionary”)
‘ 2. 渡したいパラメータを柔軟に追加
paramDict.Add “Actionmode”, “EDIT”
paramDict.Add “CustomerID”, Me.txtCustomerID.Value
paramDict.Add “TargetYear”, 202X
paramDict.Add “IsReadOnly”, False
paramDict.Add “CallerForm”, Me.Name
‘ 3. JSON文字列へのシリアライズ
jsonArgs = SerializeParam(paramDict)
‘ 4. OpenArgs経由でフォームを開く
DoCmd.OpenForm FormName:=”FrmDetail”, _
View:=acNormal, _
WindowMode:=acDialog, _
OpenArgs:=jsonArgs
‘ 5. 子画面クローズ後の処理（モーダル実行前提）
Call RefreshDataGrid
CleanUp:
Set paramDict = Nothing
Exit Sub
ErrorHandler:
MsgBox “画面の起動に失敗しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
5. 呼出先フォーム（子画面）でのデシリアライズとライフサイクル管理
子画面側では、`Form_Load` イベントの最序盤で `Me.OpenArgs` を監視し、値が存在する場合のみデシリアライズを実行する。これにより、画面単体で直接デザインビューから起動された場合のテスト実行（`Me.OpenArgs` が `Null` の状態）でもエラーを起こさずにフォールバックできる堅牢性を手に入れ能う。
‘ =====================================================================
‘ 呼出先フォーム (FrmDetail) のモジュール
‘ =====================================================================
Option Compare Database
Option Explicit
‘ フォームスコープのパラメータ保持用変数
Private m_ActionMode As String
Private m_CustomerID As Long
Private m_TargetYear As Integer
Private m_IsReadOnly As Boolean
Private m_CallerForm As String
Private Sub Form_Load()
Dim rawArgs As String
On Error GoTo ErrorHandler
‘ OpenArgsの存在チェック（直接起動の考慮）
If Not IsNull(Me.OpenArgs) Then
rawArgs = CStr(Me.OpenArgs)
‘ デシリアライズとメンバ変数へのマッピング
m_ActionMode = GetJsonValue(rawArgs, “Actionmode”)
m_CustomerID = Val(GetJsonValue(rawArgs, “CustomerID”))
m_TargetYear = Val(GetJsonValue(rawArgs, “TargetYear”))
m_IsReadOnly = CBool(GetJsonValue(rawArgs, “IsReadOnly”))
m_CallerForm = GetJsonValue(rawArgs, “CallerForm”)
‘ 取得したパラメータに基づき画面の振る舞いを動的に制御
ApplyContextToUI
Else
‘ フォールバック処理（単体テスト起動時など）
m_ActionMode = “NEW”
m_IsReadOnly = False
End If
Exit Sub
ErrorHandler:
MsgBox “パラメータの解析に失敗しました。不正な引数です。” & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “初期化エラー”
DoCmd.Close acForm, Me.Name
End Sub
‘ ———————————————————————
‘ パラメータに応じたUIコントロールの制御ロジック
‘ ———————————————————————
Private Sub ApplyContextToUI()
‘ モードに応じたタイトルの変更やコントロールのロック制御
Select Case m_ActionMode
Case “EDIT”
Me.Caption = “顧客情報編集 [ID: ” & m_CustomerID & “]”
Me.txtCustomerID.Locked = True
LoadCustomerData m_CustomerID, m_TargetYear
Case “NEW”
Me.Caption = “新規顧客登録”
Me.txtCustomerID.Locked = False
Case Else
Me.Caption = “参照モード”
Me.Detail.Enabled = Not m_IsReadOnly
End Select
‘ 読み取り専用フラグの厳格な適用
If m_IsReadOnly Then
Me.cmdSave.Enabled = False
End If
End Sub
Private Sub LoadCustomerData(lngID As Long, intYear As Integer)
‘ 実際のデータロード処理（ダミー）
‘ Debug.Print “Loading ID: ” & lngID & “, Year: ” & intYear
End Sub
—
6. シニアエンジニアが押さえるべき「メモリ管理」と「パフォーマンス」の極意
Access VBAのオブジェクトモデル、特に `Scripting.Dictionary` や `VBScript.RegExp` を多用する設計において、メモリリークの温床となるポイントを看過してはならない。
1. オブジェクトの確実な破棄 (Explicit Release)
`CreateObject` で生成したインスタンス（DictionaryやRegExp）は、プロシージャのスコープを抜ける際に自動解放される仕様になっているが、複雑なエラーハンドリングやモジュールレベル変数への誤った保持が行われた場合、Accessプロセス内にCOM参照が残存し、メモリフットプリントが肥大化する。
例外発生時（`On Error GoTo`）であっても、確実に `Set xxx = Nothing` を通過するクリーンアップパスを必ず記述すること。
2. 正規表現オブジェクトのインスタンス化コスト
`VBScript.RegExp` はCOMコンポーネントであり、ループ内で毎回 `CreateObject` を呼び出すと深刻なパフォーマンス劣化を引き起こす。今回の実装では単一の `OpenArgs` 解析のために1回呼び出す程度であるため問題ないが、もしこれをグリッドの全行ループなどで適用するような設計を行ってはならない。
高頻度でパース処理を行う必要が生じた場合は、正規表現オブジェクトをフォームまたは標準モジュールのライフサイクルを通じて一度だけ生成し、`Execute` メソッドを使い回す設計（シングルトン的なアプローチ）へ昇華させるべきである。
3. 型変換（Type Coercion）の罠
JSONから抽出される値は、基本すべからく `String` 型である。これをVBAへ渡す際、`Val()` 関数や `CBool()` 関数を用いた明示的な型キャストを怠ると、Variant型の暗黙の型変換による予期せぬ実行時エラー（型が一致しません: Error 13）の直撃を受ける。デシリアライズ層の戻り値を受け取る変数は、必ず厳密な型定義を行い、境界値で確実に型を担保すること。
—
総括
`OpenArgs` の単一引数というレガシーな制約は、JSONという普遍的なデータ構造を薄くアダプトすることで、モダンなアプリケーションアーキテクチャと同等の柔軟な画面間制御へと昇華させることが可能だ。
外部ライブラリへの依存を排除し、VBAのネイティブな特性とメモリライフサイクルを完全に掌握したこの手法は、あなたのAccessシステムを、保守性が高く堅牢なエンタープライズソリューションへと変貌させる確実な一手となる。
