Accessの「全件スキャン」という罪を断つ：DAO.RecordsetとFindFirstによる高速検索の真髄
Access VBAでシステムを組む際、多くの開発者が犯す最大の罪がある。それは、`DLookup`の乱用や、レコードセットの愚直な `MoveFirst` からのループによる「全件スキャン」だ。
数千件程度のデータであればVBAの隠蔽能力で誤魔化せるかもしれない。だが、レコード数が数万、数十万を超えた瞬間、ユーザーは「Accessは遅い」と吐き捨てる。しかし、遅いのはAccessではない。君のコードだ。
今日は、インデックスを最大限に活用し、メモリを汚さず、CPUサイクルを最小化する「真の検索エンジン」の構築術を伝授する。
—
1. なぜ「DAO.Recordset」なのか？
ADOではなく、なぜ今さらDAOなのか。それは、Accessのデータベースエンジン（ACE/Jet）との親和性が、DAOにおいてのみ極限まで高められているからだ。
特に `FindFirst` メソッドは、テーブルに適切なインデックスが貼られていれば、B-Tree構造を辿り、対数時間（O(log n)）で目的のレコードに到達する。これを無視してループを回すのは、図書館で本を探すのに、端から順に全棚をチェックするようなものだ。
2. 高速検索エンジンの実装パターン
以下は、メモリリークを許さず、インデックスを確実にヒットさせるための定石テンプレートだ。
‘ @brief インデックスを最大限活用した高速検索関数
‘ @param strCriteria 検索条件 (SQLのWHERE句からWHEREを除いた文字列)
Public Function GetTargetRecord(ByVal targetID As Long) As DAO.Recordset
Dim db As DAO.Database
Dim rs As DAO.Recordset
‘ 外部接続ではなく、現在接続中のワークスペースを確実に利用する
Set db = CurrentDb
‘ RecordsetTypeを明示し、インデックスが効くダイナセット型を選択
‘ dbOpenDynasetはインデックスによるFindFirstをサポートする
Set rs = db.OpenRecordset(“SELECT FROM T_MasterData”, dbOpenDynaset)
‘ 検索条件の構築 (インデックス列を必ず使用すること)
‘ 検索フィールドにインデックスがない場合、この一行は全件スキャンに堕ちる
rs.FindFirst “ID = ” & targetID
If rs.NoMatch Then
‘ 見つからない場合の処理を明示的に記述
rs.Close
Set rs = Nothing
Set GetTargetRecord = Nothing
Else
Set GetTargetRecord = rs
End If
‘ dbオブジェクトはCurrentDbの戻り値であり、
‘ 参照カウンタの仕組み上、ローカル変数の解放だけで十分だが
‘ 明示的解放を習慣づけることでメモリ汚染を根絶する
Set db = Nothing
End Function
—
3. シニアエンジニアが意識すべき「隠れたコスト」
A. インデックスの「死」を看破する
`FindFirst` がどれほど優秀でも、検索条件に指定したカラムにインデックスが張られていなければ、結局はテーブルフルスキャンが発生する。
- 鉄則: `CurrentDb.TableDefs(“T_MasterData”).Indexes` を走査し、検索対象のカラムに `Unique` または `Indexed` が有効かを確認するデバッグルーチンを常にCIに組み込むこと。
B. カレントレコードのポインタ移動
`FindFirst` はカレントレコードポインタを移動させる。同一レコードセット内で複数の検索を並行して行う場合は、必ず `Clone` メソッドを使用して独立したブックマーク（ポインタ）を確保せよ。さもなくば、予期せぬレコード移動によるロジック崩壊を引き起こす。
C. レガシー環境とメモリ最適化
VBAのメモリ管理は信頼してはならない。特に大規模なループ処理の中でレコードセットを生成する場合、`Set rs = Nothing` を忘れただけでGC（ガベージコレクション）が追いつかず、メモリリークでシステムがダウンする。
- 極限の知見: 複雑な検索ロジックには、Windows APIの `ZeroMemory` を呼ぶようなことは不要だが、`OpenRecordset` のオプションで `dbForwardOnly` を使用できる箇所がないか常に検討せよ。更新の必要がない参照専用の検索なら、`dbForwardOnly` かつ `dbReadOnly` でのオープンが最速だ。
—
結論：システムは「設計」で決まる
Accessは、正しく扱えばエンタープライズレベルのデータ処理に十分耐えうる。しかし、場当たり的な `DLookup` や、思考停止したループ処理がその可能性を殺している。
- インデックスを活用せよ（検索コストを対数に落とす）
- オブジェクトを明示的に殺せ（メモリの生存期間を制御する）
- データベースエンジンを信じよ（DAOを適材適所で使う）
この3点を守るだけで、君が管理するシステムは、見違えるほどのレスポンスを叩き出すはずだ。コードは、ただ動けばいいというものではない。背後の物理層まで想像を巡らせた者だけが、真の自動化を実現できるのだ。
さあ、エディタを開け。君のコードを一段上の階層へ引き上げる時間だ。
