こんにちは。業務自動化の世界へようこそ。
Accessを単なる「データの入れ物」だと思っていませんか？
真のエンジニアにとって、Accessは「自ら成長し、環境に適応する生き物」です。アプリケーションを立ち上げるたびに、「テーブルが足りない！」とエラーを出して止まるのは素人の仕事。
今回は、起動時に自分自身の構造をチェックし、足りなければ自ら修復する「自己修復型データベース」の構築術を伝授します。これさえマスターすれば、あなたのシステムは現場で誰よりもタフな相棒になりますよ。
—
なぜ「自己修復」が必要なのか？
大規模なシステムならまだしも、部署単位で使うAccessツールにおいて、配布先で「テーブルを削除してしまった」「フィールドを追加し忘れた」というトラブルは日常茶飯事です。
一つひとつ手作業で修正させるのは非効率ですよね。「アプリが必要な構成をコードで定義し、足りなければ即座に補う」。この仕組みさえあれば、運用コストは劇的に下がります。
—
1. 存在チェックの極意：`TableDefs` コレクションを操る
Accessには、データベース内のすべてのテーブル情報を保持している `TableDefs` というコレクションがあります。これにアクセスするのが、テーブル制御の第一歩です。
存在チェックの基本コード
‘ 指定したテーブルが存在するか判定する関数
Public Function IsTableExists(tableName As String) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
IsTableExists = False
‘ TableDefsコレクションを走査（高速です）
For Each tdf In db.TableDefs
If tdf.Name = tableName Then
IsTableExists = True
Exit For
End If
Next tdf
End Function
—
2. 自己修復の実装：テーブルの自動作成
テーブルがない場合、ただ作るだけでなく「どのようなフィールド構成か」を明示的に記述する必要があります。ここで `CreateField` を使います。
自動作成・更新の堅牢なパターン
Public Sub EnsureTableStructure()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
‘ テーブルがなければ作成する
If Not IsTableExists(“T_Master_User”) Then
Set tdf = db.CreateTableDef(“T_Master_User”)
‘ フィールドを追加（ここが設計図です）
‘ CreateField(名前, データ型, サイズ)
tdf.Fields.Append tdf.CreateField(“UserID”, dbLong)
tdf.Fields.Append tdf.CreateField(“UserName”, dbText, 50)
tdf.Fields.Append tdf.CreateField(“CreatedAt”, dbDate)
db.TableDefs.Append tdf
Debug.Print “テーブルを作成しました。”
Else
Debug.Print “テーブルは既に存在します。”
End If
‘ 念のため最新の状態を反映
db.TableDefs.Refresh
End Sub
—
3. 陥りやすい「落とし穴」とプロの回避策
初学者がよくやるミスは、「フィールドの存在チェックを忘れる」こと。
テーブルはあっても、運用途中でフィールドが追加されることはよくあります。「テーブルがあるならOK」と判断せず、「必要なフィールドがそのテーブル内に存在するか」まで見に行くと、堅牢性が段違いになります。
プロの知見：フィールド追加チェックのワンポイント
‘ テーブル内のフィールド存在確認
Public Function IsFieldExists(tableName As String, fieldName As String) As Boolean
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set tdf = CurrentDb.TableDefs(tableName)
For Each fld In tdf.Fields
If fld.Name = fieldName Then
IsFieldExists = True
Exit Function
End If
Next fld
End Function
—
ステップアップのために：このコードをどこに置くか？
このコード、どこで実行するのがベストだと思いますか？
答えは「AutoExecマクロ」、あるいは「起動フォームの `Form_Load` イベント」です。
1. Access起動時に `EnsureTableStructure` を実行。
2. 必要なテーブルがなければ構築し、あれば何もしない。
3. ユーザーは「裏で何が行われたか」を意識することなく、常に最新の環境で業務を開始できる。
これが、伝説的なエンジニアが作るシステムの流儀です。
—
最後に：エンジニアとしての一歩
「動くコード」を書くのは簡単です。しかし、「壊れない、壊れても自分で治るコード」を書くことは、あなたのエンジニアとしての価値を何倍にも引き上げます。
Access VBAは古い言語だと言われることもあります。ですが、その柔軟性と「即時性」は、現場の課題を解決する最強の武器です。この記事を読み終えた今、あなたのPCにあるAccessが、単なるデータの箱ではなく、賢いシステムに進化する準備が整いました。
さあ、コードを書いてみましょう。エラーが出たら？ それはシステムがあなたに「教えてほしいこと」があるというサインです。一つずつ紐解いていけば、必ず解決できますよ。
応援しています！
