Access VBAの深淵：AutoNumberの鎖を断ち切り、データインポートを支配する極意
Accessによるシステム開発の現場において、最も初歩的でありながら、同時に最も開発者の品格が問われるのが「データのインポート・エクスポート処理」だ。
特に、`AutoNumber`（オートナンバー）型フィールドを抱えるテーブルに対して、単純な `INSERT INTO` を叩き込んで「書き込み不能」の壁に突き当たるのは、アマチュアの所業である。プロフェッショナルは、DAOのメタデータ解析を通じてテーブルの素性を読み取り、動的に制御を行う。
今日は、Accessの内部構造を極限まで掌握するための「DAO.Field.Attributesの解析」と「メモリ管理の要諦」について語ろう。
—
1. AutoNumberを識別するDAOの真髄
多くのエンジニアは、テーブル構造を「決め打ち」でコードに書く。だが、仕様変更が頻発する企業システムにおいて、それは技術的負債以外の何物でもない。
DAO（Data Access Objects）を用いれば、テーブルのメタデータをプログラムから抽出できる。ここで鍵となるのが `DAO.Field.Attributes` プロパティだ。この数値の中に、`dbAutoIncrField` というビットフラグが立っている。これこそが、対象が自動採番フィールドであるかを判定する唯一の正解である。
実装のコアロジック
‘ DAOによる動的フィールド解析とインポート制御
Public Sub ImportDataSafely(strTableName As String, rsSource As DAO.Recordset)
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
Dim rsDest As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
Set td = db.TableDefs(strTableName)
‘ 書き込み対象のレコードセットを構築
Set rsDest = db.OpenRecordset(strTableName, dbOpenDynaset)
rsDest.AddNew
‘ フィールド属性を動的に解析
For Each fld In td.Fields
‘ dbAutoIncrField (16) が立っているかチェック
If (fld.Attributes And dbAutoIncrField) = 0 Then
‘ 自動採番ではない場合のみ値をセット
‘ ソース側のフィールド名と一致している前提
If SourceHasField(rsSource, fld.Name) Then
rsDest.Fields(fld.Name).Value = rsSource.Fields(fld.Name).Value
End If
End If
Next fld
rsDest.Update
‘ オブジェクトの明示的解放（メモリ管理の鉄則）
rsDest.Close: Set rsDest = Nothing
Set td = Nothing
Set db = Nothing
End Sub
—
2. メモリ最適化と「破滅」を防ぐための流儀
VBAにおけるメモリ管理は、ガベージコレクションに依存するモダン言語とは異なり、開発者の「意志」がすべてだ。
- `Set object = Nothing` は儀式ではない: オブジェクト変数を `Nothing` に明示的に設定しないことは、リークの放置を意味する。特にループ内でオブジェクトを生成する場合、スコープを最小限に絞り、即座に解放するルーチンを叩き込め。
- `CurrentDb` のキャッシュ化: `CurrentDb` を呼び出すたびにAccessは内部的な初期化オーバーヘッドを発生させる。プロは必ず `Dim db As Database` に一度代入し、それを使い回す。これだけで、数万件のバッチ処理における体感速度は劇的に変わる。
—
3. レガシー環境とWindows APIの境界線
もし、インポート元が外部のExcelやテキストファイルであり、ファイルロックやハンドルの取得に苦戦しているならば、`kernel32` を呼び出し、ファイルアクセス権を直接叩くことも検討すべきだ。
しかし、Access VBAの文脈において、APIを呼ぶのは「手段の最後」であるべきだ。DAOが提供する `dbSeeChanges` などの定数を正しく理解し、Jet/ACEエンジンの挙動を制御する方が、保守性は遥かに高い。
—
伝説のエンジニアからの提言
システムは「動くこと」が最低条件だが、真に優れたアーキテクチャとは「仕様変更を前提とした柔軟性」を備えているものだ。
今回紹介した `Attributes` の解析手法は、汎用的なインポート・モジュールを構築するための「定石」である。`dbAutoIncrField` 以外にも、`dbUpdatableField` や `dbSystemField` など、DAOが保持するメタデータには宝の山が眠っている。
リファレンスを写経するだけのエンジニアを卒業し、Accessの内部構造（Engine Core）を俯瞰する視点を持ってほしい。そうすれば、どんなに巨大化したレガシーシステムであっても、その制御権は常に君の手元にあるはずだ。
技術を愛せ。そして、コードに魂を刻め。
