Access VBAの深淵：DAO.Recordset.FindFirstによる高速検索エンジンの実装術
Access開発において、初心者はすぐに「DLookup」や「フィルター」に手を出す。だが、大規模なデータセットを扱う現場では、それらは「ボトルネック」以外の何物でもない。
もし君が、数万件以上のレコードを扱う業務システムで、ユーザーを待たせるようなコードを書いているなら、それはプロの仕事ではない。今回は、DAO（Data Access Objects）の`FindFirst`メソッドを極限まで最適化し、インデックスを味方につけた「真の検索エンジン」を構築する技術を伝授する。
—
1. なぜ「DLookup」や「ループ検索」が禁じ手なのか
まず、設計思想の転換が必要だ。
- DLookup: 呼び出すたびに内部で新規にクエリが生成され、オーバーヘッドが凄まじい。繰り返せばDBは悲鳴を上げる。
- 全件ループ（While Not EOF）: 検索のたびにディスクI/Oを発生させ、全レコードをメモリ上にロードしようとする。これは愚策だ。
我々が目指すべきは、「インデックスを貼ったフィールドに対し、DAOでダイレクトにカーソルをジャンプさせる」手法だ。これこそが、Accessのデータベースエンジン（ACE）の性能を最大限に引き出す唯一の解である。
—
2. 堅牢な検索エンジン実装の黄金律
プロダクションコードには、必ず「型定義」と「リソース解放」という鉄の掟がある。以下のテンプレートは、あらゆる環境で安定して動作する「攻め」のコードだ。
プロダクションコード例：高速検索モジュール
‘ 検索エンジン・ラッパー関数
‘ 引数: 検索対象ID, 検索先テーブル名
Public Function FindRecordByID(ByVal targetID As Long, ByVal tableName As String) As DAO.Recordset
Dim db As DAO.Database
Dim rs As DAO.Recordset
‘ CurrentDbを直接呼ぶと重いため、変数にキャッシュする
Set db = CurrentDb
‘ Dynasetタイプでオープン（インデックスが有効なクエリを推奨）
Set rs = db.OpenRecordset(tableName, dbOpenDynaset)
‘ 検索条件の構築 (検索対象フィールドには必ずインデックスを貼ること)
‘ IDが数値型であることを前提としている
rs.FindFirst “ID = ” & targetID
‘ NoMatch判定が最重要。ヒットしなかった場合のケアを怠るな
If rs.NoMatch Then
‘ ヒットしなかった場合はNothingを返すか、エラーログを残す設計にする
Set FindRecordByID = Nothing
Else
Set FindRecordByID = rs
End If
‘ rsを閉じてはいけない（呼び出し元でレコードを操作するため）
‘ ただし、dbオブジェクトはスコープ終了で解放される
End Function
—
3. 実務で「死なない」ための3つの極意
① インデックスの物理設計
`FindFirst`がいかに高速でも、検索対象のフィールドにインデックスが貼られていなければ、データベースは「全件スキャン」に切り替わる。「検索に使うフィールドは、テーブル設計段階でインデックス（重複なし/あり）を必ず設定せよ」。これはエンジニアとしての最低限の責務だ。
② NoMatch判定の厳密化
`If rs.NoMatch` を省略するエンジニアが後を絶たない。ヒットしなかった場合に後続の処理で値を参照しようとすれば、即座に「実行時エラー 3021（現在のレコードはありません）」が発生する。検索結果の生存確認は、コード上の必須儀式だ。
③ リソース管理の哲学
DAOの`Recordset`は、メモリを食う生き物だ。
- `Set rs = Nothing` を忘れないこと。
- プロシージャ内で開いたRecordsetは、必ずそのスコープの出口でクローズする。
- 大規模データに挑む際は、`dbOpenSnapshot`（更新不要な場合）や `dbOpenForwardOnly`（前進のみで良い場合）を使い分け、エンジンの負荷を最小限に抑えること。
—
4. 最後に：エンジニアとしてのマインドセット
Accessは古いプラットフォームと言われることがある。だが、「適切にDAOを使いこなし、インデックスの恩恵をフル活用する」という設計思想は、SQL Serverへ移行しようが、Web APIを構築しようが、変わらぬ本質だ。
道具のせいにするな。君が書くその数行のコードが、ユーザーの業務時間を何時間短縮できるか。それを突き詰めることこそが、伝説のエンジニアへの第一歩だ。
さあ、エディタを開け。君のコードで、データベースに命を吹き込むんだ。
