Access VBAを掌握する極限の知見：DAO.Recordset.AbsolutePositionがもたらす「真の進捗可視化」とUX最適化
システム開発の現場において、数万件規模のレコードを伴う一括処理は避けて通れない。しかし、進捗インジケータを持たないブラックボックス化されたループ処理は、ユーザーに「フリーズしたのではないか」という恐怖を与え、無慈悲なタスクキルを誘発する。
Access VBAにおける定番の進捗表示といえば、`SysCmd`関数を用いたステータスバーの制御だ。だが、その背後で毎ループごとにRecordsetの全件走査や不正確な割算を行っていはいないか？
今回は、DAO（Data Access Objects）の神髄である `AbsolutePosition` プロパティを極限まで活かし、パフォーマンスを犠牲にせず、極めて滑らかで正確な進捗バーを実装するアーキテクチャを提示する。レガシーなAccessの限界を突破するための技術的知見をここに記す。
—
1. なぜ `AbsolutePosition` なのか？ ── DAOの内部構造とパフォーマンスの真実
多くの開発者が、レコード件数（`RecordCount`）を事前に取得し、カウンター変数で割ることで進捗率を算出しようとする。だが、ここに大きな罠がある。
- `RecordCount` の非同期性: `dbOpenDynaset` や `dbOpenSnapshot` において、`RecordCount` は「現在アクセスされたレコード数」を返すに過ぎない。正確な全件数を得るためには、一度 `MoveLast` を強制実行する必要があり、これが大規模データにおけるパフォーマンス劣化の主原因となる。
- カウンター変数の管理コスト: ループ内でインクリメントを行う変数を保持するのは冗長であり、トランザクションや途中の条件分岐でズレが生じやすい。
ここで登場するのが `AbsolutePosition` プロパティだ。
`AbsolutePosition` は、現在のレコードポインタの 0 基底のインデックス（何番目のレコードにいるか）を瞬時に返す。`RecordCount` と組み合わせることで、オーバーヘッドを最小限に抑えながら、正確な現在地を特定できる。
ただし、`AbsolutePosition` を真に活かすには、Recordsetのタイプを `dbOpenSnapshot`（スナップショット）に固定し、メモリ上で最適化されたストリームとして扱うことが絶対条件となる。
—
2. 実装アーキテクチャ：スケーラブルな進捗管理モジュール
以下のコードは、数万〜数十万件のレコード処理を想定し、UIの応答性を保ちながらステータスバーを動的に更新する実践的なプロシージャである。
Option Compare Database
Option Explicit
‘ =========================================================================
‘ 処理名: ProcessLargeScaleDataWithProgress
‘ 概要: DAO.Recordset と AbsolutePosition を用いた高速かつ正確な進捗表示処理
‘ =========================================================================
Public Sub ProcessLargeScaleDataWithProgress()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim totalRecords As Long
Dim currentPos As Long
Dim progressPct As Integer
Dim lastUpdatedPct As Integer
Dim startTime As Double
startTime = Timer
Set db = CurrentDb()
‘ 【重要】パフォーマンスの極限追求のため、更新不要なスナップショットを使用
‘ dbOpenSnapshot はローカルメモリ上に構築されるため、AbsolutePositionの速度が最大化される
Set rs = db.OpenRecordset(“SELECT FROM T_TargetLargeTable WHERE Processed = 0”, dbOpenSnapshot)
‘ レコードが存在しない場合のガード節
If rs.EOF Then
MsgBox “処理対象のレコードが存在しません。”, vbInformation, “情報”
GoTo Cleanup
End If
‘ 正確な全件数を取得するために最後尾へ移動
rs.MoveLast
totalRecords = rs.RecordCount
‘ 先頭へ巻き戻し
rs.MoveFirst
‘ ステータスバーの初期化 (SysCmd 3 = バーを表示し、テキストを設定)
SysCmd acSysCmdInitMeter, “データ一括処理を実行中…”, totalRecords
lastUpdatedPct = -1 ‘ パーセンテージの重複更新を防ぐためのガード
‘ トランザクションの開始（データベース整合性と書込速度の向上）
db.BeginTrans
Do Until rs.EOF
‘ —————————————————————–
‘ 実処理のシミュレーション（ここに実際のビジネスロジックを記述）
‘ —————————————————————–
‘ 例: 実際の更新はワークテーブルや別プロセスで行う想定
‘ Call ExecuteBusinessLogic(rs!ID)
‘ —————————————————————–
‘ AbsolutePosition による進捗率の算出と動的更新
‘ —————————————————————–
currentPos = rs.AbsolutePosition ‘ 現在の0ベースのインデックス
‘ 1件ごとにSysCmdを呼ぶとUI描画スレッドが圧迫され、逆に処理速度が落ちる。
‘ そのため、「1%進んだ時のみ」ステータスバーを更新するスロットリング処理を実装。
progressPct = CInt((currentPos + 1) / totalRecords 100)
If progressPct <> lastUpdatedPct Then
SysCmd acSysCmdUpdateMeter, currentPos + 1
lastUpdatedPct = progressPct
‘ 長時間処理におけるイベントキューの開放（Windowsメッセージの処理）
‘ これによりAccessの「応答なし」状態を防ぎ、ユーザーにキャンセル等の操作権を渡す
DoEvents
End If
rs.MoveNext
Loop
‘ コミット
db.CommitTrans
SysCmd acSysCmdRemoveMeter
MsgBox “処理が正常に完了しました。” & vbCrLf & _
“処理件数: ” & totalRecords & ” 件” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “完了”
Cleanup:
‘ =========================================================================
‘ メモリリークを絶対防衛するためのオブジェクト解放
‘ =========================================================================
On Error Resume Next
If Not rs Is Nothing Then
rs.Close
Set rs = Nothing
End If
Set db = Nothing
On Error GoTo 0
Exit Sub
ErrorHandler:
‘ エラー発生時のロールバック
db.Rollback
SysCmd acSysCmdRemoveMeter
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume Cleanup
End Sub
—
3. シニアエンジニアが押さえるべき「3つの極限最適化ポイント」
上記のコードには、単なる「動くコード」を超えた、大規模システムを支えるためのアーキテクチャ上のこだわりが凝縮されている。
① スロットリング（間引き制御）によるUIスレッドの保護
`DoEvents` は強力だが、毎ループごとに呼び出すと、OSのメッセージキュー処理にCPU時間が奪われ、肝心のデータ処理速度が著しく低下する。
本実装では、`progressPct <> lastUpdatedPct` という条件を挟み、「進捗率が1%変動した瞬間のみ」ステータスバーの更新と `DoEvents` を実行している。これにより、パフォーマンスの劣化を最小限に抑えつつ、滑らかなUI描画を両立させている。
② 明示的なオブジェクト解放とエラーハンドリング
Access VBAにおける最大の悪習は、オブジェクト変数をスコープアウト任せにすることである。特にDAOの `Recordset` や `Database` は、ガベージコレクションの挙動が不安定なため、例外発生時であっても確実に `Close` し、`Nothing` を代入してメモリ空間からパージしなければならない。
`GoTo Cleanup` パターンを用いた確実なリソース解放は、レガシー環境で何日も稼働し続ける常駐バッチにおいて命綱となる。
③ トランザクションの適切なスコープ
ループの外側で `db.BeginTrans` を張り、全件処理後に `CommitTrans` を行うことで、ディスクへの書き込みI/Oを劇的に削減している。もし途中でエラーが発生した場合は、`Rollback` によってデータベースの整合性が一瞬で担保される。
—
総括
進捗バーの表示という、一見すると「見た目の改善」に過ぎない機能であっても、裏側のアーキテクチャにこだわり抜くことで、システムの信頼性とユーザーエクスペリエンス（UX）は劇的に向上する。
`AbsolutePosition` と適切なスロットリング制御をマスターしたあなたなら、もはや数百万件のデータすら恐れるに足りない。妥協なきコードで、レガシーAccessの限界を軽々と超越せよ。
