序文：ハードコードされたUIは「技術負債」の温床である
現場の最前線で戦うエンジニア諸君。いまだにフォームのラベルキャプションを一つずつプロパティシートで手入力していないか？
仕様変更のたびに、テーブル定義書を書き換え、さらにフォームのデザインビューを開いてラベルを修正する。そんな「二重管理」は、プロフェッショナルの仕事ではない。データベースの本質は「Single Source of Truth（真実の単一ソース）」だ。メタデータ（定義情報）がテーブルにあるのなら、UIはそこから自動的に導き出されるべきである。
今回は、Accessの隠れたメタデータ領域であるTableDefの「説明（Description）」プロパティをハックし、フォームのラベルを動的に制御する極限の自動化手法を伝授する。
—
1. 核心の設計思想：なぜ「説明」プロパティなのか？
Accessのフィールドには「名前」と「キャプション」がある。しかし、「キャプション」はクエリやデータシートでの表示を制御するためのものであり、開発者向けの「論理的な定義」や「業務上の注釈」を保持するには、Description（説明）プロパティが最も適している。
ここをUIのラベルソースにすることで、以下のメリットが生まれる。
1. 仕様書と実装の完全一致: テーブル設計がそのままUIに反映される。
2. 多言語・多定義対応の布石: 説明欄に特定のルール（例：`日本語名|EnglishName`）で記述すれば、動的な言語切り替えすら可能になる。
3. 保守コストの激減: フィールド名が変わっても、メタデータさえ正しければUIは壊れない。
—
2. 実装の罠：DAOにおける「プロパティ不在」の壁
初心者向けのコードでは決して語られない、実務上の最大の壁が「エラー 3270：プロパティが見つかりません」だ。
実は、Accessの`Description`プロパティは、「一度も値を入力したことがない状態」ではオブジェクトの中に存在すらしていない。 存在しないものにアクセスすれば、VBAは即座にランタイムエラーを吐いて停止する。
これを回避しつつ、高速にメタデータを取得する堅牢なラッパー関数が必要だ。
—
3. プロダクション・コード：メタデータ駆動型UI生成エンジン
以下のコードは、単なるサンプルではない。私が実際のエンタープライズ現場で標準化している、堅牢なアーキテクチャの一部だ。
3.1. プロパティ取得の安全なインターフェース
まず、プロパティの存在チェックと取得を抽象化する。
‘—————————————————————————————
‘ Procedure : GetFieldDescription
‘ Purpose : フィールドの「説明」プロパティを安全に取得する
‘—————————————————————————————
Public Function GetFieldDescription(ByVal strTabName As String, ByVal strFldName As String) As String
On Error GoTo Err_Handler
Dim db As DAO.Database
Dim fld As DAO.Field
Set db = CurrentDb
Set fld = db.TableDefs(strTabName).Fields(strFldName)
‘ Descriptionプロパティは、値が設定されていないとPropertyオブジェクト自体が存在しない
GetFieldDescription = fld.Properties(“Description”).Value
Exit_Handler:
Set fld = Nothing
Set db = Nothing
Exit Function
Err_Handler:
If Err.Number = 3270 Then ‘ Property Not Found
GetFieldDescription = “” ‘ 設定なしとして空文字を返す
Else
Debug.Print “Error: ” & Err.Number & ” – ” & Err.Description
End If
Resume Exit_Handler
End Function
3.2. フォームUIの自動マッピング・エンジン
次に、フォーム上のコントロールを走査し、紐付いているフィールドの説明文をラベルに反映させるメインロジックだ。
‘—————————————————————————————
‘ Procedure : ApplyMetaDataToForm
‘ Purpose : フォーム上のコントロールに紐付くフィールドの「説明」をラベルに反映する
‘—————————————————————————————
Public Sub ApplyMetaDataToForm(ByRef frm As Access.Form)
Dim ctl As Access.Control
Dim strSourceTable As String
Dim strFieldName As String
Dim strDesc As String
‘ フォームのレコードソースが空の場合は処理しない
If frm.RecordSource = “” Then Exit Sub
strSourceTable = frm.RecordSource
‘ フォーム内の全コントロールを走査
For Each ctl In frm.Controls
‘ テキストボックスやコンボボックスなど、データに紐付くコントロールを対象とする
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionGroup
‘ コントロールソース（連結フィールド名）を取得
strFieldName = ctl.ControlSource
‘ 非連結でない、かつ計算式（=で始まる）でない場合のみ処理
If strFieldName <> “” And Not (strFieldName Like “=”) Then
‘ メタデータの取得
strDesc = GetFieldDescription(strSourceTable, strFieldName)
‘ 「説明」が取得できた場合、付随するラベルのキャプションを書き換える
If strDesc <> “” Then
UpdateAssociatedLabel ctl, strDesc
End If
End If
End Select
Next ctl
End Sub
‘—————————————————————————————
‘ Procedure : UpdateAssociatedLabel
‘ Purpose : コントロールに付随するラベルを探し、キャプションを更新する
‘—————————————————————————————
Private Sub UpdateAssociatedLabel(ByRef targetCtl As Access.Control, ByVal strText As String)
On Error Resume Next ‘ ラベルが存在しない場合を許容
‘ Access 2000以降、Controls(0) または .Controls プロパティで付随ラベルにアクセス可能
‘ 多くの場合は targetCtl.Controls(0) がラベルオブジェクトである
If targetCtl.Controls.Count > 0 Then
If targetCtl.Controls(0).ControlType = acLabel Then
targetCtl.Controls(0).Caption = strText
End If
End If
On Error GoTo 0
End Sub
—
4. 運用の要諦：このコードをどこで叩くべきか
最も効率的なのは、フォームの `Form_Open` イベントだ。
Private Sub Form_Open(Cancel As Integer)
‘ フォーム起動時にメタデータを注入する
ApplyMetaDataToForm Me
End Sub
パフォーマンスへの配慮
「毎回テーブル定義を読みに行くのは重くないか？」という懸念を持つかもしれない。結論から言えば、数件〜数十件のフィールド数ならミリ秒単位の差だ。しかし、巨大なシステムや、リンクテーブル経由でネットワーク越しにアクセスしている場合は、Dictionaryオブジェクトにテーブル定義をキャッシュする設計に昇華させるのがプロの技だ。
一度Dictionaryに読み込めば、二度目以降のコントロール走査はメモリ内処理で完結する。
—
5. 究極の保守性を手に入れるために
この手法を導入すると、開発フローは劇的に変わる。
1. 設計: テーブル作成時、GUIのラベル名にしたい文字列を「説明」欄に書く。
2. 実装: フォームには適当な名前のテキストボックスを配置し、コントロールソースを指定するだけ。ラベルの内容は無視して良い。
3. 変更: 「『顧客名』を『クライアント名称』に変更してほしい」と言われたら、テーブル定義の「説明」を1箇所書き換えるだけ。全てのフォームを修正する必要はない。
結論
Access VBAを単なる「マクロ」として扱うか、「業務アプリケーション基盤」として扱うかの境界線は、こうしたメタデータの活用能力にある。
ハードコードを捨て、データベースの定義そのものにインテリジェンスを持たせる。これこそが、我々チーフアーキテクトが目指すべき「真の自動化」である。このコードを君のライブラリに加え、明日からの開発効率を異次元へと引き上げてほしい。
