【入門編】DAOのプロパティ操作によるインデックスの動的制御：インポート処理の高速化 – Access VBA解析バイブル

大量データ処理の壁を突破せよ：DAOでインデックスを操り、インポートを極限まで高速化する技術

「マクロの記録では動くけれど、データが数万件を超えた途端に処理が止まったように遅くなる……」

もしあなたがそんな壁にぶつかっているとしたら、それはあなたが「Accessの裏側で何が起きているか」を理解し、次のステップへ進む準備ができている証拠です。

こんにちは。今日は、初級者を脱出し、中級者・上級者へと駆け上がるための「武器」を授けましょう。テーマは「DAOによるインデックスの動的制御」。一見難しそうですが、その本質は非常にシンプルで、かつ強力です。

1. なぜインポートは「遅く」なるのか？

まず、理論を整理しましょう。ここを飛ばしてコードを書いても、本当の意味での「制御」はできません。

Accessのテーブルにデータを追加するとき、もしそのテーブルに「インデックス（索引）」が設定されていたらどうなるでしょうか？

イメージしてください。あなたは巨大な図書館の司書です。
1. 本を一冊棚に並べる。
2. 同時に、索引カード（インデックス）を書き換える。
3. 次の本を棚に並べる。
4. また、索引カードを書き換える。

これを10万回繰り返すとどうなるでしょう？ 本を並べる作業よりも、索引カードを書き換える作業（インデックスの更新）に膨大な時間が奪われてしまいます。これが、大量インポートが遅い正体、「インデックス更新のオーバーヘッド」です。

プロの戦略：後回しにする

賢いエンジニアはこう考えます。
「先に全部の本を棚に並べてしまって、最後にまとめて索引カードを作ればいいじゃないか」

これが、今回学ぶ「インデックスの一時削除 $\to$ インポート $\to$ インデックス再作成」というテクニックの核となる戦略です。

2. DAOとADO：なぜここで「DAO」を使うのか？

ここで、アーキテクチャの話を少しだけしましょう。Access VBAでデータを扱う際、よく登場するのがDAO (Data Access Objects) と ADO (ActiveX Data Objects) です。

今回の目的は「テーブルの構造（インデックス）」を直接操作することです。そのため、Accessのエンジン（ACE/Jetエンジン）と最も相性が良く、構造操作に特化したDAOを使用するのが正解なのです。

3. 実践：インデックスを制御する高速インポート・コード

それでは、実際に使えるコードを見ていきましょう。
今回は、「既存のテーブルにインデックスがある状態で、大量のデータをインポートする」というシナリオを想定します。

Option Compare Database
Option Explicit

''' <summary>
''' インデックスを一時的に削除してインポートを高速化するメインルーチン
''' </summary>
''' <param name="targetTableName">インポート先のテーブル名</param>
''' <param name="importPath">インポート元ファイル（Excel等）のパス</param>
Public Sub FastImportWithIndexControl(ByVal targetTableName As String, ByVal importPath As String)
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim idx As DAO.Index
    Dim i As Integer
    Dim indexNames() As String
    Dim indexCount As Integer
    
    On Error GoTo ErrorHandler

    Set db = CurrentDb
    Set tdf = db.TableDefs(targetTableName)
    
    ' --- STEP 1: インデックス情報の退避 ---
    ' 削除する前に、どのインデックスがあったかを覚えておく必要があります。
    ' ここではシンプルに、削除するインデックスの名前を配列に格納します。
    indexCount = tdf.Indexes.Count
    If indexCount > 0 Then
        ReDim indexNames(0 To indexCount - 1)
        For i = 0 To indexCount - 1
            indexNames(i) = tdf.Indexes(i).Name
        Next i
    End If

    ' --- STEP 2: インデックスの削除 ---
    ' インデックスを削除することで、データ挿入時のオーバーヘッドを無くします。
    Debug.Print "インデックスを削除中..."
    For i = tdf.Indexes.Count - 1 To 0 Step -1
        tdf.Indexes.Delete tdf.Indexes(i).Name
    Next i

    ' --- STEP 3: 高速インポートの実行 ---
    ' インデックスがない状態なので、非常に高速に書き込めます。
    Debug.Print "データをインポート中..."
    DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:=targetTableName, _
        FileName:=importPath, _
        HasFieldNames:=True

    ' --- STEP 4: インデックスの再作成 ---
    ' ここでは例として、特定の重要なインデックスを再作成するロジックを書きます。
    ' ※実際の運用では、退避した情報から動的に復元する設計にするとより高度です。
    Debug.Print "インデックスを再構築中..."
    RecreateIndexes tdf

    MsgBox "インポートが完了しました！", vbInformation
    
ExitSub:
    Set tdf = Nothing
    Set db = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    ' エラーが起きた場合、インデックスが消えたままになるリスクがあるため、
    ' 本来はここで再作成処理を呼び出すなどのリカバリが必要です。
    Resume ExitSub
End Sub

''' <summary>
''' インデックスを再作成する補助ルーチン
''' </summary>
Private Sub RecreateIndexes(ByRef tdf As DAO.TableDef)
    ' ここでは、実務でよく使う「主キー」や「検索用インデックス」を手動で定義します。
    ' 運用に合わせてカスタマイズしてください。
    
    Dim idx As DAO.Index
    
    ' 例1: IDフィールドに対する主キー（一意インデックス）の作成
    Set idx = tdf.CreateIndex("PrimaryKey_ID")
    idx.Fields.Append idx.CreateField("ID")
    idx.Unique = True
    tdf.Indexes.Append idx
    
    ' 例2: 検索を速くするための非一意インデックスの作成
    Set idx = tdf.CreateIndex("Idx_CustomerName")
    idx.Fields.Append idx.CreateField("CustomerName")
    tdf.Indexes.Append idx
    
    idx.Delete ' オブジェクト解放
End Sub

4. ここが落とし穴！陥りやすいエラーと対策

このテクニックは強力ですが、一歩間違えると「テーブルが使い物にならなくなる」リスクを孕んでいます。エンジニアとして、以下の3点は必ず肝に銘じておいてください。

① インデックス消失の恐怖（エラーハンドリング）

もし `DoCmd.TransferSpreadsheet` の実行中にエラー（データ型の不一致など）が発生したらどうなるでしょうか？
プログラムは `ErrorHandler` へ飛びますが、インデックスは削除されたままになってしまいます。

• 対策: `On Error GoTo` の中で、必ず「インデックスを再作成する関数」を呼び出すように設計してください。

② 一意性制約（Unique）の衝突

インデックスを消している間は、データの重複チェックが行われません。インポートが終わってインデックスを再作成しようとした際、「重複する値があるため、インデックスが作成できません」というエラーで止まることがあります。

• 対策: インポート前に、データのクレンジング（重複削除）を行うか、インポート後に重複をチェックする工程を挟みましょう。

③ トランザクションの限界

Access VBAでは、`BeginTrans`（トランザクション開始）を使えば、データの追加（DML）はロールバック（取り消し）できます。しかし、テーブル構造の変更（DDL：インデックスの削除など）は、多くの場合、即座に確定（オートコミット）されてしまいます。

つまり、「インデックスを消した後に、インポートに失敗したからインデックスを消す前の状態に戻す」という魔法は、標準的なトランザクションでは効かないことが多いのです。

5. まとめ：基本をマスターして、本質を掴む

今回のテクニックをまとめましょう。

1. インデックスは「書き込み」の重荷になる。
2. 大量データ時は「インデックス削除 $\to$ インポート $\to$ 再作成」が鉄則。
3. 構造操作には、Accessに最も近い「DAO」を使う。
4. エラー発生時の「インデックス復旧」までがセットの設計である。

「マクロの記録」から卒業したあなたは、今、Accessというエンジンの内部構造に触れ始めました。単に「動くコード」を書くのではなく、「なぜ動くのか」「どうすれば効率的なのか」を考える癖をつけてください。

ここをクリアすれば、Access VBAの基本はバッチリですよ。
さあ、次はもっと複雑な、データのライフサイクルをコントロールする世界へ進んでいきましょう！