Accessの深淵：Recordsetの「不在」を制する者がシステムを制する
Access VBAにおいて、`Recordset`を扱うことは日常茶飯事だ。しかし、この「日常」の中にこそ、システムの寿命を縮める致命的な瑕疵が潜んでいる。
多くの開発者は、`Recordset`を開いた直後にいきなり `rs.Fields(0).Value` を参照し、データが存在しない場合に「現在のレコード位置が指定されていません」という実行時エラーを食らう。あるいは、無意味な `If Not rs.EOF And Not rs.BOF Then` を乱発し、コードを汚染する。
今日は、プロフェッショナルとして、この「空のレコードセット」を極限までエレガントに、かつ堅牢に処理するための解法を伝授する。
—
1. EOF/BOFの「真の役割」を理解せよ
`EOF`（End of File）と `BOF`（Beginning of File）は、単なるフラグではない。これらは、カーソルが「有効なデータ範囲の外側」にあることを示すステータスである。
- `BOF`: 先頭レコードよりも「前」にある。
- `EOF`: 最終レコードよりも「後ろ」にある。
空のレコードセットを開いたとき、カーソルは「先頭」と「末尾」の両方の外側に位置するため、`BOF` も `EOF` も同時に `True` となる。この物理的挙動を無視したコーディングは、メモリリークや未定義な動作の温床となる。
—
2. 堅牢な走査パターン：モダンな定石
安易な `If` 文の羅列を避け、`While` ループをベースとした「安全なイテレータ」を実装する。これが我々アーキテクトが現場で課す最低限の作法だ。
‘ 堅牢なレコードセット走査のテンプレート
Public Sub ProcessRecords(ByVal strSQL As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
‘ パフォーマンスとメモリ消費を抑えるため、最適なカーソルタイプを選択する
Set rs = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)
‘ 唯一無二の確認：EOFがTrueならデータが存在しない
If rs.EOF Then
Debug.Print “対象データは存在しません。”
GoTo Cleanup
End If
‘ EOFになるまでループ
Do Until rs.EOF
‘ — ここにビジネスロジックを記述 —
Debug.Print rs.Fields(0).Value
rs.MoveNext
Loop
Cleanup:
‘ オブジェクトの明示的解放：これがメモリ管理の基本
If Not rs Is Nothing Then
rs.Close
Set rs = Nothing
End If
Set db = Nothing
End Sub
なぜこの形なのか？
1. `dbOpenForwardOnly`: 読み取り専用で前進のみのカーソルを指定することで、Jet/ACEエンジンのオーバーヘッドを最小化する。大規模データ処理ではこの差が数秒のラグに直結する。
2. `GoTo Cleanup`: 早期リターン（Early Return）の原則に従い、ネストを深くしない。読みやすさは保守性の正義だ。
3. `Set rs = Nothing`: VBAのGC（ガベージコレクタ）に頼るな。参照カウンタを確実にゼロにすることが、セッションを跨ぐメモリ肥大化を防ぐ唯一の手段だ。
—
3. シニアエンジニアのための「極限」の視点
メモリの断片化と再利用
もし、この処理がループの中で何度も呼び出されるのであれば、`db` オブジェクトをモジュールレベルで保持するのではなく、明示的にスコープを閉じ、`CurrentDb` のキャッシュを適切に管理せよ。`CurrentDb` は呼び出すたびに新しいインスタンスを生成するため、頻繁なアクセスは非効率だ。
Windows APIとの連携
もしレコードセットの処理が数百万件に及ぶ場合、VBAのネイティブなループはボトルネックとなる。その際は、`ADODB.Recordset` の `GetRows` メソッドを使い、データを二次元配列に一括転送し、メモリ上で処理する手法を取るべきだ。VBAを脱出する境界線を見極めるのが、真のアーキテクトの仕事である。
レガシー保守の極意
既存のスパゲッティコードを修正する際、`rs.MoveFirst` を安易に呼び出すな。`dbOpenForwardOnly` を使用している場合、`MoveFirst` はエラーを引き起こす。コード全体に影響を及ぼさないよう、`rs.RecordCount` を迂闊に参照せず、`EOF` フラグのみを信頼する設計こそが、枯れた技術を延命させる鍵となる。
—
結びに：コードは「対話」である
VBAは古臭いと言われるが、そのメモリモデルやオブジェクトのライフサイクルを完全に制御下に置いたとき、これほどまでに高速で軽量な武器は他にない。
「空のレコードセット」をエラーと捉えるか、あるいは処理の分岐点として優雅に制御するか。その小さな判断の積み重ねが、5年後、10年後に「壊れないシステム」として結実する。
さあ、コードを開け。あなたの書く一行が、システムの未来を決めるのだ。
