Access VBAを掌握する極限の知見：DAO.Recordset「FindFirst」の真実と、現場で崩壊しない堅牢なデータ抽出設計
こんにちは。チーフアーキテクトの私だ。
これまで数多のAccess業務システムをリファクタリングし、現場の悲鳴をエンジニアリングの力で解決してきた。
その中で、いまだに信じがたいアンチパターンを目撃する。
数万件、数十万件のレコードを持つテーブルに対し、`DLookup`を乱発したり、全件をループで舐め回したり、あるいはパフォーマンスの重いADOを不適切に持ち込んで「Accessは遅い」と嘆く開発者たちだ。
違う。Accessが遅いのではない。あなたのDAOの使い方が間違っているのだ。
今回は、Accessのポテンシャルを極限まで引き出し、ミリ秒単位の高速処理と絶対に破綻しない堅牢性を両立させる「DAO.Recordsetの `FindFirst` メソッドと `NoMatch` 判定」の極意を授けよう。
—
なぜ「FindFirst」なのか？（ADOやDLookupとの決定的な違い）
実務において、特定の条件に合致する1件のレコードをピンポイントで抽出し、その内容を編集・参照したいシーンは数多ある。
ここで選ぶべき手法は、用途によって明確に分かれる。
1. `DLookup` 関数: 単一の値を返すだけなら手軽だが、複数フィールドの同時取得や、取得したレコードの更新（Edit/Update）には使えない。
2. `ADO (ADODB.Recordset)`: クライアント/サーバー型DBであれば強力だが、Jet/ACEエンジン（ACCDB）においてADOを酷使すると、無駄なオーバーヘッドとロック競合の原因になる。
3. `DAO.Recordset (Type = dbOpenDynaset または dbOpenSnapshot)` + `FindFirst`: Accessのローカルデータベース（Jet/ACE）において、最もネイティブで、最も最適化された経路を通る。インデックスが適切に張られていれば、メモリ上で電光石火の検索を実現できる。
特に、検索したレコードに対して後続の更新処理（`Edit` -> 値の変更 -> `Update`）を行う場合、`FindFirst` を内包したダイナセストレコードセットの右に出るものはいない。
—
現場で即死する「アンチパターン」の共有
まず、初心者がやりがちな「やってはいけないコード」を確認しておこう。
‘ 【悪夢のアンチパターン】
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(“T_ 受注”, dbOpenDynaset)
‘ フィルタをかけて先頭を取得しようとする無謀なループ
Do While Not rs.EOF
If rs!受注ID = targetID Then
‘ 処理
Exit Do
End If
rs.MoveNext
Loop
言語道断だ。 これではインデックスの恩恵を完全に殺し、全件走査（テーブルスキャン）を自ら引き起こしている。データが10万件に達した瞬間、このプロシージャは固まる。ユーザーはコーヒーを淹れに行く羽目になるだろう。
プロのエンジニアであれば、DAOのエンジンに検索を直接委譲するべきだ。それが `FindFirst` である。
—
プロダクションコード：堅牢な `FindFirst` ＆ `NoMatch` 設計
それでは、実務の現場でそのままコピー＆ペーストして使える、エラーハンドリングとリソース解放を完璧に網羅したプロダクションコードを提示する。
このコードは、単に動くだけではない。
- インデックスを活用した高速検索
- `NoMatch` プロパティによる厳密な存在チェック
- トランザクションと確実なオブジェクト解放（メモリリークの防止）
これらすべてを高次元でクリアしている。
‘ ==============================================================================
‘ 担当者名: チーフアーキテクト
‘ 処理概要: 指定された受注IDを元にレコードを高速検索し、ステータスを更新する
‘ 引数 : lngOrderNo (Long) – 検索対象の受注ID
‘ 戻り値 : Boolean – 更新成功時は True、見つからないかエラー時は False
‘ ==============================================================================
Public Function UpdateOrderStatus(ByVal lngOrderNo As Long) As Boolean
‘ 予期せぬエラーに備え、デフォルトはFalse
UpdateOrderStatus = False
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strCriteria As String
On Error GoTo ErrorHandler
‘ 1. データベースとレコードセットの取得
‘ ※dbOpenDynasetを指定することで、データの編集（Edit/Update）が可能になる
Set db = CurrentDb
Set rs = db.OpenRecordset(“T_受注明細”, dbOpenDynaset)
‘ 2. 検索条件の構築（DAOのFindFirstはSQLのWHERE句から「WHERE」を除いた文字列を指定）
‘ ※数値であっても安全のために文字列結合、文字列型の場合はシングルクォーテーションで囲むこと
strCriteria = “受注ID = ” & lngOrderNo
‘ 3. 高速検索の実行
rs.FindFirst strCriteria
‘ 4. 【最重要】NoMatchプロパティによる判定
‘ FindFirst実行後は、必ずNoMatchを評価しなければならない
If rs.NoMatch Then
‘ レコードが存在しなかった場合のハンドリング
MsgBox “指定された受注ID (” & lngOrderNo & “) は存在しません。”, vbExclamation, “データなし”
GoTo CleanUp
End If
‘ 5. レコードの更新処理（トランザクションの保護下で行うのがベストプラクティス）
db.BeginTrans
rs.Edit ‘ 編集モードの開始
rs!ステータス = “処理済み”
rs!更新日時 = Now
rs.Update ‘ 変更の確定
db.CommitTrans
‘ 正常終了
UpdateOrderStatus = True
CleanUp:
‘ 6. オブジェクトの明示的な解放（メモリリーク・ファイルロックの防止）
If Not rs Is Nothing Then
rs.Close
Set rs = Nothing
End If
Set db = Nothing
Exit Function
ErrorHandler:
‘ 異常発生時はロールバック
If Not db Is Nothing Then
On Error Resume Next
db.Rollback
On Error GoTo 0
End If
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Function
—
典拠・アーキテクトからの重要な注意点
上記のコードを実装するにあたり、プロとして知っておくべき「Accessの裏側の挙動」をいくつか補足しておこう。
1. `NoMatch` 判定のタイミング
`FindFirst`（または `FindNext`, `FindPrevious`, `FindLast`）を実行した直後に、必ず `rs.NoMatch` を評価すること。他のメソッドを挟んだり、変数を経由させたりすると、`NoMatch` の状態が上書きされたり不確定になったりするリスクがある。
2. インデックスの有無が命運を分ける
`FindFirst` は魔法の杖ではない。検索対象となるフィールド（今回の例では `受注ID`）に、Access側でインデックスが設定されていることが絶対条件だ。
主キー（Primary Key）であれば自動的にインデックスが貼られるが、通常のインデックス検索を行いたいフィールドは、テーブルデザインビューで「インデックス：はい (重複なし または 重複あり)」に設定しておくこと。これを怠ると、結局テーブルスケアになり処理が重くなる。
3. CurrentDbの乱用に注意
プロシージャ内で何度も `CurrentDb` を呼び出すのは、内部的に新しいデータベースオブジェクトのインスタンスを生成するためパフォーマンス上好ましくない。
今回のコードのように、変数 `db` に一度格納し、それを使い回すのが正しい流儀だ。
—
結び
Access VBAは、正しく使えば超高速で堅牢なローカルアプリケーション基盤となる。
「動けばいいや」という場当たり的なコードは、いつか必ずデータ破損やパフォーマンス低下という形で開発者に牙をむく。
今回解説した `FindFirst` と `NoMatch` のコンビネーション、そして徹底されたリソース管理とエラーハンドリングは、プロの現場のスタンダードだ。
あなたの書くコードにこの設計思想を取り入れ、明日からの開発クオリティを一段上のステージへと引き上げてほしい。
