【テクニカル・上級編】DAO.Recordsetの「AbsolutePosition」を活用した進捗率表示のカスタマイズ – Access VBA解析バイブル

Access VBAにおけるDAO.RecordsetとAbsolutePositionの極限活用：レガシーシステムのパフォーマンスとUXを両立させる進捗表示の真髄

Access VBAシステムを長年運用されてきたシニアエンジニア、そして社内システムの管理者の方々へ。

日々の業務において、私たちは「速度」と「安定性」という、時に相反する要求に直面しています。特にAccess VBAで構築された、大量データ処理を伴うレガシーシステムにおいては、ユーザーからの「処理がフリーズしているように見える」「いつ終わるのか分からない」といった不満の声は、システムの信頼性低下に直結する深刻な課題です。

現代的なWebアプリケーションやデスクトップアプリケーションであれば、非同期処理やバックグラウンドスレッドといった高度なメカニズムを用いて、ユーザーインターフェース（UI）の応答性を保ちつつ重い処理を実行することが可能です。しかし、Access VBAの世界では、そうした洗練されたアプローチは現実的ではありません。限られたリソースとVBAのシングルスレッドモデルという制約の中で、いかにユーザー体験を損なわずにシステムの信頼性を維持するか。この問いに対する一つの極めて実践的な解が、`DAO.Recordset`オブジェクトの`AbsolutePosition`プロパティを深く理解し、その真価を引き出すことにあります。

本稿では、単なる`AbsolutePosition`の利用法にとどまらず、Windows APIの活用、メモリ最適化、オブジェクトライフサイクルの徹底管理といった、私が長年の経験で培ってきた「極限の知見」を共有します。これにより、レガシーAccess VBAシステムのパフォーマンスとユーザー体験を両立させる、堅牢かつ実用的な進捗表示メカニズムを構築するための道筋を示します。

なぜ今、DAO.Recordset.AbsolutePositionなのか？ ―― レガシーシステムの現実と向き合う

Access VBAの処理が「フリーズ」して見える主な原因は、VBAがUIスレッドと同じスレッドで実行されるため、時間のかかる処理がUIの更新をブロックしてしまうことにあります。この状態を回避し、ユーザーに「今、何が起きているか」を明確に伝えることが、ユーザー体験向上の第一歩です。

ここで登場するのが、`DAO.Recordset`の`AbsolutePosition`プロパティです。これは、レコードセット内の現在カーソル位置を、レコードセットの先頭を1とする相対的な位置で示すプロパティです。`RecordCount`プロパティと組み合わせることで、処理対象の全レコード数に対する現在の処理位置を正確に把握し、進捗率として表現することが可能になります。

もちろん、`AbsolutePosition`や`RecordCount`にはいくつかの特性と制約があります。

• `AbsolutePosition`の開始位置: VBAの`DAO.Recordset`では、先頭レコードが「1」として扱われます。多くのプログラミング言語が0ベースであることとは異なるため、計算時には注意が必要です。
• `RecordCount`の取得タイミング: レコードセットの種類やデータソースの特性によっては、`RecordCount`が正確な値を示すまでに時間がかかる場合があります。特に、`MoveLast`メソッドを実行してレコードセット全体を一度読み込むまで、`-1`などの不正確な値を示すことがあります。正確な進捗表示のためには、ループ処理を開始する前に`MoveLast`を実行し、全レコード数を確定させるのが確実な方法です。ただし、この`MoveLast`自体が大量データでは時間がかかる可能性があるため、トレードオフを考慮する必要があります。
• カーソルの種類: DAOでは`dbOpenDynaset`や`dbOpenSnapshot`が一般的ですが、ADO（ActiveX Data Objects）を使用する場合は、クライアントサイドカーソル（`adUseClient`）では`AbsolutePosition`が常に`-1`や不定となる場合が多いです。本稿ではAccess VBAの文脈で最も安定して利用できる`DAO.Recordset`を前提とします。

これらの特性を理解した上で、`AbsolutePosition`は、既存のAccess VBAシステムに最小限の改修で最大の効果をもたらす、極めて実用的な進捗表示の礎となります。

進捗表示の基本骨格 ―― Status Barとフォームへの統合

進捗表示には、大きく分けて二つのアプローチがあります。一つは手軽な`Application.StatusBar`の活用、もう一つはより詳細な情報を提供できる独自フォームの利用です。

1. Application.StatusBarによる簡易表示

最もシンプルで、システムへの影響が少ない方法です。

‘ // 標準モジュール
Public Sub ProcessWithStatusBar()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim lngTotalRecords As Long
Dim lngCurrentRecord As Long
Dim lngPercentage As Long
Dim lngPreviousPercentage As Long

Set db = CurrentDb
strSQL = “SELECT FROM LargeDataTable ORDER BY ID;”
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

If rs.EOF Then
Application.StatusBar = “処理対象レコードがありません。”
GoTo CleanUp
End If

rs.MoveLast ‘ 全レコード数を確定させる
lngTotalRecords = rs.RecordCount
rs.MoveFirst

lngPreviousPercentage = -1 ‘ 無駄な更新を避けるためのフラグ

Do While Not rs.EOF
lngCurrentRecord = rs.AbsolutePosition ‘ 1ベースの現在位置
lngPercentage = Int((CDbl(lngCurrentRecord) / lngTotalRecords) 100)

‘ 進捗率が変化した場合のみステータスバーを更新
If lngPercentage <> lngPreviousPercentage Then
Application.StatusBar = “データ処理中: ” & lngCurrentRecord & ” / ” & lngTotalRecords & ” (” & lngPercentage & “%)”
lngPreviousPercentage = lngPercentage
DoEvents ‘ UIスレッドに制御を返し、ステータスバーを更新させる
End If

‘ — ここに実際のデータ処理を記述 —
‘ 例: rs!StatusField = “Processed”
‘ rs.Update
‘ ————————————

rs.MoveNext
Loop

Application.StatusBar = “処理が完了しました。”

CleanUp:
If Not rs Is Nothing Then rs.Close
Set rs = Nothing
Set db = Nothing ‘ CurrentDbは通常解放不要だが、OpenDatabaseした場合は必須

‘ 処理完了後、ステータスバーをクリアする
Application.StatusBar = “”
End Sub

利点: 実装が容易、リソース消費が少ない。
欠点: 表示領域が狭く、詳細な情報を伝えにくい。他のAccessメッセージと競合する場合がある。`DoEvents`を多用するとCPU負荷が高まる可能性がある。

2. 独自フォームによる高度な進捗表示

より多くの情報（経過時間、残り時間、処理中のアイテム名など）を表示し、キャンセル機能なども実装できる柔軟な方法です。

まず、進捗表示用のフォーム`frmProgress`を作成します。

• ラベル: `lblStatus` (現在の状況)、`lblElapsed` (経過時間)、`lblRemaining` (残り時間)、`lblCurrentItem` (現在処理中のアイテム)
• プログレスバー: `prgProgress` (ActiveXコントロールまたは組み込みのプログレスバー)
• ボタン: `btnCancel` (キャンセル機能用)

次に、標準モジュールとフォームモジュールにコードを記述します。

‘ // 標準モジュール (modProcess.bas)
Option Compare Database
Option Explicit

‘ Windows APIの宣言
‘ Sleep API: ミリ秒単位でスレッドを一時停止させる。PtrSafeは64bit環境対応のため必須。
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

‘ QueryPerformanceCounter API: 高精度な時間計測用。GetTickCountより精度が高い。
Private Declare PtrSafe Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare PtrSafe Function QueryPerformanceFrequency Lib “kernel32” (lpFrequency As Currency) As Long

‘ グローバル変数（キャンセル処理用）。Volatileと見立て、フォームからアクセスできるようにする。
Public g_blnCancelProcess As Boolean

‘ 進捗表示付きデータ処理メインプロシージャ
Public Sub ProcessLargeDataWithProgress()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim lngTotalRecords As Long
Dim lngCurrentRecord As Long
Dim curStartTime As Currency ‘ QueryPerformanceCounter用
Dim curFrequency As Currency ‘ QueryPerformanceCounter用
Dim curElapsedTime As Currency
Dim curEstimatedRemainingTime As Currency ‘ 推定残り時間
Dim lngPercentage As Long
Dim lngPreviousPercentage As Long
Dim blnShowProgressForm As Boolean ‘ 進捗フォームを表示したかどうかのフラグ

‘ エラーハンドリング
On Error GoTo ErrorHandler

Set db = CurrentDb ‘ または DBEngine(0).Workspaces(0).OpenDatabase(“C:\path\to\your.accdb”)

‘ 処理対象のSQL。データの更新や挿入を行う場合は、必要に応じてWHERE句を調整。
strSQL = “SELECT ID, DataField1, DataField2 FROM YourDataTable WHERE Processed = False ORDER BY ID;”

‘ レコードセットを開く
‘ dbOpenDynaset: 更新可能なダイナセット
‘ dbSeeChanges: 他のユーザーによる変更を表示（パフォーマンスに影響する可能性あり）
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

‘ レコード数を取得。MoveLast/MoveFirstはレコードセット全体を読み込むため、初回呼び出し時に時間がかかる場合がある。
‘ しかし、正確な進捗表示には必須。
If rs.EOF Then
MsgBox “処理対象のレコードがありません。”, vbInformation
GoTo CleanUp
End If
rs.MoveLast
lngTotalRecords = rs.RecordCount
rs.MoveFirst

‘ レコード数が少ない場合は進捗フォームを表示しない（閾値は適宜調整）
If lngTotalRecords < 100 Then MsgBox "レコード数が少ないため、進捗表示なしで処理します。", vbInformation blnShowProgressForm = False Else ' 進捗フォームを表示 ' acNormal: モーダルではない。VBAコードは停止しないため、DoEventsでUI更新を促す。 DoCmd.OpenForm "frmProgress", acNormal ' Formsコレクションからフォームオブジェクトへの参照を取得 ' これにより、フォームのコントロールに直接アクセスできる With Forms!frmProgress .lblStatus.Caption = "処理を開始しています..." .prgProgress.Max = 100 .prgProgress.Value = 0 .lblElapsed.Caption = "経過時間: 00:00:00" .lblRemaining.Caption = "残り時間: 計算中..." .lblCurrentItem.Caption = "" .btnCancel.Enabled = True End With g_blnCancelProcess = False ' キャンセルフラグをリセット blnShowProgressForm = True End If ' 高精度タイマーの初期化 QueryPerformanceFrequency curFrequency ' CPUの周波数（1秒あたりのティック数）を取得 QueryPerformanceCounter curStartTime ' 処理開始時刻のティック数を取得 lngCurrentRecord = 0 ' 現在処理中のレコード数 (AbsolutePositionと同期) lngPreviousPercentage = -1 ' 前回表示したパーセンテージを保持し、無駄な更新を防ぐ ' 大量データ更新の場合、トランザクションを区切ることでパフォーマンスと信頼性を向上させる ' db.BeginTrans ' トランザクション開始（必要であれば） Do While Not rs.EOF lngCurrentRecord = rs.AbsolutePosition ' 現在位置を取得 (1ベース) ' 進捗率の計算 If lngTotalRecords > 0 Then
lngPercentage = Int((CDbl(lngCurrentRecord) / lngTotalRecords) 100)
Else
lngPercentage = 0
End If

‘ 進捗フォームの更新 (表示している場合のみ)
If blnShowProgressForm Then
‘ パーセンテージが変化した場合のみ更新 (パフォーマンス最適化)
If lngPercentage <> lngPreviousPercentage Then
‘ 経過時間と残り時間の計算
QueryPerformanceCounter curElapsedTime ‘ 現在時刻のティック数を取得
curElapsedTime = (curElapsedTime – curStartTime) / curFrequency ‘ 経過ティック数を周波数で割り、秒単位に変換

If lngCurrentRecord > 0 And lngTotalRecords > 0 Then
‘ 1レコードあたりの平均処理時間 (秒/レコード)
Dim dblAvgTimePerRecord As Double
dblAvgTimePerRecord = CDbl(curElapsedTime) / lngCurrentRecord

‘ 残りレコード数
Dim lngRemainingRecords As Long
lngRemainingRecords = lngTotalRecords – lngCurrentRecord

‘ 推定残り時間 (秒)
curEstimatedRemainingTime = dblAvgTimePerRecord lngRemainingRecords
Else
curEstimatedRemainingTime = 0
L_SkipTimeCalc: ‘ GoTo ステートメントのラベルとして使用する場合
End If

With Forms!frmProgress
.lblStatus.Caption = “処理中: レコード ” & lngCurrentRecord & ” / ” & lngTotalRecords & ” (” & lngPercentage & “%)”
.prgProgress.Value = lngPercentage
‘ 秒を日時に変換してフォーマット (Access VBAのFormat関数は秒を直接変換できないため)
.lblElapsed.Caption = “経過時間: ” & Format(curElapsedTime / 86400, “hh:nn:ss”)
.lblRemaining.Caption = “残り時間: ” & Format(curEstimatedRemainingTime / 86400, “hh:nn:ss”)
‘ ここで現在のレコードの特定のフィールドを表示することも可能
.lblCurrentItem.Caption = “現在ID: ” & rs!ID ‘ 例
End With
lngPreviousPercentage = lngPercentage ‘ 更新したパーセンテージを記録
End If

‘ UIイベントを処理し、フォームの更新とキャンセルのチェックを可能にする
‘ これがないとフォームがフリーズして見える
DoEvents

‘ キャンセル要求があった場合
If g_blnCancelProcess Then
‘ db.Rollback ‘ トランザクションをロールバック（必要であれば）
MsgBox “ユーザーによって処理がキャンセルされました。”, vbInformation, “処理中断”
GoTo CleanUp
End If

‘ CPU負荷を軽減するために、適度なSleepを挿入
‘ これによりUIスレッドにも余裕が生まれ、OS全体の応答性も向上する。
‘ ただし、処理速度は低下するため、バランスが重要。
If lngCurrentRecord Mod 50 = 0 Then ‘ 例えば50レコードごとに1msスリープ
Sleep 1 ‘ 1ミリ秒スリープ
End If
End If

‘ — ここに各レコードに対する実際の処理を記述 —
‘ 例: レコードの更新
‘ rs.Edit
‘ rs!DataField2 = “Processed Value”
‘ rs.Update

‘ トランザクションを区切ることでパフォーマンスと信頼性を向上
‘ If lngCurrentRecord Mod 1000 = 0 And lngCurrentRecord > 0 Then
‘ db.CommitTrans
‘ db.BeginTrans
‘ End If
‘ —————————————————-

rs.MoveNext
Loop

‘ db.CommitTrans ‘ 全処理完了後にトランザクションをコミット（必要であれば）
MsgBox “全レコードの処理が完了しました。”, vbInformation, “処理完了”

CleanUp:
‘ 進捗フォームを閉じる (表示していた場合のみ)
If blnShowProgressForm Then
‘ SysCmdを使ってフォームが開いているかチェックする
If SysCmd(acSysCmdGetObjectState, acForm, “frmProgress”) <> 0 Then
DoCmd.Close acForm, “frmProgress”
End If
End If

‘ オブジェクトの解放は必ず行う
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close ‘ DAOのRecordsetでは.Stateは使えない
Set rs = Nothing
End If
If Not db Is Nothing Then Set db = Nothing ‘ CurrentDbは解放不要だが、OpenDatabaseしたDatabaseオブジェクトは必須

Exit Sub

ErrorHandler:
‘ エラーが発生した場合もフォームを閉じる
If blnShowProgressForm Then
If SysCmd(acSysCmdGetObjectState, acForm, “frmProgress”) <> 0 Then
DoCmd.Close acForm, “frmProgress”
End If
End If
‘ db.Rollback ‘ エラー発生時にトランザクションをロールバック（必要であれば）
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “処理エラー”
Resume CleanUp ‘ エラー発生時もクリーンアップ処理へ
End Sub

‘ // フォームモジュール (frmProgress.frm)
Option Compare Database
Option Explicit

Private Sub Form_Load()
Me.Caption = “処理進捗”
Me.TimerInterval = 0 ‘ タイマーは使用しない (DoEventsで更新するため)
‘ フォームを常に手前に表示する設定
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Unload(Cancel As Integer)
‘ フォームが閉じられる際に、常に手前に表示する設定を解除
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub btnCancel_Click()
‘ キャンセルボタンがクリックされたらフラグを立てる
‘ 処理中のプロシージャがこのフラグを監視し、適宜中断する
modProcess.g_blnCancelProcess = True ‘ 標準モジュールのグローバル変数にアクセス
Me.lblStatus.Caption = “キャンセル要求を受信しました…”
Me.btnCancel.Enabled = False ‘ 二重クリック防止
End Sub

‘ Windows APIの宣言 (フォームを常に手前に表示するため)
Private Declare PtrSafe Function SetWindowPos Lib “user32” ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long _
) As Long

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

パフォーマンスと安定性の極限追求 ―― メモリ、API、そしてオブジェクトの真髄

上記のコード例には、単なる進捗表示以上の「極限の知見」が込められています。これらはAccess VBAシステムの安定性と効率性を根本から向上させるための要素です。

1. メモリ最適化とオブジェクトライフサイクル

VBAにおけるオブジェクト管理は、特に長期稼働するシステムや大規模データ処理において、その成否を分ける重要な要素です。

• DAOオブジェクトの明示的な解放 (`Set obj = Nothing`): `Recordset`や`Database`オブジェクトは、使用後に必ず`Set obj = Nothing`で明示的に参照を解放してください。これにより、オブジェクトが占有していたメモリやシステムリソースが速やかに解放され、メモリリークやパフォーマンス低下を防ぎます。特に`OpenDatabase`で開いた`Database`オブジェクトは解放が必須です。`CurrentDb`はAccessアプリケーションによって管理されるため、明示的な解放は不要ですが、習慣として行っても問題ありません。
• ループ内でのオブジェクト生成・破棄の回避: `Do While`ループのような高速な繰り返し処理の中で、頻繁にオブジェクトを生成したり破棄したりすることは、極めて大きなオーバーヘッドを生じさせます。オブジェクトはループの外で一度だけ生成し、ループ内で再利用し、ループ終了後に解放するのが鉄則です。
• `With`ステートメントの活用: `With Forms!frmProgress`のように`With`ステートメントを使用することで、オブジェクトへの複数回のアクセスが高速化されます。これは、VBAが毎回オブジェクト参照を解決する手間を省くためです。

2. Windows APIを活用したUX強化とシステム安定化

VBAの標準機能だけでは実現できない、より高度な制御やパフォーマンス計測のために、Windows APIの直接呼び出しは不可欠です。

• `Sleep` API: `DoEvents`はUIスレッドに制御を戻しUI更新を可能にしますが、処理が重い場合、`DoEvents`の呼び出し頻度が高いとCPU使用率が100%に張り付くことがあります。これは、VBAがUIスレッドを占有しようと試みるためです。`Sleep` APIを適度な間隔で挿入することで、VBAスレッドを短時間（例: 1ミリ秒）一時停止させ、他のプロセスやOS自体にCPUリソースを明け渡すことができます。これにより、OS全体の応答性が向上し、ユーザーは他のアプリケーションを操作できるようになります。ただし、`Sleep`の使いすぎは処理全体の時間を不必要に延ばすため、バランスが重要です。
• `QueryPerformanceCounter` / `QueryPerformanceFrequency`: `Timer`関数よりもはるかに高精度な時間計測を可能にするAPIです。これにより、処理の経過時間や1レコードあたりの平均処理時間を正確に計算し、ユーザーに「残り時間」を推定して提示できます。これは、ユーザーの「いつ終わるのか分からない」という不安を解消する上で非常に効果的です。`Currency`型で値を扱うことで、64ビット環境での精度も保たれます。
• `SetWindowPos` (HWND_TOPMOST): 進捗表示フォームが他のウィンドウの背後に隠れてしまうと、その存在意義が薄れてしまいます。`SetWindowPos` APIを用いてフォームのスタイルを`HWND_TOPMOST`に設定することで、常に最前面に表示させることができます。これにより、ユーザーは常に進捗状況を視覚的に把握できるようになります。

3. トランザクション管理 (オプション)

大量のレコード更新を行う場合、トランザクションの適切な管理は、パフォーマンスとデータ整合性の両面で極めて重要です。`db.BeginTrans`、`db.CommitTrans`、`db.Rollback`を適切に使用することで、処理の途中でエラーが発生した場合でも、データの一貫性を保ち、部分的な更新による不整合を防ぐことができます。また、データベースによっては、一定数の更新をまとめてコミットする方がパフォーマンスが向上する場合があります。

レガシー環境の保守とシステム間連携への示唆

Access VBAは、新しい技術スタックに比べれば「レガシー」と見なされることも少なくありません。しかし、既存の業務システムがAccess VBAで構築されており、そのリプレースに多大なコストと時間がかかる現実を前に、私たちはVBAを「死んだ技術」と切り捨てることはできません。むしろ、限られたリソースの中で、いかに既存資産を最大限に活用し、最小限のコストで最大の効果を生み出すか、という視点が求められます。

本稿で解説したAPI活用やオブジェクトライフサイクル管理の徹底は、Access 2003、2007、2010といった異なるバージョン、そして32bit/64bit環境を問わず、普遍的に有効な知識です。新しい環境への移行が困難な場合でも、これらの技術によって既存システムのパフォーマンスを「引き出し」、ユーザーの信頼を維持し、システムの寿命を延ばすことが可能です。

また、Access VBAがSQL Server、SharePoint、Oracleなどの外部データソースと連携する場合、ネットワークI/Oがボトルネックになることが頻繁にあります。このようなシステム間連携においては、`DAO.Recordset`が外部テーブルを参照する場合の`RecordCount`の取得特性や`MoveNext`のパフォーマンス特性を深く理解することが不可欠です。外部データソースでは、`MoveLast`が非常に遅くなる場合や、`AbsolutePosition`がサーバーサイドカーソルの実装に依存して不安定になる場合もあります。そのような場合でも、VBAがシングルスレッドである以上、ユーザーインターフェースがフリーズするのを防ぎ、進捗を視覚化することは、システム全体の健全性を保つ上で極めて重要な役割を果たします。

結論

`DAO.Recordset.AbsolutePosition`は、一見するとシンプルなプロパティに過ぎません。しかし、その真価は、Windows APIの活用、厳格なメモリ管理、オブジェクトライフサイクルの深い理解、そしてシステム全体を見通すアーキテクトの視点と組み合わさって初めて発揮されます。

単に進捗バーを動かすことにとどまらず、これらの「極限の知見」をAccess VBAシステムに適用することで、ユーザーの不安を解消し、システム全体の応答性と安定性を飛躍的に向上させることができます。レガシーシステムであっても、その潜在能力を最大限に引き出し、ユーザーの信頼を勝ち取ることが可能です。

技術はツールに過ぎませんが、そのツールを極限まで使いこなし、システムの真の価値を引き出す知恵と経験こそが、我々エンジニアの真髄です。Access VBAの奥深さを理解し、今日もまた、魂を込めてシステムを改善し続けていきましょう。