こんにちは！データベース設計やVBAの自動化に挑む皆さん、お疲れ様です。世界最高峰の現場を渡り歩いてきたシニアアーキテクトの私から、今日はAccess VBAの非常に実用的なテクニックを伝授しましょう。
マクロの記録から一歩抜け出し、「テーブルのプロパティをコードで完全に支配する」という領域に足を踏み入れます。ここをクリアすれば、Access VBAの基本はバッチリですよ！
—
なぜ、GUIでの「入力規則」設定を卒業するべきなのか？
Accessでデータベースを作るとき、こんな面倒な作業をしたことはありませんか？
- 「売上金額は0以上」というルールを、50個あるテーブルの「金額」フィールドに1つずつマウスでポチポチ設定した。
- 後から「やっぱり条件を1円以上にする変更があった！」となり、また全テーブルを泣く泣く手動で修正した。
……地獄ですよね。人間は疲れると設定ミスレジスタを発生させます。プログラミングの鉄則は「同じ手作業を2回以上しないこと」です。
VBAを使えば、一瞬で、正確に、すべてのテーブルの「入力規則（ValidationRule）」と「入力規則違反時のメッセージ（ValidationText）」を統一できます。今回は、その極意を優しく、かつ本質的に解説していきましょう。
—
そもそも「入力規則」とは何か？（基本のおさらい）
データ入力の際、「間違った値（例えば、年齢に『マイナス』や『ゴリラ』など）」が入らないように水際で防ぐ門番、それが入力規則です。
- 入力規則 (ValidationRule): 条件式（例: `> 0` や `Is Not Null`）
- 入力規則違反時のメッセージ (ValidationText): 条件に違反したときにユーザーに優しく教える警告文（例: 「0より大きい数値を入力してください！」）
これをVBAの`TableDef`（テーブル定義）オブジェクトを使って操作します。
—
【実践】入力規則を一括設定するVBAコード
百聞は一見に如かず。まずは、現場でそのままコピペして使える実用コードを提示します。
今回は例として、「特定の名前で始まるテーブルの『単価』というフィールドに、すべて『0以上』という入力規則を強制適用する」コードを見てみましょう。
Sub SetValidationRuleBatch()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim targetCount As Long
‘ データベースのインスタンスを取得（現在のデータベース）
Set db = CurrentDb()
targetCount = 0
‘ エラーハンドリングの基本：トランザクション的視点
On Error GoTo ErrorHandler
‘ データベース内のすべてのテーブル定義をループ（走査）する
For Each tdf In db.TableDefs
‘ システムテーブル（MSysで始まるもの）やリンクテーブルを除外
If (tdf.Attributes & dbSystemObject) = 0 And Left(tdf.Name, 4) <> “MSys” Then
‘ テーブル内に「単価」という名前のフィールドが存在するかチェック
If FieldExists(tdf, “単価”) Then
Set fld = tdf.Fields(“単価”)
‘ 【ここが本丸】入力規則とメッセージの設定
fld.ValidationRule = “>= 0”
fld.ValidationText = “警告：単価には0以上の数値を入力してください。”
targetCount = targetCount + 1
Debug.Print “設定完了: ” & tdf.Name & “.単価”
End If
End If
Next tdf
MsgBox “処理が完了しました。合計 ” & targetCount & ” 個のテーブルを更新しました。”, vbInformation, “一括設定成功”
CleanExit:
‘ オブジェクトの解放（メモリリークを防ぐプロの作法）
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanExit
End Sub
‘ — 【補助関数】指定したフィールドが存在するか判定するヘルパー —
Private Function FieldExists(tdf As DAO.TableDef, fieldName As String) As Boolean
Dim f As DAO.Field
FieldExists = False
For Each f In tdf.Fields
If f.Name = fieldName Then
FieldExists = True
Exit For
End If
Next f
End Function
—
コードの重要なポイントを徹底解説
初心者から中級者へステップアップするために、上記のコードで使われている「プロの技術」をいくつか紐解いていきましょう。
1. DAO (Data Access Objects) の世界観
Access VBAでテーブル構造（定義）をいじる時は、ADOではなくDAOを使います。`CurrentDb()` 関数で現在のデータベースを掴み、`db.TableDefs` という「テーブルの設計図の束」を `For Each` でパラパラとめくっていくイメージです。
2. システムテーブルのガード
`If (tdf.Attributes & dbSystemObject) = 0` という条件、これが極めて重要です。
Accessの裏側で動いているシステム用のテーブル（MSysで始まるもの）をうっかり書き換えようとすると、データベースが盛大に壊れます。「システム用ではない、ユーザーが作ったテーブルだけを触る」という安全弁は、実務では絶対に忘れてはいけない鉄則です。
3. プロが必ず書く「メモリ解放 (Set = Nothing)」
ループ処理やオブジェクトの参照を行うと、メモリ上にゴミが残りやすくなります。処理の最後に `Set fld = Nothing` のように空っぽを代入してあげることで、Accessの動作が軽快に保たれます。こういう細部へのこだわりが、のちに「安定したシステム」を生むのです。
—
初学者がハマりやすい「罠」と回避策
VBAでテーブル定義を操作する際、初心者が必ずと言っていいほど直面する壁があります。事前に知っておけば怖くありません。
罠その1：「実行時エラー ‘3219’: 操作は許可されていません」
- 原因: 開いている（デザインビューやデータシートビューで画面に表示されている）テーブルの定義を、コードから書き換えようとしたときに起きます。
- 対策: テーブル定義を変更するマクロやVBAを実行するときは、該当するテーブルをすべて閉じてから実行してください。
罠その2：入力規則の文字列（構文）ミス
- 原因: `fld.ValidationRule = “>= 0″` の部分で、例えば文字型に対してクォーテーションを忘れたりすると、エラーになります。
- 対策: まずはAccessのGUI（テーブルのデザインビュー）で手動入力し、正しく動くルールを確認してから、その文字列をそのままVBAのダブルクォーテーションの中に移植するのが一番の近道です。
—
おわりに
お疲れ様でした！今回は「テーブル定義の走査」「フィールドの存在チェック」「プロパティの動的書換」「安全なエラー処理」という、実務で必須の要素が詰まったプログラムを解説しました。
GUIで何時間もかかっていた作業が、F5キー一発（またはボタンクリック）で一瞬にして終わる――。この瞬間、あなたは単なる「Accessの利用者」から「データベースの構築者（エンジニア）」へと進化しています。
この知見をベースに、次は「必須入力（Required属性）」や「既定値（DefaultValue）」の設定などにも応用を広げてみてください。あなたのAccessライフが、よりスマートで快適なものになることを応援しています！
