こんにちは。エンジニアとして、日々Accessという「小さな巨人」と向き合っている皆さんへ。
Accessで「データが増えたら急にクエリが遅くなった」という経験はありませんか？ それ、実はAccessが悪いのではなく、「インデックス（索引）」という武器を使いこなせていないだけかもしれません。
今日は、業務効率を劇的に変える「インデックスの動的制御」という、少しだけプロの領域に足を踏み入れるテクニックを伝授します。これさえ理解すれば、Accessは単なる事務ツールから、あなたの最強の解析エンジンへと進化します。
—
なぜ、インデックスが「魔法」なのか？
本棚に何万冊もの本が並んでいる図書館を想像してください。目次も索引もなかったら、目的の本を探すのにすべての本を手に取る必要がありますよね？ これがインデックスのないテーブルの検索です。
インデックスとは、いわば「本の巻末索引」。これがあるだけで、目的のデータまで一瞬で辿り着けます。しかし、インデックスは「作りすぎると書き込みが遅くなる」という副作用があります。だからこそ、必要な時に作り、不要な時に消す「動的制御」が重要になるのです。
—
現場で使える「インデックス制御」コード
では、VBAでインデックスを操作する実践的なコードを紹介します。まずは、この流れを掴んでください。
インデックスを追加する関数
Public Sub AddIndexToField(tableName As String, fieldName As String, indexName As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
Set db = CurrentDb
Set tdf = db.TableDefs(tableName)
‘ インデックスオブジェクトを作成
Set idx = tdf.CreateIndex(indexName)
‘ インデックス対象のフィールドを指定
Set fld = idx.CreateField(fieldName)
idx.Fields.Append fld
‘ テーブルにインデックスを追加
tdf.Indexes.Append idx
Debug.Print “インデックス [” & indexName & “] を作成しました。”
‘ オブジェクトの解放
Set fld = Nothing
Set idx = Nothing
Set tdf = Nothing
End Sub
インデックスを削除する関数
Public Sub RemoveIndex(tableName As String, indexName As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
Set tdf = db.TableDefs(tableName)
‘ 存在確認をしてから削除（これ重要！）
On Error Resume Next
tdf.Indexes.Delete indexName
On Error GoTo 0
Debug.Print “インデックス [” & indexName & “] を削除しました。”
End Sub
—
コードのポイント：ここが「プロの視点」です
1. `TableDef` オブジェクトの重みを知る
`TableDef` はテーブルの「設計図」そのものです。ここを直接いじる操作は、Accessにとって非常に重たい処理です。むやみにループの中で呼び出すのではなく、一度セットしたら使い回すのがパフォーマンス向上の鉄則です。
2. `On Error Resume Next` の正しい使い方
インデックス削除の際、もし対象が存在しなかったらエラーで止まってしまいますよね。ここでは「あれば消す、なければ何もしない」という方針をとるために、エラーを一時的に無視するテクニックを使っています。初心者が陥りやすい「エラー停止」をスマートに回避する知恵です。
3. 命名規則の重要性
`indexName` は、自分が管理しやすい名前（例: `idx_CustomerCode`）を必ず付けましょう。適当な名前をつけると、後でどれが不要なインデックスか分からなくなります。
—
こんな時に使ってみよう！
- 月次の大量データ取り込み時：
1. 取り込み前にインデックスを削除（データ挿入を高速化）
2. データを一括流し込み
3. 取り込み完了後にインデックスを再構築（検索を高速化）
- 特定のレポート抽出時：
特定のフィールドで絞り込む時だけ、一時的にインデックスを張る。
—
最後に：怖がらずに、実験を繰り返そう
「テーブルの構造を変えるなんて壊してしまいそうで怖い」と思うかもしれません。ですが、安心してください。今回紹介したコードは、あくまで「インデックス（検索のヒント）」をいじっているだけで、肝心のデータそのものを破壊するリスクは極めて低いです。
まずは、テスト用のコピーテーブルを作って、コードを一行ずつステップ実行（F8キー）してみてください。「あ、今テーブルの設計図が変わった！」という感覚を掴めれば、あなたはもうAccess VBAの初級者ではありません。
ここをクリアできれば、Accessはあなたの意のままに動くようになります。次はぜひ、この知識をあなたの業務に組み込んでみてください。応援していますよ！
