Access VBAを掌握する極限の知見：DAO.Field.Attributes解析による自動採番フィールドの動的特定
レガシーシステムの骨格をなすMicrosoft Access。その真価を極限まで引き出すためには、GUIの背後でうごめくDAO（Data Access Objects）のオブジェクトモデル、そしてメモリのライフサイクルを完全に掌握していなければならない。
汎用的なデータインポートツールや、外部システムとの動的なETLパイプラインを構築する際、最も高い壁となるのが「テーブル構造の変動への耐性」である。特に、主キーや自動採番（AutoNumber）フィールドの扱いは、ハードコーディングを許さない極めてシビアな領域だ。
今回は、`DAO.Field.Attributes` プロパティのビットマスクを解析し、実行時に自動採番フィールドを寸分違わず特定する、実戦投入可能な汎用プロシージャを公開する。
—
1. DAO.Field.Attributes の深層：ビット演算による属性判定
多くのアマチュアプログラマは、テーブルの構造解析を行う際に `CurrentDb.TableDefs` を走査し、力技でフィールド名やデータ型を判定しようとする。しかし、Accessの内部仕様を知るシニアエンジニアであれば、プロパティの背後にある「ビットフラグ」に直接アプローチする。
`DAO.Field.Attributes` は、単一の数値であらず、複数の属性（長整数型、必須、固定長、自動採番など）がビット単位でオア結合された複合値である。
自動採番フィールドを特定するために必要な定数は以下の通りだ。
- `dbAutoIncrField` （値: `16` / 0x10）: フィールドがインクリメント（自動採番）されることを示す。
- （参考）`dbUpdatableField` （値: `32`）
- （参考）`dbFixedField` （値: `1`）
したがって、ある `DAO.Field` オブジェクトの `Attributes` プロパティに対し、`And` 演算子を用いて `dbAutoIncrField` のビットが立っているかを評価すれば、データ型に依存せず確実に自動採番フィールドを特定できる。
‘ 属性値に dbAutoIncrField (16) のフラグが含まれているか判定
If (fld.Attributes And dbAutoIncrField) = dbAutoIncrField Then
‘ 自動採番フィールドである
End If
この判定アプローチは、OLE DBやODBC経由のリンクテーブル、あるいは物理的なローカルJet/ACEデータベースのどちらであっても、DAOエンジンが解釈する限り一貫して機能する。
—
2. メモリ最適化とオブジェクトモデルの鉄則
Access VBAにおける最大のパフォーマンス劣化要因、およびメモリリークの温床は、「暗黙のオブジェクト参照」と「解放の怠慢」である。
`CurrentDb` 関数を呼び出すたびに、内部では新しい `Database` オブジェクトがメモリ上にインスタンス化される。これを安易にループ内で使い回したり、変数に格納した `Recordset` や `TableDef` を `Nothing` で明示的に解放しないコードは、ガベージコレクションのタイミングを狂わせ、やがてAccess特有の「リソース不足」エラーを引き起こす。
シニアアーキテクトが書くコードには、必ず厳格なライフサイクル管理が存在する。
1. `CurrentDb` は一度だけ変数に受け、スコープを最小限にする。
2. 取得したDAOオブジェクト（TableDef, Field等）は、処理終了後に必ず `Set xxx = Nothing` でメモリからパージする。
3. エラーハンドリング（`On Error GoTo`）を必ず実装し、異常系でも確実にメモリ解放を行わせる。
—
3. 実装：自動採番フィールドを動的特定する汎用モジュール
以下のコードは、指定されたテーブル名から自動採番フィールドの名称を動的に取得し、インポート処理等のエンジンプリプロセスで活用するための汎用関数である。
実務の現場でそのままコピー＆ペーストして組み込めるよう、堅牢なエラーハンドリングとオブジェクトの明示的解放を組み込んでいる。
Option Compare Database
Option Explicit
‘ =========================================================================
‘ 汎用関数: 指定テーブルの自動採番（AutoNumber）フィールド名を取得する
‘ 引数:
‘ strTableName – 対象のテーブル名 (String)
‘ 戻り値:
‘ String – 自動採番フィールドの名称。存在しない場合は空文字を返す。
‘ =========================================================================
Public Function GetAutoNumberFieldName(ByVal strTableName As String) As String
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim resultFieldName As String
‘ 初期化
resultFieldName = “”
On Error GoTo ErrorHandler
‘ 1. 現在のデータベースへの参照を取得（CurrentDbは毎回インスタンスを生成するため変数に保持）
Set db = CurrentDb()
‘ 2. TableDefsコレクションから対象テーブルが存在するか確認しつつ取得
‘ ※存在しないテーブルを指定された場合のエラーをハンドリング
Set tdf = db.TableDefs(strTableName)
‘ 3. Fieldsコレクションを走査
For Each fld In tdf.Fields
‘ Attributesプロパティと dbAutoIncrField (16) のビットAND演算
If (fld.Attributes And dbAutoIncrField) = dbAutoIncrField Then
resultFieldName = fld.Name
Exit For ‘ 自動採番は通常1テーブルに1つなので、見つかったらループを抜ける
End If
Next fld
CleanUp:
‘ 4. 逆順または確実にオブジェクト変数を解放し、メモリリークを防止する
If Not fld Is Nothing Then Set fld = Nothing
If Not tdf Is Nothing Then Set tdf = Nothing
If Not db Is Nothing Then Set db = Nothing
GetAutoNumberFieldName = resultFieldName
Exit Function
ErrorHandler:
‘ 致命的なエラーログの出力や独自の例外処理をここに記述
MsgBox “テーブル構造の解析中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “構造解析エンジンの異常終了”
Resume CleanUp
End Function
—
4. チーフアーキテクトからの実務的提言
この `GetAutoNumberFieldName` 関数を組み込むことで、例えば外部CSVデータをインポートする際、以下のような高度な動的SQL構築が可能になる。
- 自動採番フィールドをインポート対象から除外し、データベースエンジン側に自動採番を委譲する。
- 逆に、インポート時に `DBEngine.SetOption` や `dbAppendOnly` などのトランザクション制御と組み合わせ、既存の自動採番値を一時的に維持したままバルクインポートを行う（Identity Insert的な挙動の制御）。
レガシーシステムと呼ばれるAccessであっても、その底流にあるDAOの仕様を深く理解し、メモリのライフサイクルをコントロールする者にとっては、今なお極めて強力な高速開発プラットフォームであり続ける。
場当たり的なコードの乱立を排し、堅牢で美しいアーキテクチャを構築してほしい。
