Accessの深淵を覗く：`DAO.Field.Attributes`で「自動採番」を完全攻略する
こんにちは。現場の最前線でAccessと格闘している皆さん。
「マクロの記録」から卒業し、自力でシステムを組み上げようと決意した瞬間、あなたはエンジニアとしての第一歩を踏み出しました。
多くの人が躓くのが「テーブルの構造を動的に読み解く」という壁です。「どのフィールドが自動採番（AutoNumber）なのか？」「主キーはどれか？」をコードで判定できれば、汎用的なインポート処理やデータクレンジングツールを自作できるようになります。
今回は、DAO（Data Access Objects）の神髄である`Attributes`プロパティを解剖し、あなたのコードを「ハードコーディングの呪縛」から解放します。
—
1. なぜ「Attributes」を知る必要があるのか？
Accessのテーブル構造は、ただのデータの箱ではありません。`TableDef`や`Field`といったオブジェクトが階層構造を持つ「生きたデータ」です。
私たちが知りたい「自動採番」や「主キー」といった情報は、`DAO.Field`オブジェクトの`Attributes`というプロパティに、ビットフラグとして隠されています。
ビットフラグという概念
プログラミングの世界では、複数の情報を「1つの数値」に詰め込むためにビット演算を使います。`Attributes`には、そのフィールドが「主キーなのか？」「自動採番なのか？」という情報が、ON/OFFのスイッチ（ビット）として格納されているのです。
—
2. 実践：自動採番フィールドを特定する関数
では、早速コードを見ていきましょう。特定のテーブルから「自動採番フィールド」を探し出す汎用関数です。
‘ ———————————————————
‘ 指定したテーブルの「自動採番フィールド」の名前を返す関数
‘ ———————————————————
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
‘ dbAutoIncrField = &H10 (16)
‘ Attributesと定数をAND演算し、値が一致すれば自動採番と判定
If (fld.Attributes And dbAutoIncrField) = dbAutoIncrField Then
GetAutoNumberFieldName = fld.Name
Exit Function
End If
Next fld
GetAutoNumberFieldName = “” ‘ 見つからない場合は空文字
End Function
コードの解説
- `CurrentDb`: 現在接続しているデータベースを指す最重要オブジェクト。これを使わず古いインターフェースを使うのは、現代のAccess開発ではNGです。
- `dbAutoIncrField`: Accessがあらかじめ用意している「自動採番」を示す定数です。これを知っているかどうかが、プロとアマの分かれ道です。
- `And`演算子: ここが肝です。`Attributes`の値には「主キー」や「可変長」などの情報が混ざっています。`And`を使うことで、「自動採番」のスイッチだけをピンポイントで確認しています。
—
3. 現場で陥りやすい「罠」と解決策
このコードを実装する際、初心者が必ずと言っていいほどぶつかる壁が2つあります。
罠①：オブジェクトの解放忘れ
`Set db = Nothing` や `Set tdf = Nothing` を省略していませんか？
小規模な処理なら問題ありませんが、何万件ものレコードを処理するシステムでこれを放置すると、メモリリークを引き起こし、Accessが突然クラッシュする原因になります。後片付けは、エンジニアのたしなみです。
罠②：存在しないテーブルを指定する
`db.TableDefs(strTableName)` は、テーブルが存在しないと即座にエラー（3265）を吐きます。実務では、必ずエラーハンドリングを入れるか、`TableDefs`をループして存在確認を行うのが鉄則です。
—
4. さらなる高みへ：汎用処理の応用
この関数が書けるようになれば、次は「インポート処理の自動化」が見えてきます。
例えば、CSVを取り込む際に「自動採番フィールドは無視し、それ以外をマッピングする」といった処理は、まさにこの判定ロジックがあれば一瞬で実装可能です。
‘ 応用：自動採番フィールド以外を処理対象にする例
If (fld.Attributes And dbAutoIncrField) = 0 Then
‘ ここにインポート処理や値の代入処理を書く
Debug.Print “処理対象フィールド: ” & fld.Name
End If
—
最後に：Access VBAは「対話」である
Access VBAは、単にコードを動かす道具ではありません。オブジェクトの背後にある「構造」と対話する手段です。
`Attributes`を解析できるようになったあなたは、もう「テーブル名が変わるたびにコードを書き換える」ような苦行からは解放されました。この汎用的な知見を武器に、ぜひ現場の自動化を加速させてください。
次はどの深淵を覗いてみたいですか？またいつでも相談してくださいね。応援しています。
