こんにちは！ Access VBAの奥深い世界へようこそ。
今回は、多くの現場で毎年4月や10月などの「年度替わり」に担当者を悩ませる、テーブルの「既定値（デフォルト値）」の動的な変更をテーマに解説します。
「新しい年度になった途端、何百件もあるマスターデータの既定値を手作業で書き換えている……」
そんな非効率な作業、今日で終わりにしましょう。
ここをクリアすれば、Access VBAの本質である「DAO（Data Access Objects）を通じたメタデータ操作」の基本がバッチリ身につきます。マクロの記録なんてないAccessの世界で、コードでデータベース構造を自在に操る快感を、一緒に味わってみましょう！
—
なぜ「手作業」から脱却すべきなのか？
システムを運用していると、こんな要望が飛んできますよね。
> 「来年度から、売上テーブルの『年度』フィールドの既定値を『2023』から『2024』に一斉に変えておいて！」
これをデザインビューを開いて、1つずつポチポチ手作業で変更していませんか？
もし対象のテーブルが1つならまだしも、関連するテーブルが10個、20個とあったらどうでしょう。手作業では必ず「変更漏れ」や「入力ミス」というヒューマンエラーが発生します。
VBAを使えば、この作業を一瞬で、ノーミスで、しかもボタン一つで自動化できます。データベースの設計図（メタデータ）すらもプログラムで支配下におく。これがプロのエンジニアのやり方です。
—
押さえておくべき基本：DAOとTableDef
Accessでテーブルの構造（既定値やデータ型など）を変更するには、AccessのエンジンであるDAO（Data Access Objects）という仕組みを使います。
ここで、Accessのオブジェクト階層のイメージを頭に入れておきましょう。
[DB全体 (CurrentDb)]
└─ [テーブルの設計図 (TableDefs)]
└─ [特定のテーブル (例: “T_売上”)]
└─ [個々のフィールド (Fields)]
└─ [プロパティ (DefaultValue など)]
私たちが操作するのは、このツリー構造の中にある `TableDef`（テーブル定義） と `Field`（フィールド） です。
—
実践！ 既定値を動的に書き換えるVBAコード
それでは、実際に動くコードを見てみましょう。
今回は、現在の西暦から自動的に「来年度の西暦（例: 2024）」を計算し、テーブルの既定値を書き換えるスマートなプログラムを作成します。
以下のコードを、VBAの標準モジュールに貼り付けてみてください。
Sub UpdateDefaultValue_Yearly()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim targetTableName As String
Dim targetFieldName As String
Dim newDefaultValue As String
On Error GoTo ErrorHandler
‘ 1. 対象のテーブル名とフィールド名を設定
targetTableName = “M_商品”
targetFieldName = “適用年度”
‘ 2. 「来年度」の文字列を動的に生成（例: 2024年なら “2025”）
‘ ※Accessの既定値に文字列として渡すため、シングルクォーテーションで囲みます
newDefaultValue = “‘” & (Year(Date) + 1) & “‘”
‘ 3. 現在のデータベースオブジェクトを取得
Set db = CurrentDb()
‘ 4. テーブル定義（TableDef）を取得
Set tdf = db.TableDefs(targetTableName)
‘ 5. 対象フィールドを取得
Set fld = tdf.Fields(targetFieldName)
‘ 6. 既定値（DefaultValue）プロパティを書き換える
fld.DefaultValue = newDefaultValue
‘ 7. 成功のメッセージ
MsgBox “テーブル [” & targetTableName & “] の [” & targetFieldName & _
“] の既定値を 「” & newDefaultValue & “」 に更新しました！”, _
vbInformation, “年度更新完了”
CleanUp:
‘ 8. オブジェクトの解放（メモリリーク防止のプロの作法）
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “予期せぬエラー”
Resume CleanUp
End Sub
コードの重要ポイント解説
1. `CurrentDb()` の使い方
今開いているAccessファイル自体をデータベース変数（`db`）に格納しています。
2. `TableDefs` と `Fields` の指定
変更したいテーブルの名前とフィールド名をコレクションから直接指定します。ここがDAOの核心部分です。
3. 既定値の型（文字列表現）に注意！
Accessの `DefaultValue` プロパティは「文字列」として値を保持します。そのため、数値であっても `’2025’` のようにシングルクォーテーションで囲う必要がある点に注意してください（日付の場合は `#2025/04/01#` のようにシャープで囲みます）。
4. オブジェクトの確実な解放 (`Set … = Nothing`)
プログラミング初学者が忘れがちなのがこれ。メモリをきれいに解放することは、Accessを安定稼働させるための極めて重要なエンジニアの嗜なみです。
—
初学者がハマりやすい「3大トラップ」と対策
このテーブル定義変更のコードを書く際、誰もが一度はハマる罠があります。事前に知っていれば怖くありません！
トラップ①：テーブルを開きっぱなしにしている
【現象】
コードを実行した瞬間、「実行時エラー ‘3211’: データベースはほかのユーザーまたはほかのプロセスによって使用されています。」と怒られる。
【原因と対策】
変更しようとしているテーブル（またはそのテーブルを使ったフォームやクエリ）を、自分がデザインビューやデータシートビューで開いたままにしていませんか？
Accessは、構造を書き換えている最中に誰かに使われることを嫌います。コードを実行する前には、必ず該当のテーブルや画面をすべて閉じましょう。
トラップ②：データ型が一致していない
【現象】
エラーにはならないが、新しくレコードを追加したときに「データ型の不一致」エラーが出る。
【原因と対策】
フィールドのデータ型が「数値型（Longなど）」であるのに、コード側で `newDefaultValue = “‘2025′”`（文字列としてシングルクォーテーション付き）で渡してしまうと、Access内部で混乱が生じます。
- 数値型の場合：`fld.DefaultValue = “2025”` （クォーテーションなし）
- テキスト型の場合：`fld.DefaultValue = “‘2025′”` （クォーテーションあり）
フィールドの型に合わせた代入を心がけましょう。
トラップ③：存在しないテーブル名を指定した
【現象】
「実行時エラー ‘3265’: 項目が見つかりませんでした。」
【原因と対策】
スペルミスや、すでに削除されたテーブル名を指定している場合に発生します。本番環境に組み込む前に、`If`文などを使ってテーブルの存在チェックを入れると、より堅牢なプログラムになります。
—
現場で使える応用テクニック：複数テーブルの一括ループ処理
実務では、1つのテーブルだけでなく、関連する複数のマスターテーブルの年度を一括で変えたいケースがほとんどです。そんなときは、配列とループを組み合わせます。
‘ 例：複数のマスターテーブルの既定値をまとめて変えるイメージ
Dim tblNames As Variant
Dim i As Long
tblNames = Array(“M_商品”, “M_顧客”, “M_部門”)
For i = LBound(tblNames) To UBound(tblNames)
‘ ここでさきほどの TableDef 操作を行う
db.TableDefs(tblNames(i)).Fields(“適用年度”).DefaultValue = “‘” & (Year(Date) + 1) & “‘”
Next i
これを使えば、どれだけテーブルが増えてもコードの行数はほとんど変わりません。これぞ自動化の醍醐味ですね。
—
まとめ
今回は、Access VBAを使ったテーブル既定値の動的変更について解説しました。
- DAO の `TableDefs` と `Fields` を使えば、VBAからテーブル構造を自在にいじれる。
- 既定値（`DefaultValue`）を設定するときは、フィールドのデータ型（数値・文字・日付）に応じた書式（クォーテーションの有無）に注意する。
- 作業前には必ず対象のテーブルを閉じておく。
ここをクリアすれば、あなたはもう「単なるAccessの利用者」ではなく、「Accessデータベースを自在に設計・自動化するエンジニア」の仲間入りです。
手作業の繰り返しから解放された自由な時間を、ぜひより高度な分析や設計の時間に使ってくださいね。それでは、次回の記事もお楽しみに！
