【Access VBAを掌握する極限の知見】DAO.RecordsetのCloneとBookmarkがもたらす、非連結フォームの超高速検索アーキテクチャ
長年、数百万レコードを抱えるレガシーなAccess基幹システムと向き合ってきたシニアエンジニアなら誰もが知っているジレンマがある。それは、「ユーザビリティ（滑らかな検索UI）」と「パフォーマンス（重厚なデータ処理）」のトレードオフだ。
検索のたびに `Me.Filter` を書き換えたり、`Requery` を発行したりする愚行を犯していないか？
あるいは、非連結フォーム（Unbound Form）の構築にこだわりすぎて、検索のたびに複雑なADO/DAOの走査ロジックを組み、コードベースをスパゲッティ化させていないか？
今回は、DAOの真髄である `Clone` メソッド と `Bookmark` プロパティ を極限まで利用し、連結フォームの利便性を保ちながら、バックグラウンドでミリ秒単位の検索・同期を実現するデザインパターンを解説する。
—
1. なぜ「直接フィルター」や「安易な非連結化」は実務で破綻するのか
大規模データ（数十万件以上）を扱うAccessアプリケーションにおいて、フォームの標準機能である `Me.Filter` や `Me.ServerFilter` は、ネットワーク（またはローカルのJet/ACEエンジン）に対して重い負荷を強いる。
- UIスレッドのブロック: 検索条件が変わるたびにUIが再描画され、カーソルが先頭に戻る。
- カレントレコードの喪失: フィルタリングのたびに現在のフォーカス位置がリセットされ、オペレーターのストレスがマッハで蓄積する。
- 非連結化の罠: すべてを完全な非連結フォームにすると、今度は更新・追加・削除のトランザクション管理、排他制御（楽観的ロック）、ダーティバッファの監視などを自前で実装する地獄が待っている。
ここで登場するのが、「フォームの基盤となるRecordsetのクローンを操作し、必要な瞬間だけBookmarkで同期する」 というアーキテクチャである。
—
2. アーキテクチャの核心：DAO.Recordsetのライフサイクルと同期メカニズム
DAO（Data Access Objects）の `Recordset` オブジェクトには、フォーム上で開かれているレコードセットの「実体」を共有しつつ、独自のポインタ（カレントレコード位置）を持つクローンを作成する `Clone` メソッドが存在する。
[ Access フォーム ] <---( Recordset Clone )---> [ 独立したポインタを持つメモリ上のビュー ]
│ │
└───────────────────( Bookmark )──────────────────────┘
このクローンレコードセットに対し、バックグラウンドで `FindFirst` や `FindNext` を実行し、ヒットしたレコードの `Bookmark` をフォームの `Me.Bookmark` に代入するだけで、フォーム側のカレントレコードが一瞬で転送・同期される。
このアプローチの最大のメリットは以下の通りだ。
1. フォームの描画コストを極限まで抑制できる（不必要な `Requery` を一切排除）。
2. メモリ上で高速なインデックス検索が可能。
3. コードが極めて簡潔でありながら、Accessのネイティブなデータバインドの恩恵を受けられる。
—
3. 実装コード：実務で即戦力となる超高速検索フォームモジュール
以下のコードは、実際のエンタープライズ環境を想定した堅牢な実装だ。エラーハンドリング、オブジェクトの明示的な解放（メモリリークの完全阻止）、そして高速化のための最適化が施されている。
Option Compare Database
Option Explicit
‘ ==============================================================================
‘ 担当モジュール: 顧客検索・高速同期コントローラー
‘ アーキテクチャ概要: DAO Recordset Clone & Bookmark Synchronization Pattern
‘ ==============================================================================
‘ フォームモジュールレベルでのレコードセットクローン保持
Private m_rsClone As DAO.Recordset
Private Sub Form_Load()
On Error GoTo ErrorHandler
‘ フォームのRecordsetCloneをローカル変数に参照させる
‘ ※注意: Form.RecordsetCloneプロパティは呼び出すたびに新規オブジェクトを生成するため、
‘ 必ずLoad時に変数へキャプチャし、Unload時に明示的に解放する。
Set m_rsClone = Me.RecordsetClone
Exit Sub
ErrorHandler:
Call ShowError(“Form_Load”, Err.Number, Err.Description)
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
‘ 【極限の知見】DAOオブジェクトの明示的解放
‘ Access VBAにおけるCOMオブジェクトの解放漏れは、ガベージコレクションの気まぐれに依存するため、
‘ アプリケーション全体のメモリリークやリソース枯渇の元凶となる。必ずここでKillする。
If Not m_rsClone Is Nothing Then
m_rsClone.Close
Set m_rsClone = Nothing
End If
End Sub
‘ ==============================================================================
‘ 検索実行ボタンのイベント
‘ ==============================================================================
Private Sub btnSearch_Click()
On Error GoTo ErrorHandler
Dim strCriteria As String
strCriteria = BuildSearchCriteria()
If strCriteria = “” Then
‘ 条件が空の場合はフィルタを解除して先頭へ
Me.Filter = “”
Me.FilterOn = False
Exit Sub
End If
‘ クローンレコードセットに対して高速検索を実行
m_rsClone.Requery
m_rsClone.FindFirst strCriteria
If m_rsClone.NoMatch Then
MsgBox “該当するレコードが見つかりません。”, vbInformation, “検索結果”
Else
‘ 【核心】ブックマークの同期により、フォームの表示位置を一瞬でジャンプさせる
Me.Bookmark = m_rsClone.Bookmark
End If
Exit Sub
ErrorHandler:
Call ShowError(“btnSearch_Click”, Err.Number, Err.Description)
End Sub
‘ ==============================================================================
‘ 検索条件文字列の動的構築（SQLインジェクション対策・型安全の考慮）
‘ ==============================================================================
Private Function BuildSearchCriteria() As String
Dim criteriaList As New Collection
‘ 顧客名（部分一致）
If Not IsNull(Me.txtSearchName) And Me.txtSearchName <> “” Then
‘ SQLのワイルドカード特殊文字やシングルクォートのエスケープ処理を厳格に行う
Dim escapedName As String
escapedName = Replace(Me.txtSearchName, “‘”, “””)
criteriaList.Add “CustomerName LIKE ‘” & escapedName & “‘”
End If
‘ 顧客ID（完全一致・数値型）
If Not IsNull(Me.txtSearchID) And IsNumeric(Me.txtSearchID) Then
criteriaList.Add “CustomerID = ” & Me.txtSearchID
End If
‘ 条件の結合
If criteriaList.Count > 0 Then
Dim i As Long, result As String
result = criteriaList(1)
For i = 2 To criteriaList.Count
result = result & ” AND ” & criteriaList(i)
Next i
BuildSearchCriteria = result
Else
BuildSearchCriteria = “”
End If
End Function
‘ ==============================================================================
‘ 共通エラーハンドラー
‘ ==============================================================================
Private Sub ShowError(ByVal procName As String, ByVal errNum As String, ByVal errDesc As String)
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“手続き: ” & procName & vbCrLf & _
“エラー番号: ” & errNum & vbCrLf & _
“詳細: ” & errDesc, vbCritical, “システムエラー”
End Sub
—
4. シニアエンジニアが知るべき「裏側の罠」とパフォーマンス・チューニング
このパターンを実務投入するにあたり、以下のアーキテクチャ上の注意点を熟知しておく必要がある。
① `Me.RecordsetClone` の特性とインスタンス肥大化
`Me.RecordsetClone` を参照するたびに、Access内部では新しいDAO Recordsetのインスタンスがメモリ上に生成される。これをイベントやループ内で無造作に呼び出すと、瞬く間にメモリリークを引き起こす。
前述のサンプルコードの通り、`Form_Load` で一度だけ変数にキャプチャし、フォームが破棄される `Form_Unload` で確実に `Close` および `Set Nothing` を行う ことが鉄則である。
② インデックスの効かない検索（フルスキャン）への対策
`m_rsClone.FindFirst` は非常に高速だが、条件式に指定するカラム（例: `CustomerName LIKE ‘xxx’`）にデータベース側のインデックスが存在しない場合、結局のところテーブル全体のフルスキャン（逐次検索）が発生する。
数百万レコード規模のテーブルで前方一致ではなく「中間一致・後方一致」を多用する場合は、Jet/ACEエンジンの仕様限界を超えるため、ローカルの一時テーブル（TempTable）や、必要に応じて外部のSQL Serverへクエリをオフロードする設計（Passthrough Query）への切り替えを検討せよ。
③ 楽観的ロックとマルチユーザ環境での同期ズレ
バックグラウンドのクローンを操作している間、別のユーザーが同一レコードを更新している可能性がある。`Bookmark` を代入した瞬間にフォーム側でコンフリクト（競合）が発生しないよう、Accessのデフォルトのロック動作（ページロック/レコードロック）や、フォームの `OnError` イベントでのエラー番号（例: `Err 3186`, `3197` 等の書き込み競合）をハンドリングする堅牢な設計を忘れてはならない。
—
5. 総括
Access VBAは、しばしば「おもちゃの言語」と揶揄されることがある。しかし、それは言語の限界ではなく、それを使うエンジニアがオブジェクトモデルのライフサイクルやメモリ管理の本質を理解していないことに起因する。
DAO.Recordsetの `Clone` と `Bookmark` を完全に手なずけたとき、Accessは単なる簡易データベースの枠を超え、極めてスケーラブルで俊敏なフロントエンド駆動エンジンへと昇華する。
レガシーの皮をかぶった最速のアーキテクチャを、あなたのシステムにも実装してほしい。
