Access VBAの限界を突破する：ADO非同期処理（adAsyncExecute）による完全バックグラウンドクエリ制御
Access VBAで大規模なデータベース操作や、SQL Server等の外部DBへの重いクエリを実行した際、画面が白くモヤがかかり「応答なし」と表示される——。
多くの開発者が直面するこの問題に対し、未だに「処理中に `DoEvents` をループで回す」という誤った回避策が散見されます。プロフェッショナルなアーキテクチャにおいて、`DoEvents` による擬似マルチタスクはアンチパターンです。CPUリソースを空費し、再帰呼び出しによるスタックオーバーフローや操作の競合を引き起こす脆弱性の温床でしかありません。
エンタープライズ領域で求められるのは、ADO（ActiveX Data Objects）の非同期実行オプション（`adAsyncExecute`）とイベント駆動アーキテクチャ（`WithEvents`）を用いた完全な非同期制御です。
本稿では、DAOとADOのアーキテクチャ本質の違いを解き明かしつつ、UIを極限まで滑らかに保ち、長時間クエリをバックグラウンドで安全に制御するためのプロダクショングレードのコード例とその設計思想を解説します。
—
1. DAO vs ADO：なぜ非同期処理にはADO一択なのか
アーキテクチャの選定において、DAOとADOの根本的な設計思想の違いを理解しておく必要があります。
【DAO】 JET/ACE Engineに直結 ─── [同期実行のみ] ─── UIスレッドを占有（フリーズ発生）
【ADO】 OLE DB/ODBC Provider ─── [非同期オプション] ── バックグラウンド処理（UI解放）
- DAO (Data Access Objects):
Access内部のJET/ACEエンジンに対して最も最適化されており、ローカルテーブルの高速処理には圧倒的な強みを持ちます。しかし、DAOは原則として単一スレッド・完全同期処理です。クエリが完了するまでVBAの実行ラインは完全にブロックされ、結果としてUIがフリーズします。
- ADO (ActiveX Data Objects):
OLE DBプロバイダーを介した汎用データベース接続インターフェースです。ADOの真価は、マルチスレッド環境を前提とした非同期実行機能（`adAsyncExecute`, `adAsyncConnect`）にあります。バックグラウンドスレッドでクエリを投げ、完了した瞬間にVBAへイベント通知を送信する設計が最初から組み込まれているのです。
DAOで重い処理を「だましだまし」実行するのをやめ、外部DB連携や重いバッチ処理には非同期ADOを採用するのが、堅牢なシステム構築の絶対条件となります。
—
2. 非同期アーキテクチャの全体設計図
非同期処理を実現するためには、単にコマンドを発行するだけでなく、「オブジェクトのライフサイクル管理」と「UIの再入防止（二重実行防止）」を完璧にコントロールする必要があります。
[ Form / UI Layer ]
│ 1. 実行ボタン押下 (UIロック & プログレス表示開始)
▼
[ clsAsyncExecutor (Class Module) ] ──(WithEvents)──▶ [ ADODB.Connection ]
│ │ 2. adAsyncExecuteで送信
│ ▼
│ [ RDBMS / SQL Server ]
│ │ (バックグラウンド実行)
│ 4. クエリ完了イベント捕捉 (ExecuteComplete) │
◀────────────────────────────────────────────────────────┘ 3. 完了通知
│
▼
[ Form / UI Layer ]
5. UIロック解除 & 結果表示 (プログレス停止)
設計における3大重要ポイント
1. クラスモジュール化によるカプセル化 (`WithEvents`)
フォームモジュールに直接ADOのイベントを書くのではなく、非同期処理を司る専用のクラスモジュールを作成します。
2. スコープとライフサイクルの維持
非同期処理中、VBAのクラスインスタンスがガベージコレクションによって破棄されると、非同期イベントを受け取れなくなります。呼び出し元（フォーム）のモジュールレベル変数でクラスの参照を保持し続けることが不可欠です。
3. UIガードと状態の安全な復元
処理実行中は、ユーザーによる再度のボタンクリックやフォームの強制終了を防ぐためのガードロジックを組み込みます。
—
3. 実装：プロダクションレベルの非同期クエリ実行コード
以下に、実務でそのまま導入できる堅牢なクラスモジュールとフォーム実装例を示します。
前提設定
VBAエディタのメニューから [ツール] ＞ [参照設定] を開き、以下にチェックを入れてください。
- Microsoft ActiveX Data Objects 6.1 Library（または 2.8）
—
ステップ1：非同期実行を司るクラスモジュール (`clsAsyncExecutor`)
クラスモジュールを作成し、名前を `clsAsyncExecutor` とします。
‘ ==============================================================================
‘ クラス名: clsAsyncExecutor
‘ 概要 : ADOを用いた非同期SQL実行とイベント通知を管理するクラス
‘ 責任 : バックグラウンドでのクエリ実行、エラー捕捉、完了イベントのUI移送
‘ ==============================================================================
Option Explicit
‘ — カスタムイベント定義（呼び出し元UIに状況を伝える） —
Public Event ExecutionComplete(ByVal RecordsAffected As Long, ByVal ExecutionTimeSec As Double)
Public Event ExecutionError(ByVal ErrorNumber As Long, ByVal ErrorDescription As String)
‘ — ADOオブジェクト（WithEventsによりバックグラウンドイベントを捕捉） —
Private WithEvents m_conn As ADODB.Connection
Private m_startTime As Double
Private m_isExecuting As Boolean
Private Sub Class_Initialize()
Set m_conn = New ADODB.Connection
m_isExecuting = False
End Sub
Private Sub Class_Terminate()
‘ オブジェクト破棄時の完全シャットダウン処理
If Not m_conn Is Nothing Then
If (m_conn.State And adStateOpen) = adStateOpen Then
‘ 実行中であればキャンセルを試みる
If m_isExecuting Then m_conn.Cancel
m_conn.Close
End If
Set m_conn = Nothing
End If
End Sub
‘ ——————————————————————————
‘ 処理名 : ExecuteQueryAsync
‘ 概要 : 非同期でSQL（INSERT/UPDATE/DELETE/DDL等）を実行する
‘ ——————————————————————————
Public Sub ExecuteQueryAsync(ByVal connectionString As String, ByVal sql As String)
On Error GoTo ErrorHandler
If m_isExecuting Then
Err.Raise vbObjectError + 513, “clsAsyncExecutor”, “他の非同期処理が実行中です。”
End If
‘ 接続確立（接続自体も非同期化可能だが、ここではクエリ非同期に焦点を当てる）
If m_conn.State = adStateClosed Then
m_conn.ConnectionString = connectionString
m_conn.CommandTimeout = 600 ‘ 10分タイムアウト設定
m_conn.Open
End If
m_isExecuting = True
m_startTime = Timer
‘ ★極意: adAsyncExecute オプションを指定して非同期実行を開始
‘ VBAスレッドは実行命令を投げた直後に解放され、次の行へ進む
Dim recordsAffected As Long
m_conn.Execute sql, recordsAffected, adCmdText Or adAsyncExecute
Exit Sub
ErrorHandler:
m_isExecuting = False
RaiseEvent ExecutionError(Err.Number, Err.Description)
End Sub
‘ ——————————————————————————
‘ ADO Event: 実行完了時に自動的に割り込んで呼ばれるイベントプロシージャ
‘ ——————————————————————————
Private Sub m_conn_ExecuteComplete(ByVal RecordsAffected As Long, _
ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pCommand As ADODB.Command, _
ByVal pRecordset As ADODB.Recordset, _
ByVal pConnection As ADODB.Connection)
Dim elapsedTime As Double
elapsedTime = Round(Timer – m_startTime, 2)
m_isExecuting = False
‘ ステータス判定
If adStatus = adStatusErrorsFailed Then
If Not pError Is Nothing Then
RaiseEvent ExecutionError(pError.Number, pError.Description)
Else
RaiseEvent ExecutionError(-1, “不明なデータベースエラーが発生しました。”)
End If
Else
‘ 呼び出し元UIに完了を通知
RaiseEvent ExecutionComplete(RecordsAffected, elapsedTime)
End If
End Sub
—
ステップ2：UIフォーム側の実装 (`Form_frmAsyncTest`)
フォーム（名前例: `frmAsyncTest`）を用意し、コマンドボタン `btnExecute` と、状態表示用のラベル `lblStatus` を配置します。
‘ ==============================================================================
‘ フォーム名: Form_frmAsyncTest
‘ 概要 : 非同期クエリ実行の操作インターフェース
‘ ==============================================================================
Option Explicit
‘ ★最重要: クラスインスタンスをフォームのモジュールレベルで保持する
‘ ローカル変数にするとプロシージャ終了時に破棄され、イベントを受け取れなくなる
Private WithEvents m_asyncExecutor As clsAsyncExecutor
Private Sub Form_Load()
‘ クラスのインスタンス化
Set m_asyncExecutor = New clsAsyncExecutor
Me.lblStatus.Caption = “待機中…”
Me.btnExecute.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
‘ フォームクローズ時の安全ガード
Set m_asyncExecutor = Nothing
End Sub
‘ ——————————————————————————
‘ 実行ボタン押下処理
‘ ——————————————————————————
Private Sub btnExecute_Click()
On Error GoTo ErrorHandler
‘ 1. UIの二重操作を防止するガード処理
SetUIState IsRunning:=True
‘ 接続文字列の構築（環境に合わせて変更してください）
‘ 例: SQL Serverへの接続（ODBCまたはOLE DBプロバイダ）
Dim connStr As String
connStr = “Provider=MSOLEDBSQL;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;”
‘ 時間のかかる重いSQL（例: 大規模テーブルの更新や集計テーブル作成）
Dim sql As String
sql = “WAITFOR DELAY ’00:00:05’; UPDATE HugeTable SET ProcessedFlag = 1 WHERE ProcessedFlag = 0;”
‘ 2. 非同期実行開始
‘ このメソッドを呼び出した直後、処理は待たずに即座に制御が返ってくる
m_asyncExecutor.ExecuteQueryAsync connStr, sql
‘ 3. ユーザーにはUIが生きていることを提示
Me.lblStatus.Caption = “バックグラウンドでクエリを実行中… (操作可能です)”
Exit Sub
ErrorHandler:
MsgBox “実行開始エラー: ” & Err.Description, vbCritical
SetUIState IsRunning:=False
End Sub
‘ ——————————————————————————
‘ クラスからの「完了」イベント捕捉
‘ ——————————————————————————
Private Sub m_asyncExecutor_ExecutionComplete(ByVal RecordsAffected As Long, ByVal ExecutionTimeSec As Double)
‘ UIを元の状態に復元
SetUIState IsRunning:=False
Me.lblStatus.Caption = “完了!”
MsgBox StringFormat(“処理が完了しました。\n影響件数: {0} 件\n処理時間: {1} 秒”, _
RecordsAffected, ExecutionTimeSec), vbInformation, “成功”
End Sub
‘ ——————————————————————————
‘ クラスからの「エラー」イベント捕捉
‘ ——————————————————————————
Private Sub m_asyncExecutor_ExecutionError(ByVal ErrorNumber As Long, ByVal ErrorDescription As String)
‘ UIを元の状態に復元
SetUIState IsRunning:=False
Me.lblStatus.Caption = “エラー発生”
MsgBox StringFormat(“データベースエラーが発生しました。\nNo: {0}\n詳細: {1}”, _
ErrorNumber, ErrorDescription), vbCritical, “エラー”
End Sub
‘ ——————————————————————————
‘ 補助関数: UI状態の制御
‘ ——————————————————————————
Private Sub SetUIState(ByVal IsRunning As Boolean)
‘ 処理中は実行ボタンを無効化し、再入を防ぐ
Me.btnExecute.Enabled = Not IsRunning
‘ カーソル変更などの演出（必要に応じて）
If IsRunning Then
DoCmd.Hourglass False ‘ 非同期なので砂時計にする必要すらありません！
End If
End Sub
‘ 簡易文字列フォーマット関数
Private Function StringFormat(ByVal mask As String, ParamArray args() As Variant) As String
Dim i As Long
For i = LBound(args) To UBound(args)
mask = Replace(mask, “{” & i & “}”, CStr(args(i)))
Next i
StringFormat = Replace(mask, “\n”, vbCrLf)
End Function
—
4. 現場で発生する落とし穴と設計のチェックリスト
非同期処理の実装にあたり、チーフアーキテクトとして現場に徹底させるべき致命的なチェックポイントを解説します。
① スコープ脱落による「沈黙の不具合」
非同期処理のイベントが飛んでこない最も多い原因は、`clsAsyncExecutor` のインスタンス変数を Sub 内のローカル変数として宣言してしまうことです。
‘ 【悪手】プロシージャが抜けた瞬間にインスタンスが破棄され、イベントが蒸発する
Private Sub btnExecute_Click()
Dim executor As New clsAsyncExecutor ‘ BAD!!
executor.ExecuteQueryAsync connStr, sql
End Sub
必ず フォームや標準モジュールの全域（モジュール先頭）で参照を保持 し続けてください。
② 非同期実行中のトランザクション制御の禁止
非同期実行（`adAsyncExecute`）を行っている接続に対して、VBA側から `BeginTrans` や `CommitTrans` を軽易に呼び出してはいけません。
クエリがバックグラウンドで走っている最中にトランザクションの状態を変更すると、ADO内部の状態不整合（`adStateExecuting` とのバッティング）が起き、デッドロックや予期せぬ接続断が発生します。トランザクション管理が必要な場合は、実行するSQLコード側（Stored Procedure等）に `BEGIN TRANSACTION` を内包させるのがグローバルスタンダードな設計です。
③ レコードセット取得（SELECTクエリ）での注意点
本稿ではデータ更新（`Execute`）に焦点を当てましたが、大量のSELECTクエリ結果を非同期で受け取りたい場合は、`ADODB.Recordset` の `Open` メソッドで `adAsyncFetch` オプションを併用します。
‘ Recordsetの非同期読み込み例
rs.Properties(“Initial Fetch Size”) = 0
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText Or adAsyncFetch
`FetchProgress` イベントを利用することで、「1000件読み込み完了…」「2000件完了…」といったプログレスバーの更新が可能になります。
—
💡 まとめ
Access VBAにおける「画面のフリーズ」は、ツールの限界ではなく、アーキテクチャ設計の欠陥に起因するケースがほとんどです。
- DAO は同期処理に特化しているため、長時間クエリでUIを拘束する。
- ADO + `adAsyncExecute` を使用することで、VBAメインスレッドを解放し、滑らかなユーザー体験を実現できる。
- `WithEvents` を活用したイベント駆動クラスアーキテクチャにより、保守性の高いプロダクションコードが書ける。
この非同期設計パターンを自身のVBAツールに導入し、エンドユーザーを「応答なし」のストレスから完全に解放する、極限の社内システムを構築してください。
