Access VBAで「堅牢なデータ構造」を動的生成する：ValidationRuleの真髄
Access開発で初心者が陥る最大の罠は、「入力チェックをフォームのイベント（BeforeUpdateなど）だけに頼ること」だ。
フォームはあくまで入り口に過ぎない。インポート機能、クエリでの直接編集、あるいは他システムとの連携において、データが汚染されるリスクを常に排除しなければならない。真のアーキテクトは、データ構造そのものに「ルール」を刻み込む。
今回は、DAO（Data Access Objects）を活用し、`TableDef`から動的に「入力規則（ValidationRule）」を制御する、プロダクションレベルの手法を伝授する。
—
1. なぜ「テーブル定義」で制御すべきなのか
フォームのVBAでバリデーションを書くのは簡単だ。しかし、以下の理由から、テーブル定義レベルでの制御が不可欠である。
- 一貫性の担保: フォーム経由以外（インポート等）からの不正なデータ混入を物理的に拒否できる。
- 保守性の向上: 業務ルールが変わった際、テーブル定義を書き換えるだけでシステム全体に強制適用される。
- 整合性の維持: データベースが「自分自身で守る」という設計思想（データ自律性）こそが、バグの温床を断つ鍵だ。
—
2. 堅牢な実装のためのアーキテクチャ
まずは、特定のフィールドに対して「入力規則」を安全に適用・更新する汎用関数を紹介する。重要なのは、「プロパティが存在しない場合の例外処理」と「既存ルールの安全な置換」である。
実装コード：`ApplyTableValidation`
‘ —————————————————————————
‘ 機能: 指定したテーブルのフィールドに入力規則を動的に適用する
‘ 備考: 既存の規則を上書きし、エラー発生時は即座に握り潰さず例外を投げる設計
‘ —————————————————————————
Public Sub ApplyTableValidation(strTableName As String, strFieldName As String, strValidationRule As String, strValidationText As String)
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set td = db.TableDefs(strTableName)
Set fld = td.Fields(strFieldName)
On Error GoTo ErrorHandler
‘ プロパティの更新
fld.ValidationRule = strValidationRule
fld.ValidationText = strValidationText
‘ 変更を反映
td.Fields.Refresh
Debug.Print “Success: ” & strFieldName & ” のルールを更新しました。”
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical, “バリデーション適用失敗”
End Sub
—
3. 現場で「死なない」ための3つの鉄則
このコードをそのまま使い、大規模開発で生き残るための「プロの心得」を伝授する。
① ロック競合を意識せよ
`TableDef`へのアクセスは、テーブルが排他ロックされている必要がある。他のユーザーが開いている最中にこのコードを実行するとエラーになる。運用ツール（管理画面など）にこの機能を実装する場合、必ず全ユーザーの接続を切断するプロセスを前段に置くか、排他モードで運用する設計にすること。
② エラーメッセージの抽象化
`ValidationText`はユーザーへの「通知」だ。「入力値が正しくありません」といった無機質なメッセージではなく、「例：2023/01/01 以降の日付を入力してください」のように、修正の道筋を示す具体的で優しいメッセージを設定せよ。
③ 開発環境と本番環境の分離
この処理をアプリケーションの起動時に毎回実行してはならない。パフォーマンスの低下を招くだけだ。「テーブル定義を変更する管理用ツール」と「業務で利用する実行用ツール」を切り分け、変更が必要な時だけ管理者が実行する運用がベストプラクティスである。
—
4. 実践：ルールを適用する呼び出し例
例えば、「在庫数」フィールドに「0以上かつ1000以下」というルールを課したい場合、以下のように呼び出す。
Sub UpdateStockRules()
‘ 在庫数(StockCount)に対し、0～1000の範囲制約をかける
ApplyTableValidation “T_Products”, “StockCount”, “>=0 And <=1000", "在庫数は0から1000の間で入力してください。"
End Sub
---
最後に：エンジニアとしての矜持
VBAは「初心者向け」と揶揄されることもある。だが、AccessのDAOを深く理解し、テーブルのライフサイクルを制御できる人間にとって、これは最強の武器になる。
あなたが書くコードは、単なる命令の羅列ではなく、「データベースを守る防壁」であるべきだ。入力規則を動的に制御するということは、ビジネスの変更に即座に対応できる「柔軟なシステム」を作ることに他ならない。
現場の困りごとを、スマートな設計で解決してほしい。健闘を祈る。
