Accessの「神」に近づく：DAOで自動採番（AutoNumber）を瞬時に見抜くメタデータ解析術
こんにちは。現場で泥臭く、かつエレガントな自動化システムを組み上げているエンジニアです。
Accessを使っていて、「インポート処理を作ったけど、自動採番（オートナンバー）のフィールドがあるせいでエラーが出る…」と頭を抱えたことはありませんか？ 手動でフィールドを除外するコードを書いても、テーブル構成が変わればまた修正。そんな非効率な開発からは、今日で卒業しましょう。
今回は、Accessの心臓部であるDAO（Data Access Objects）を操り、コードから「自動採番フィールド」を自動で特定する極限のテクニックを伝授します。
—
1. なぜ「DAO」を使うのか？
Access VBAには「ADO」と「DAO」という二つの強力なエンジンがあります。
Accessのテーブル構造（メタデータ）を解析するなら、迷わずDAOを使ってください。 DAOはAccessのネイティブな操作に最適化されており、テーブルの型や属性を読み取るスピードと安定感が段違いだからです。
ここがポイント
- CurrentDb: 現在開いているデータベースへの入り口。
- TableDefs: テーブルの設計図（メタデータ）が格納されている場所。
- DAO.Field.Attributes: フィールドの「性格」が書かれたビットフラグ。
—
2. 自動採番を見抜く「Attributes」の正体
`DAO.Field.Attributes` プロパティには、そのフィールドが「主キーなのか？」「自動採番なのか？」という情報が数値として詰め込まれています。
自動採番フィールドは、この属性の中に `dbAutoIncrField` という定数を含んでいます。これを `And` 演算子で判定することで、プログラムは「お、こいつは自動採番だな！」と自律的に判断できるのです。
—
3. 実践！自動採番フィールド特定コード
この関数は、指定したテーブル名から自動採番フィールドの名前を返します。現場でそのままコピペして使えるように設計しました。
‘ ==========================================================
‘ 指定テーブル内の「自動採番フィールド名」を取得する関数
‘ 戻り値: 自動採番フィールド名（存在しない場合は空文字）
‘ ==========================================================
Public Function GetAutoNumberFieldName(strTableName As String) As String
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set tdf = db.TableDefs(strTableName)
‘ テーブル内の全フィールドを走査
For Each fld In tdf.Fields
‘ Attributesプロパティに dbAutoIncrField が含まれているかチェック
If (fld.Attributes And dbAutoIncrField) <> 0 Then
GetAutoNumberFieldName = fld.Name
Exit Function
End If
Next fld
‘ 見つからなかった場合は空文字を返す
GetAutoNumberFieldName = “”
End Function
コードの解説
1. `For Each fld In tdf.Fields`: テーブルの全フィールドを一つずつ確認します。
2. `(fld.Attributes And dbAutoIncrField) <> 0`: ここが魔法の判定式です。ビット演算を行い、該当する属性ビットが立っていれば自動採番と判断します。
3. `Exit Function`: 目的のものが見つかった時点で処理を打ち切るのが、高速化の鉄則です。
—
4. 初学者が陥りやすい「落とし穴」
コードを組む際、以下の点に気をつけてください。
- テーブル名の間違い: `db.TableDefs(“存在しないテーブル名”)` を指定すると実行時エラーになります。`On Error Resume Next` でエラーハンドリングを行うか、事前に `TableDefs` に存在するかチェックするロジックを挟むのがプロの仕事です。
- 型の違い: `dbAutoIncrField` は「長整数型（Long）」のフィールドにしか付与されません。もし「レプリケーションID（GUID）」で自動採番をしている場合は、判定条件が変わるため注意が必要です。
—
5. 次のステップへ
この関数を使えば、データインポート処理で「自動採番フィールドを無視してデータを流し込む」という柔軟な処理が書けます。
「特定のフィールドを除外してInsert文を組み立てる」といった処理を組み合わせれば、どんなテーブル構造にも対応できる無敵の汎用インポートツールが完成します。
Access VBAは、単なるマクロの延長ではありません。DAOを理解すれば、データベースの深淵を自由自在に操れるようになります。まずはこのコードをVBEに貼り付け、手元のテーブルで試してみてください。
ここをクリアできれば、あなたの開発スタイルは劇的に変わりますよ！応援しています。
