こんにちは！Access VBAの世界へようこそ。
普段、Accessでフォームを作っていて「テーブルのフィールド名を変えたり、項目の説明を更新したときに、フォームのラベルまで一つひとつ手作業で打ち直すのが面倒だな…」と感じたことはありませんか？
画面デザインとデータベース構造がバラバラに管理されていると、変更漏れや転記ミスが発生し、保守コストが跳ね上がってしまいます。
そこで今回は、「テーブル定義（TableDef）の『説明』プロパティをメタデータとして活用し、フォームのラベルへ自動的に反映させる動的UI生成」のテクニックを解説します！
テーブル側で「説明」を書き換えるだけで、画面上の表示テキストも一発で切り替わる仕組みを作ってみましょう。ここをクリアできれば、Access VBAのデータ構造理解と自動化の基本はバッチリですよ！
—
1. なぜ「テーブルの説明」をUIに自動反映させるのか？
まずは、この仕組みを導入するメリットを整理しておきましょう。
【従来の開発手法】
[テーブルのフィールド] ──(手作業で同期)──> [フォーム上のラベル]
※変更があるたびに、デザインビューを開いてラベルの Caption を打ち直す…（ミスの原因）
【本記事で構築する動的UI】
[テーブルの「説明」] ──(VBAが自動読み込み)──> [フォーム上のラベル]
※テーブル定義を直すだけで、アプリ全体の画面表示が自動更新される！
- 保守性の劇的向上: テーブル側を「正（Primary Source of Truth）」として一元管理できます。
- 画面開発の高速化: フォーム作成時にラベルの文字をいちいち入力する必要がなくなります。
- 表記ブレの防止: 「顧客ID」と「顧客コード」といった表記揺れをシステム全体で一括防止できます。
—
2. 知っておくべきAccess DAOの「最大の罠」
VBAでテーブルのフィールド情報を扱う際、DAO（Data Access Objects）というライブラリを使用します。
DAOのオブジェクト階層は以下のようになっています。
CurrentDb (Databaseオブジェクト)
└── TableDefs (TableDefオブジェクトの集合)
└── Fields (Fieldオブジェクトの集合)
└── Properties (Propertyオブジェクトの集合) ★ここに「Description」が入る
ここでプログラミング初学者が必ずハマるAccess VBA最大の罠があります。
それは、「一度も説明を入力していないフィールドには、`Description` プロパティ自体が存在しない」という点です。
値が「空文字（””）」なのではなく、プロパティそのものが存在しないため、単純に `Field.Properties(“Description”).Value` を読みに行くと、「エラー 3265：要素がコレクションに見つかりません」が発生してプログラムが停止してしまいます。
そのため、プロパティが存在するかどうかを安全にチェックする「堅牢なラッパー関数」を用意することがプロの極意です。
—
3. 【実践コード①】「説明」を安全に取得する汎用関数
まずは、指定したテーブルとフィールドから「説明」プロパティを安全に取得するVBAコードを作成します。標準モジュールを追加して、以下のコードを貼り付けてみてください。
Option Explicit
‘ ==============================================================================
‘ 関数名 : GetFieldDescription
‘ 概要 : 指定したテーブルのフィールドから「説明」プロパティを安全に取得する
‘ 引数 : strTableName (String) – 対象のテーブル名
‘ strFieldName (String) – 対象のフィールド名
‘ 戻り値 : String – フィールドの説明（存在しない場合はフィールド名を返す）
‘ ==============================================================================
Public Function GetFieldDescription(ByVal strTableName As String, ByVal strFieldName As String) As String
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim strDesc As String
‘ デフォルト値としてフィールド名をセット（説明がない場合の安全策）
GetFieldDescription = strFieldName
‘ データベースとテーブル定義の取得
Set db = CurrentDb
‘ テーブルの存在チェック
On Error Resume Next
Set tdf = db.TableDefs(strTableName)
On Error GoTo ErrorHandler
If tdf Is Nothing Then Exit Function
‘ フィールドの存在チェック
On Error Resume Next
Set fld = tdf.Fields(strFieldName)
On Error GoTo ErrorHandler
If fld Is Nothing Then Exit Function
‘ — プロパティの取得（存在しない場合はエラー 3265 が発生するためトラップする） —
On Error Resume Next
strDesc = fld.Properties(“Description”).Value
If Err.Number = 0 Then
‘ 説明が取得できたら、空文字でない場合のみ戻り値に設定
If Trim(strDesc) <> “” Then
GetFieldDescription = strDesc
End If
Else
‘ エラー 3265（プロパティなし）の場合は無視してデフォルト値（フィールド名）を採用
Err.Clear
End If
CleanUp:
‘ メモリの明示的解放（オブジェクトライフサイクルの管理）
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
Exit Function
ErrorHandler:
‘ 予期せぬエラーの捕捉
Debug.Print “Error in GetFieldDescription: ” & Err.Number & ” – ” & Err.Description
Resume CleanUp
End Function
—
4. 【実践コード②】フォームのラベルを自動書き換えするUI自動生成処理
次に、フォームが開いたとき（または読み込まれたとき）に、フォーム上の全コントロールをスキャンし、対応するラベルの `Caption`（表示テキスト）をテーブル定義の「説明」に自動書き換えする処理を作成します。
前提条件（フォームの作り方）
Accessの標準機能でフォームを作成すると、テキストボックス（例: `txt_顧客名`）に対して付属ラベルが関連付けられます。今回は、コントロールソース（接続先フィールド名）を元に、テーブルの「説明」を検索します。
以下のコードをフォームモジュール（または標準モジュールの共通処理）に記述します。
‘ ==============================================================================
‘ 処理名 : ApplyTableDescriptionToLabels
‘ 概要 : フォーム上の各コントロールの接続先フィールドから「説明」を取得し、
‘ 関連付けられたラベルの Caption を自動更新する
‘ 引数 : frm (Form) – 対象のフォームオブジェクト
‘ ==============================================================================
Public Sub ApplyTableDescriptionToLabels(ByRef frm As Access.Form)
On Error GoTo ErrorHandler
Dim strRecordSource As String
Dim ctl As Access.Control
Dim lbl As Access.Label
Dim strFieldName As String
Dim strDescription As String
‘ フォームのレコードソース（テーブル名）を取得
strRecordSource = frm.RecordSource
‘ レコードソースが設定されていない、またはSQL文の場合はスキップ（簡易判定）
If strRecordSource = “” Or InStr(1, strRecordSource, “SELECT”, vbTextCompare) > 0 Then
‘ ※SQL文の場合はクエリ名やテーブル名を抽出するロジックが必要ですが、ここではテーブル直接指定を前提とします
Exit Sub
End If
‘ フォーム上の全コントロールをループ処理
For Each ctl In frm.Controls
‘ コントロールソース（接続先フィールド）を持つコントロール（テキストボックスやコンボボックス等）か判定
If HasProperty(ctl, “ControlSource”) Then
strFieldName = ctl.ControlSource
‘ コントロールソースにフィールド名が設定されているか確認（式 “=Date()” などは除外）
If strFieldName <> “” And Not strFieldName Like “=” Then
‘ テーブル定義から「説明」を取得
strDescription = GetFieldDescription(strRecordSource, strFieldName)
‘ 関連付けられている付属ラベル（ParentまたはControls経由）のCaptionを書き換える
On Error Resume Next
Set lbl = ctl.Controls(0) ‘ 付属ラベルは Controls(0) で取得可能
On Error GoTo ErrorHandler
If Not lbl Is Nothing Then
lbl.Caption = strDescription
Set lbl = Nothing
End If
End If
End If
Next ctl
CleanUp:
Set ctl = Nothing
Set lbl = Nothing
Exit Sub
ErrorHandler:
Debug.Print “Error in ApplyTableDescriptionToLabels: ” & Err.Number & ” – ” & Err.Description
Resume CleanUp
End Sub
‘ — ヘルパー関数: コントロールが特定のプロパティを持っているか判定 —
Private Function HasProperty(ByVal obj As Object, ByVal strPropName As String) As Boolean
On Error Resume Next
Dim dummy As Variant
dummy = obj.Properties(strPropName)
HasProperty = (Err.Number = 0)
Err.Clear
End Function
フォーム側からの呼び出し方
作成したフォームの `Form_Load`（開く時）イベント で、上記のプロシージャをたった1行呼び出すだけです！
Private Sub Form_Load()
‘ フォームの読み込み時に、ラベル表示をテーブルの「説明」に一括自動反映！
Call ApplyTableDescriptionToLabels(Me)
End Sub
—
5. 動作のイメージと処理の流れ
この仕組みが動くプロセスを図解すると、以下のようになります。
1. 開発者がテーブルデザイン画面で「説明」を入力
┌─────────────────────────────────────────┐
│ フィールド名 │ データ型 │ 説明 │
├─────────────┼─────────┼─────────────────┤
│ CustomerID │ 数値型 │ 顧客識別コード │
│ ClientName │ テキスト │ 顧客の正式名称 │
└─────────────────────────────────────────┘
│
2. フォーム起動（Form_Loadイベント）
│
3. VBAが TableDef をスキャンし、Description を安全取得
│
4. 画面上のラベル表示が自動で切り替わる！
┌─────────────────────────────────────────┐
│ [顧客識別コード] [ 10001 ] │
│ [顧客の正式名称] [ 株式会社〇〇 ] │
└─────────────────────────────────────────┘
デザイナー画面で泥臭くラベルの文字を直す必要はもうありません。テーブルの定義変更が、そのままUIの最新化へとシームレスに連動します。
—
6. 実務で役立つ！さらに一歩進んだプロのノウハウ
ここで、伝説的なアーキテクトの視点から、さらに実務の現場で役立つチューニングと注意点をアドバイスします。
① クエリ（QueryDef）をレコードソースにしている場合の拡張
実務ではフォームの `RecordSource` に直接テーブル名ではなく「クエリ」を指定することも多いでしょう。
その場合、DAOの `QueryDef` オブジェクトからフィールドの `SourceTable`（参照元テーブル名）と `SourceField`（参照元フィールド名）を取得してパースすることで、クエリ経由でも元テーブルの「説明」を追跡できます。
② パフォーマンスとキャッシュ
大量のコントロールが存在する巨大なフォームの場合、開くたびに `CurrentDb` や `TableDefs` を検索すると微小なレイテンシ（遅延）が発生することがあります。
高速化したい場合は、アプリ起動時に `Dictionary` オブジェクトなどにテーブル定義の「説明」をメモリキャッシュしておき、フォームからはそのメモリを参照するように設計すると、瞬時に描画が完了します。
—
7. まとめ：メタデータ駆動開発でワンランク上のAccessエンジニアへ！
今回のポイントを復習しましょう。
1. テーブル定義の「説明」をUIのメタデータとして活用すると、保守性が劇的に向上する。
2. DAOの `Description` プロパティは未設定だとエラー 3265 になるため、適切なエラー処理が必要。
3. `Form_Load` イベントでラベルの `Caption` を動的に更新することで、設計変更に強い柔軟なアプリが作れる。
手作業での更新作業をVBAの仕組みによって自動化する手法は、「メタデータ駆動開発」の第一歩です。
単にマクロを記述するレベルから抜け出し、データベースの構造そのものをプログラムで制御できるようになると、Access開発が何倍も楽しく、そしてエレガントになりますよ！
ここをマスターできれば、Access VBAの基本とプログラミング思考はバッチリです。ぜひご自身のツールで試してみてくださいね！
