【Access VBA】フォームのコントロール値を一括クリアする極限の汎用プロシージャ設計
開発現場でよく見かける光景がある。新規登録画面や検索条件のクリア処理で、テキストボックスやコンボボックスの数だけ以下のようなコードを延々と並べているケースだ。
‘ 悪夢のような冗長コード
Me.txtCustomerName = “”
Me.txtCustomerAddress = “”
Me.txtPhoneNo = “”
Me.cmbCustomerRank = Null
Me.txtMemo = “”
‘ これがあと50行続く…
新規項目が追加されるたびにコードを修正し、メンテンス漏れによるバグを生む。このような前時代的なアプローチは、プロフェッショナルの仕事とは言えない。
今回は、Accessオブジェクトモデルのライフサイクルとコントロールの型特性を完全に理解した上で、「どんな複雑なフォーム構造であっても、1行呼ぶだけで全コントロールを安全に初期化する」プロダクション品質の汎用プロシージャを授けよう。
—
1. なぜ「力技のクリア」はバグを生むのか？
フォーム上のコントロールをクリアする際、単に `Control.Value = vbNullString` と書くだけでは実務の現場では通用しない。そこには以下の罠が潜んでいる。
1. データ型の不一致: テキストボックスは空文字列 `””` を許容するが、数値型や日付型のコントロール、あるいはコンボボックスに `””` を代入すると、型不一致エラーや予期せぬ挙動を引き起こす（これらは基本的に `Null` を設定すべきである）。
2. 編集不可（ロック・非表示）項目の誤クリア: 自動採番IDやシステム管理項目など、「ユーザーが触ってはならない（Locked = True または Visible = False）」コントロールまで初期化してしまう事故。
3. タブコントロールやサブフォームの存在: `Me.Controls` を単純にループさせるだけでは、タブページ内やサブフォーム内部のコントロールまで手が届かないケースがある。
これらをすべてクリアし、かつ高速に動作する設計を構築する。
—
2. 堅牢な汎用モジュールの実装コード
標準モジュール（例: `modFormUtilities`）に以下のコードを配置してほしい。
エラーハンドリングを網羅し、実務の現場でそのまま稼働できる堅牢性を持たせている。
Option Compare Database
Option Explicit
‘ ==============================================================================
‘ 処理名: ClearFormControls
‘ 概要 : 指定されたフォーム上のコントロール（テキストボックス、コンボボックス等）の
‘ 値を一括して安全にクリアする。
‘ 引数 : targetForm As Form – 対象のフォームオブジェクト
‘ 備考 : 編集不可（Locked/Enabled=False）の項目や、特定の接頭辞を持つ
‘ 保持すべき項目はクリア対象外から除外する。
‘ ==============================================================================
Public Sub ClearFormControls(ByRef targetForm As Form)
On Error GoTo ErrorHandler
Dim ctl As Control
‘ フォームの再描画を一時停止し、処理速度の向上と画面ちらつきを防止
targetForm.Painting = False
For Each ctl In targetForm.Controls
‘ 1. コントロールの種別に応じた値のクリア
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox
‘ ユーザーが変更可能な状態（有効かつロックされていない）の場合のみクリア
If ctl.Enabled And Not ctl.Locked Then
‘ プレフィックス（命名規則）による除外判定
‘ 例: “lbl_” や “txt_Keep_” で始まるものは除外する等の応用が可能
If Not (Left$(ctl.Name, 5) = “keep_”) Then
ctl.Value = Null
End If
End If
Case acCheckBox, acOptionButton, acToggleButton
‘ トグル・チェック系は標準値である False (0) に戻す
If ctl.Enabled And Not ctl.Locked Then
ctl.Value = False
End If
Case acTabCtl
‘ タブコントロール自体のクリアは不要だが、
‘ 必要であればタブ内のコンテナ制御をここで行う拡張余地を残す
Case Else
‘ ラベルやライン、イメージなどは対象外としてスキップ
End Select
Next ctl
SafeExit:
On Error Resume Next
targetForm.Painting = True
Set ctl = Nothing
Exit Sub
ErrorHandler:
MsgBox “フォームの初期化中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume SafeExit
End Sub
—
3. この設計が「プロフェッショナル」である理由
① `targetForm.Painting = False` によるパフォーマンス最適化
Access VBAにおいて、フォーム上のコントロールを一つずつ走査してプロパティを変更する処理は、画面の再描画（Paintイベント）を伴うと劇的に遅くなる。処理の開始時に `Painting = False` を宣言し、終了時に `True`に戻すことで、目に見えるほどの高速化を実現している。
② 業務要件に耐える「安全弁（ガード条件）」
実務では「この項目だけはクリアしたくない」という要件が必ず発生する。
今回のコードでは、以下の2重のガードを標準装備した。
- UI状態のチェック: `ctl.Enabled And Not ctl.Locked` により、リードオンリー項目を破壊しない。
- 命名規則（プレフィックス）によるフィルタ: 例えば `keep_` から始まるコントロール名であれば、ループ内で明示的に除外される（必要に応じてカスタマイズ可能）。
③ 適切な「値の消失」の制御
テキストボックスだからといって `””`（空文字列）を入れるのはデータベーススペシャリストの視点からは悪手である。Access（Jet/ACEエンジン）において、文字列型のフィールドであっても未入力は `Null` を格納するのが正規化の観点から正しい。本コードではすべての対応コントロールに対して `Null`（チェックボックスは `False`）を割り当て、データ不整合を防いでいる。
—
4. 呼び出し側の実装
フォームのコマンドボタン（例: `cmdClear`）のクリックイベントに、たった1行を書くだけでいい。
Private Sub cmdClear_Click()
‘ Me（現在のフォーム）を渡すだけ
ClearFormControls Me
‘ 必要であれば、フォーカスを先頭の入力項目に戻す
Me.txtCustomerName.SetFocus
End Sub
—
総括
コード量が増えることグローバルな保守性を下げる。たかが「フォームのクリア」と思われるかもしれないが、こうした細部にこそ開発者のアーキテクチャに対する哲学が宿る。
コピペで動くのは当然として、「なぜそのプロパティをチェックしなければならないのか」「なぜNullを入れるべきなのか」という背後の文脈まで理解してこそ、真に堅牢な業務システム構築が可能となる。ぜひ、あなたのプロジェクトの標準テンプレートとして組み込んでほしい。
