Access VBAの「検索」を極める：FindFirstとNoMatchで実現する高速データエンジン
こんにちは。現場で「動けばいいコード」から「速くて美しいコード」への脱皮を目指す皆さんへ、今日はAccess VBAにおける最も重要な武器の一つ、DAO.Recordsetの検索術についてお話しします。
マクロの記録や、単純なループ処理で全件を舐めるような検索はもう卒業しましょう。データベースの「インデックス」という宝の持ち腐れを防ぎ、目的のデータを瞬時に射抜く技術を伝授します。
—
1. なぜ「FindFirst」なのか？
Access VBAでデータを扱うとき、多くの初学者は「Do Until EOF（全件ループ）」を使いたがります。しかし、1万件、10万件とデータが増えたとき、そのコードは「動くけれど遅い」という致命的な欠陥を露呈します。
そこで登場するのが、DAO.Recordsetの`FindFirst`メソッドです。
これはデータベースエンジンに対し、「この条件に一致するレコードを、インデックスを使って探してきてくれ」と命令を送るものです。自力でループを回すのではなく、エンジンに仕事を任せる。これこそが、プロの自動化エンジニアの第一歩です。
—
2. 検索エンジンの心臓部：FindFirstとNoMatch
検索の基本パターンは、以下の3ステップです。
1. 検索条件を指定する（FindFirst）
2. 成功か失敗かを確認する（NoMatch）
3. 見つかったデータを活用する
実装サンプル：爆速検索エンジン
以下のコードは、特定の「社員番号」から氏名を検索する実用的な関数です。
Public Sub FindEmployeeName(targetID As Long)
Dim db As DAO.Database
Dim rs As DAO.Recordset
‘ CurrentDbはメモリを消費するため、必ず変数に格納して再利用する
Set db = CurrentDb
‘ ダイナセット型で開く（インデックス検索を有効にする）
Set rs = db.OpenRecordset(“T_社員マスタ”, dbOpenDynaset)
‘ 検索条件の指定（SQLのWHERE句と同じ感覚で記述）
rs.FindFirst “社員ID = ” & targetID
‘ 判定：NoMatchは「見つからなかった時」にTrueになる
If rs.NoMatch Then
MsgBox “該当する社員データは見つかりませんでした。”, vbExclamation
Else
‘ 見つかった場合、カーソルは自動的にそのレコードへ移動している
MsgBox “検索結果：” & rs!氏名 & ” さんが見つかりました。”
End If
‘ 【重要】リソースの解放：これを行わないとメモリリークの原因になる
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
—
3. 初学者が陥りやすい3つの罠
このコードを書き進める中で、多くの人がハマるポイントがいくつかあります。ここをクリアすれば、あなたはもう中級者の入り口に立っています。
① インデックスがないテーブルで使わない
`FindFirst`は強力ですが、テーブルの「社員ID」フィールドにインデックス（重複なし）が設定されていないと、結局フルスキャンに近い動きをしてしまいます。テーブル設計画面で、検索対象フィールドには必ずインデックスを貼りましょう。
② NoMatchの判定を忘れる
`FindFirst`の直後にデータへアクセスしようとすると、もし見つからなかった場合に「カレントレコードがありません」というエラーが発生します。`If rs.NoMatch Then …` という記述は、あなたのコードを守る最強の盾です。
③ CurrentDbの多用
`Set rs = CurrentDb.OpenRecordset(…)` と書くのはNGです。`CurrentDb`を呼び出すたびにAccess内部でオブジェクトが再生成されます。必ず`Dim db As DAO.Database` を使い、一度だけセットしてから使い回すのが「速いコード」の鉄則です。
—
4. 現場からのアドバイス
「FindFirst」をマスターすると、Accessの可能性が一気に広がります。
例えば、「フォーム上の入力値を元に、マスタテーブルから値を拾ってきて自動入力する」といった処理も、この技術があれば瞬時に実装可能です。今まで数秒かかっていた処理が、コンマ数秒で終わる。この心地よいレスポンスこそが、システムエンジニアとしての誇りです。
まずはこのコードを、あなたの今のプロジェクトの「検索機能」に置き換えてみてください。もしエラーが出たり、うまくいかないことがあれば、それはあなたが新しい壁に挑んでいる証拠です。
ここをクリアすれば、Access VBAの基本はバッチリ。自信を持って、次のステップへ進みましょう。応援しています！
