凡庸なコードを捨てよ：DAO.Recordsetの「FindFirst」で構築する最速検索エンジン
Accessで開発をしていると、必ずぶち当たる壁がある。それは「大量のデータに対する検索処理」だ。
駆け出しのエンジニアは、安易に `DLookup` を連発したり、`Do While Not .EOF` でテーブルを全件スキャンしたりする。だが、断言しよう。そのアプローチは、データが数万件を超えた瞬間にシステムを崩壊させる。
真のエンジニアは、インデックス（索引）を操り、必要なレコードへ最短距離で到達する。今回は、DAO.Recordsetの `FindFirst` メソッドを極め、堅牢かつ高速な検索エンジンを構築する方法を伝授する。
—
1. なぜ「FindFirst」なのか？
`DLookup` は便利だが、内部的にはクエリを毎回生成し、最適化を待つというオーバーヘッドがある。対して、`DAO.Recordset` を用いた検索は、一度メモリ上にセットアップしたカーソルを操作するため、圧倒的に低コストだ。
特に `FindFirst` は、インデックスが設定されたフィールドに対して極めて強力だ。データベースエンジンは検索条件をインデックスに照らし合わせ、目的のレコードを一瞬で特定する。テーブルを全件スキャンする `MoveFirst` からのループ処理とは、次元の異なる速度を叩き出す。
—
2. 堅牢な検索エンジン設計の鉄則
プロダクション（本番）環境でバグを生まないために、以下の3点を徹底せよ。
- ダイナセットの活用: `dbOpenDynaset` を使用し、インデックスが機能する環境を強制する。
- NoMatchの即時判定: `FindFirst` の直後には必ず `NoMatch` プロパティをチェックすること。これを怠ると、存在しないレコードを掴んで「実行時エラー」を招く。
- リソースの解放: `Close` メソッドと `Set Nothing` を一対として扱い、メモリリークを確実に防ぐ。
—
3. 実装：高速検索・更新エンジンのプロダクションコード
以下のコードは、単なる検索ではなく、検索後のデータ操作までを見据えたテンプレートだ。保守性を考慮し、エラーハンドリングも実装している。
Public Function UpdateTargetRecord(ByVal targetID As Long, ByVal newValue As String) As Boolean
Dim db As DAO.Database
Dim rs As DAO.Recordset
‘ 初期化
Set db = CurrentDb
‘ ダイナセットとして開く（インデックスを活用するため）
Set rs = db.OpenRecordset(“T_Master”, dbOpenDynaset)
On Error GoTo ErrHandler
‘ FindFirstによる高速検索（IDフィールドにインデックスがあることが前提）
rs.FindFirst “ID = ” & targetID
‘ NoMatchチェック：ここが堅牢性の要
If rs.NoMatch Then
Debug.Print “レコードが見つかりませんでした。”
UpdateTargetRecord = False
Else
‘ 編集モードに移行して書き込み
rs.Edit
rs!TargetField = newValue
rs.Update
UpdateTargetRecord = True
End If
CleanExit:
‘ リソースの解放（重要）
If Not rs Is Nothing Then rs.Close: Set rs = Nothing
Set db = Nothing
Exit Function
ErrHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume CleanExit
End Function
—
4. プロの視点：さらなるパフォーマンス向上へ
このコードを「完成形」だと思ってはいけない。さらに上を目指すなら、以下の視点を忘れるな。
1. インデックスの確認: `FindFirst` がどれだけ高速でも、検索対象のフィールドにインデックスが貼られていなければ、結局全件スキャン（フルテーブルスキャン）になる。テーブル設計を見直し、検索キーには必ずインデックスを設定せよ。
2. 必要な列だけを抽出: `SELECT ` ではなく、必要な列だけを指定したクエリを `OpenRecordset` の引数に渡すことで、メモリ消費量を劇的に減らせる。
3. Find系メソッドの使い分け:
- `FindFirst`: 最初のレコードを探す。
- `FindNext`: 条件に合う次のレコードへ進む。
この使い分けを正しく理解していれば、複雑なバッチ処理も効率的に書けるようになる。
結びに代えて
Access VBAは「古い」と言われることがある。だが、それは使い手が「道具の性能」を引き出せていないだけに過ぎない。`Recordset` のライフサイクルを管理し、インデックスの恩恵を最大限に受ける設計を行えば、Accessは驚くほど軽快で頼れる相棒になる。
さあ、あなたのコードから「無駄なループ」を消し去り、プロフェッショナルな設計へと昇華させよう。技術は、細部に宿るのだ。
