【実務・中級編】フォームのActiveControlプロパティで実現する、汎用的な入力バリデーション関数 – Access VBA解析バイブル

Access VBAを掌握する極限の知見：ActiveControlで実現する、汎用的な入力バリデーションの真髄

Access VBA開発者の皆さん、あなたの手がける業務ツールは、今、本当に「堅牢」と呼べるでしょうか？

私はこれまで、Access VBAから最新のAPI連携まで、数多の業務自動化プロジェクトを最前線で指揮してきました。その中で痛感するのは、多くの開発者が「動けばいい」という短期的な視点に囚われ、将来的な保守性や堅牢性、そしてパフォーマンスを犠牲にしている現実です。

特に、入力バリデーション。
「TextBox1_AfterUpdate」「ComboBox2_LostFocus」「Button3_Click」… 各コントロールのイベントに個別のバリデーションコードが散乱していませんか？ それはまるで、巨大なプログラムのあちこちに地雷を埋め込むようなものです。コードの重複（DRY原則違反）はバグの温床となり、仕様変更のたびに悪夢のような修正作業が待ち受けます。

伝説のチーフアーキテクトたる私から断言しましょう。そのやり方は非効率であり、あなたのシステムを脆弱なものにしている最大の要因の一つです。

本記事では、Access VBAの核心である「ActiveControl」プロパティを、フォームの`Tag`プロパティと組み合わせることで、全入力項目を横断的にチェックするDRY（Don’t Repeat Yourself）な汎用バリデーション関数の設計手法を伝授します。オブジェクトのライフサイクルとパフォーマンスの重みを知り尽くした者だけが辿り着く、「極限の知見」をここで共有します。

なぜあなたのAccessアプリは「バグの温床」と化すのか？

業務効率化ツールを開発する担当者の多くが、まず直面するのが「入力データの品質保証」です。ユーザーが誤ったデータを入力すれば、それがデータベースに格納され、後続の処理に影響を与え、最終的には業務全体の信頼性を損ないます。

これを防ぐため、バリデーション（入力検証）は不可欠です。しかし、多くのAccess VBAアプリケーションでは、以下のようなアンチパターンが蔓延しています。

• イベントドリブンコードの乱立: 各コントロールの`BeforeUpdate`や`Exit`イベントに、そのコントロール固有のバリデーションロジックが直接書き込まれる。
• コードの重複: 「必須入力チェック」「数値チェック」のような基本的なバリデーションが、異なるコントロールのイベントで何度も記述される。
• 保守性の低下: 新しいバリデーションルールが追加されたり、既存のルールが変更されたりするたびに、散在するすべての関連コードを探し出して修正する必要がある。
• テストの困難さ: 独立したテストが難しく、網羅的な検証が困難になる。

この結果、アプリケーションは複雑怪奇なスパゲッティコードと化し、小さな修正が予期せぬバグを引き起こす「バグの温床」となるのです。

フォーム設計の常識を覆すActiveControlの本質とDRY原則

この悪循環を断ち切る鍵が、DRY原則（Don’t Repeat Yourself）の徹底と、Access VBAのオブジェクトモデルの深い理解です。

ActiveControlとは何か？

`ActiveControl`プロパティは、フォーム上で現在フォーカスを持っているコントロールを返します。これは一見シンプルですが、その背後にはAccessのイベント処理の哲学が隠されています。ユーザーが入力作業を進める中で、どのコントロールが現在操作されているかをリアルタイムで把握できる、非常に強力なプロパティなのです。

しかし、今回のテーマである「フォーム内の全入力項目を横断的にチェックする」という観点では、`ActiveControl`を直接ループの起点にするのではなく、バリデーションエラーが発生した際にユーザーに明確なフィードバックを与えるために、どのコントロールにフォーカスを戻すべきかを特定する際にその本質的な価値を発揮します。

DRY原則とバリデーションの一元化

真に堅牢なシステムを構築するには、バリデーションロジックをアプリケーションの「コア」として一元化し、再利用可能な形で提供する必要があります。

• ロジックの集中: すべてのバリデーションルールを、独立したモジュール内の汎用関数に集約します。
• ルール定義の外部化: 各コントロールが持つべきバリデーションルールは、コード内に埋め込むのではなく、コントロール自身のプロパティ（特に`Tag`プロパティが強力です）に定義します。
• 単一責任の原則: バリデーション関数は、特定のコントロールの種類やルールにのみ責任を持ち、エラーメッセージの表示やフォーカス移動は、呼び出し元（フォーム）の責任とします。

これにより、バリデーションロジック自体は一度書けばよく、コントロールの追加やルール変更があっても、コード全体をいじる必要はなくなります。これが、保守性と堅牢性を飛躍的に向上させる「極限の知見」です。

実践！Tagプロパティと汎用関数で実現するDRYバリデーション

では、具体的にどのように実装するのか、その設計思想とプロダクションコード例を示します。

1. Tagプロパティによるバリデーションルールの定義

Accessのコントロールには、開発者が自由な文字列を格納できる`Tag`プロパティがあります。これこそが、バリデーションルールをコードから切り離し、コントロール自身に持たせるための最適な場所です。

例えば、以下のようにルールをセミコロン区切りで記述します。

• `Required`: 必須入力
• `Numeric`: 数値のみ入力可能
• `MinLength:5`: 最小文字長5
• `MaxLength:10`: 最大文字長10
• `Pattern:^\d{3}-\d{4}$`: 正規表現によるパターンマッチング（例: 郵便番号）
• `CustomRule:MySpecificCheck`: 特定の複雑なカスタムチェック

この`Tag`プロパティの文字列を、汎用バリデーション関数が解析し、必要なチェックを実行します。

2. プロダクションコード例: 汎用バリデーションモジュール

まず、標準モジュール（例: `modValidationFunctions`）を作成し、バリデーションロジックを集中させます。

‘ 標準モジュール: modValidationFunctions
Option Compare Database
Option Explicit

‘/////////////////////////////////////////////////////////////////////////////
‘// 汎用入力バリデーション関数モジュール
‘// 目的: フォームコントロールのTagプロパティに定義されたルールに基づき、
‘// 入力値の検証を一元的に行う。
‘// 作成者: チーフアーキテクト
‘// 更新日: 2023-10-27
‘/////////////////////////////////////////////////////////////////////////////

‘—————————————————————————–
‘ 主要な汎用バリデーション関数
‘ 引数: objControl – バリデーション対象のAccess.Controlオブジェクト
‘ 戻り値: True (有効な入力), False (無効な入力)
‘ 説明: objControlのTagプロパティを解析し、定義されたルールに基づいて入力値を検証します。
‘ エラーが発生した場合、メッセージボックスでユーザーに通知します。
‘—————————————————————————–
Public Function IsValidInput(ByVal objControl As Access.Control) As Boolean
Dim sTagRules As String
Dim vRule As Variant
Dim sRuleName As String
Dim sRuleValue As String
Dim sErrorMessage As String

IsValidInput = True ‘ 初期値は有効と仮定

‘ Tagプロパティからバリデーションルールを取得
sTagRules = Trim(Nz(objControl.Tag, “”))
If sTagRules = “” Then Exit Function ‘ Tagが空ならバリデーション不要

‘ ルールをセミコロンで分割して処理
For Each vRule In Split(sTagRules, “;”)
sRuleName = Trim(vRule)
sRuleValue = “”

‘ ルール名と値の分離（例: “MinLength:5″ -> sRuleName=”MinLength”, sRuleValue=”5″）
If InStr(sRuleName, “:”) > 0 Then
sRuleValue = Mid(sRuleName, InStr(sRuleName, “:”) + 1)
sRuleName = Left(sRuleName, InStr(sRuleName, “:”) – 1)
End If

‘ コントロールの種類に応じた追加チェックや、特定のルールの適用
‘ (ここではTextBox, ComboBoxを想定。他のコントロールタイプは適宜追加)
Select Case objControl.ControlType
Case acTextBox, acComboBox, acListBox
Select Case LCase(sRuleName)
Case “required”
If Not CheckRequired(objControl, sErrorMessage) Then GoTo Error_Found
Case “numeric”
If Not CheckNumeric(objControl, sErrorMessage) Then GoTo Error_Found
Case “minlength”
If Not CheckLength(objControl, sRuleValue, True, sErrorMessage) Then GoTo Error_Found
Case “maxlength”
If Not CheckLength(objControl, sRuleValue, False, sErrorMessage) Then GoTo Error_Found
Case “pattern”
‘ 正規表現チェックは別途関数を定義するか、VBScript.RegExpを使用
If Not CheckPattern(objControl, sRuleValue, sErrorMessage) Then GoTo Error_Found
Case “customrule”
‘ カスタムルールはさらに別の関数にディスパッチ
If Not CheckCustomRule(objControl, sRuleValue, sErrorMessage) Then GoTo Error_Found
‘ 他の汎用ルールをここに追加
Case Else
‘ 未定義のルールが指定された場合の処理（エラーログなど）
Debug.Print “未定義のバリデーションルール: ” & sRuleName & ” for ” & objControl.Name
End Select
‘ Case acCheckBox, acOptionGroup など、他のコントロールタイプとそれに特化したルール
‘ Case acCheckBox
‘ If LCase(sRuleName) = “required” Then
‘ If Not objControl.Value Then
‘ sErrorMessage = objControl.Name & “の選択は必須です。”
‘ GoTo Error_Found
‘ End If
‘ End If
End Select
Next vRule

Exit Function

Error_Found:
‘ エラーメッセージを表示
MsgBox sErrorMessage, vbExclamation, “入力エラー”
IsValidInput = False ‘ バリデーション失敗
End Function

‘—————————————————————————–
‘ 必須入力チェック
‘—————————————————————————–
Private Function CheckRequired(ByVal objControl As Access.Control, ByRef sErrorMessage As String) As Boolean
CheckRequired = True ‘ 初期値は有効

If IsNull(objControl.Value) Or Trim(CStr(objControl.Value)) = “” Then
sErrorMessage = objControl.Name & “は必須入力です。”
CheckRequired = False
End If
End Function

‘—————————————————————————–
‘ 数値形式チェック
‘—————————————————————————–
Private Function CheckNumeric(ByVal objControl As Access.Control, ByRef sErrorMessage As String) As Boolean
CheckNumeric = True ‘ 初期値は有効

‘ Nullまたは空文字列の場合は、必須チェックで処理されるため、ここでは数値形式のみをチェック
If Not (IsNull(objControl.Value) Or Trim(CStr(objControl.Value)) = “”) Then
If Not IsNumeric(objControl.Value) Then
sErrorMessage = objControl.Name & “は数値形式で入力してください。”
CheckNumeric = False
End If
End If
End Function

‘—————————————————————————–
‘ 文字列長チェック (MinLength/MaxLength)
‘ isMinLength: Trueなら最小長、Falseなら最大長をチェック
‘—————————————————————————–
Private Function CheckLength(ByVal objControl As Access.Control, ByVal sLengthRule As String, ByVal isMinLength As Boolean, ByRef sErrorMessage As String) As Boolean
CheckLength = True ‘ 初期値は有効

Dim lLength As Long
If Not IsNumeric(sLengthRule) Then
‘ ルール定義自体が不正な場合は、開発者向けメッセージ
Debug.Print “Tagプロパティの長さルールが不正です: ” & sLengthRule
Exit Function
End If
lLength = CLng(sLengthRule)

‘ Nullまたは空文字列の場合は、必須チェックで処理されるため、ここでは文字列長のみをチェック
If Not (IsNull(objControl.Value) Or Trim(CStr(objControl.Value)) = “”) Then
Dim sValue As String
sValue = CStr(objControl.Value) ‘ 値を文字列として取得

If isMinLength Then ‘ 最小長チェック
If Len(sValue) < lLength Then sErrorMessage = objControl.Name & "は" & lLength & "文字以上で入力してください。" CheckLength = False End If Else ' 最大長チェック If Len(sValue) > lLength Then
sErrorMessage = objControl.Name & “は” & lLength & “文字以下で入力してください。”
CheckLength = False
End If
End If
End If
End Function

‘—————————————————————————–
‘ 正規表現パターンチェック (VBScript.RegExpオブジェクトを使用)
‘ RegExオブジェクトの初期化と後処理を考慮し、関数内でインスタンス化する
‘—————————————————————————–
Private Function CheckPattern(ByVal objControl As Access.Control, ByVal sPattern As String, ByRef sErrorMessage As String) As Boolean
CheckPattern = True ‘ 初期値は有効

‘ Nullまたは空文字列の場合は、必須チェックで処理されるため、ここではパターンマッチングのみをチェック
If Not (IsNull(objControl.Value) Or Trim(CStr(objControl.Value)) = “”) Then
Dim regEx As Object ‘ VBScript.RegExp
Set regEx = CreateObject(“VBScript.RegExp”)

With regEx
.Pattern = sPattern
.Global = False ‘ 全体マッチではなく、最初のマッチで十分
.IgnoreCase = False ‘ 大文字小文字を区別
End With

If Not regEx.Test(CStr(objControl.Value)) Then
sErrorMessage = objControl.Name & “の形式が不正です。”
CheckPattern = False
End If

Set regEx = Nothing ‘ オブジェクトの解放
End If
End Function

‘—————————————————————————–
‘ カスタムルールチェック (例として、特定の文字列を含まない)
‘ この関数は、複雑なビジネスロジックや、他のデータとの連携が必要な場合に使用します。
‘—————————————————————————–
Private Function CheckCustomRule(ByVal objControl As Access.Control, ByVal sRuleValue As String, ByRef sErrorMessage As String) As Boolean
CheckCustomRule = True ‘ 初期値は有効

‘ 例: “NoForbiddenWord”というTagの場合、入力値に”禁止語”が含まれていないかチェック
If LCase(sRuleValue) = “noforbiddenword” Then
If InStr(CStr(objControl.Value), “禁止語”) > 0 Then
sErrorMessage = objControl.Name & “に禁止されている語句が含まれています。”
CheckCustomRule = False
End If
ElseIf LCase(sRuleValue) = “checkdbunique” Then
‘ 例: データベースの他のテーブルと重複がないかチェック（高度な例）
‘ Dim db As DAO.Database
‘ Dim rs As DAO.Recordset
‘ Set db = CurrentDb
‘ Set rs = db.OpenRecordset(“SELECT COUNT() FROM YourTable WHERE YourField = ‘” & objControl.Value & “‘”, dbOpenSnapshot)
‘ If rs.Fields(0).Value > 0 Then
‘ sErrorMessage = objControl.Name & “は既に登録されています。”
‘ CheckCustomRule = False
‘ End If
‘ rs.Close
‘ Set rs = Nothing
‘ Set db = Nothing
End If
End Function

3. フォームでの実装例: BeforeUpdateイベントとActiveControlの活用

次に、データを保存する直前、つまりフォームの`BeforeUpdate`イベントで、この汎用バリデーション関数を呼び出します。これにより、フォーム内のすべての入力コントロールが横断的にチェックされます。

エラーが見つかった場合、`SetFocus`メソッドで該当コントロールにフォーカスを戻します。このとき、フォーカスが戻されたコントロールが一時的に`ActiveControl`となるため、ユーザーはどの入力が不正であったかを直感的に理解できます。

‘ フォームモジュール: Form_YourFormName
Option Compare Database
Option Explicit

‘/////////////////////////////////////////////////////////////////////////////
‘// フォームのバリデーション処理例
‘// 目的: フォームの更新前に、すべての入力コントロールに対して汎用バリデーションを実行する。
‘// 作成者: チーフアーキテクト
‘// 更新日: 2023-10-27
‘/////////////////////////////////////////////////////////////////////////////

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Access.Control
Dim bIsValidForm As Boolean
bIsValidForm = True ‘ 初期値はフォーム全体が有効と仮定

On Error GoTo Error_Handler

‘ フォーム内のすべてのコントロールをループしてバリデーション
For Each ctl In Me.Controls
‘ 入力対象となるコントロール（テキストボックス、コンボボックス、リストボックスなど）のみを対象とする
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox ‘ 必要に応じて追加
‘ IsValidInput関数は、Tagプロパティが定義されているコントロールのみを処理
If Not modValidationFunctions.IsValidInput(ctl) Then
‘ エラー発生
bIsValidForm = False
‘ エラーが発生したコントロールにフォーカスを戻す
‘ これにより、ユーザーはどの入力が不正であったか即座に認識できる
ctl.SetFocus
Exit For ‘ 最初のエラーが見つかった時点でループを終了
End If
End Select
Next ctl

If Not bIsValidForm Then
Cancel = True ‘ バリデーションに失敗した場合は、フォームの更新をキャンセル
‘ MsgBoxはIsValidInput関数内で表示されるため、ここでは不要
‘ 全体的なエラーメッセージを別途表示したい場合はここに記述
End If

Exit_Proc:
Exit Sub

Error_Handler:
‘ 予期せぬエラーが発生した場合の処理
MsgBox “Form_BeforeUpdateで予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Cancel = True ‘ エラー発生時も更新をキャンセル
Resume Exit_Proc
End Sub

‘/////////////////////////////////////////////////////////////////////////////
‘// 補足: 個別のコントロールのExitイベントでのActiveControl活用例
‘// 目的: 特定のコントロールからフォーカスが移動する直前に、そのコントロールのみを即座にバリデーションする。
‘// これはフォーム全体のバリデーションとは異なり、リアルタイムなフィードバックに有効です。
‘/////////////////////////////////////////////////////////////////////////////

‘ 例: テキストボックス T_CODE がフォーム上に存在する場合
Private Sub T_CODE_Exit(Cancel As Integer)
‘ Me.ActiveControl はこのイベントが発生した時点では、まだT_CODEを指している
‘ または、イベントハンドラ内で直接Me.T_CODEを渡しても良い
‘ ここでは、汎用バリデーション関数に現在のコントロール（T_CODE）を渡す
If Not modValidationFunctions.IsValidInput(Me.T_CODE) Then
‘ バリデーションに失敗した場合
‘ メッセージボックスはIsValidInput関数内で表示される
Cancel = True ‘ フォーカス移動をキャンセルし、T_CODEに留まる
End If
End Sub

‘ 例: テキストボックス T_NAME がフォーム上に存在する場合
Private Sub T_NAME_Exit(Cancel As Integer)
‘ こちらも同様
If Not modValidationFunctions.IsValidInput(Me.T_NAME) Then
Cancel = True
End If
End Sub

4. Tagプロパティの設定方法

コントロールのデザインビューで、プロパティシートを開き、「その他」タブにある「Tag」プロパティに、上記で説明したルール文字列を入力します。

例:

• `T_ProductID` (テキストボックス): `Required;MaxLength:10;Pattern:^[A-Z]{3}\d{7}$`
• `T_ProductName` (テキストボックス): `Required;MaxLength:50`
• `T_Price` (テキストボックス): `Required;Numeric;MinLength:1;MaxLength:10`
• `C_Category` (コンボボックス): `Required`

これにより、コードを一切変更することなく、コントロールごとのバリデーションルールを柔軟に設定・変更できるようになります。

データベース連携と堅牢性への配慮

バリデーションの多層防御

この汎用バリデーションは、アプリケーションの「入力層」における第一の防御線です。しかし、真に堅牢なシステムを構築するには、これだけに依存してはなりません。

• データベース側の制約: データベースのテーブル定義において、NOT NULL制約、CHECK制約、UNIQUEインデックスなどを適切に設定しましょう。これにより、アプリケーション層でのバリデーションをすり抜けた不正データがデータベースに格納されることを防ぎます。
• ビジネスロジック層のバリデーション: 複雑なビジネスルール（例: 在庫数と注文数の整合性）は、データアクセス層やビジネスロジックを担うクラスモジュール内で別途検証します。

パフォーマンスとオブジェクトライフサイクル

チーフアーキテクトとして、パフォーマンスへの配慮も忘れてはなりません。

• `CreateObject`の乱用回避: `CheckPattern`関数のように、外部オブジェクト（`VBScript.RegExp`）を使用する場合、関数内で毎回`CreateObject`を実行し、処理後に`Set obj = Nothing`で解放することが一般的です。しかし、頻繁に呼び出される場合は、モジュールレベルでオブジェクトを一度だけ生成し、再利用することを検討することで、オブジェクト生成・破棄のオーバーヘッドを削減できます。ただし、排他制御など慎重な設計が必要です。
• `Me.Controls`ループの最適化: フォームのコントロール数が極端に多い場合、`Me.Controls`コレクションのループは多少のオーバーヘッドを生じさせます。ほとんどのAccessアプリケーションでは問題になりませんが、もしボトルネックになる場合は、特定のコントロールタイプのみを対象にする、あるいは必要なコントロールのみを配列にキャッシュするなどの工夫も考えられます。

まとめ: あなたのAccessアプリを「堅牢なシステム」へと昇華させるために

本記事で提示した`ActiveControl`プロパティと`Tag`プロパティを活用した汎用バリデーションは、Access VBA開発におけるDRY原則を徹底し、コードの重複を排除し、保守性と堅牢性を劇的に向上させるための極めて強力な手法です。

• `Tag`プロパティ: コントロールにバリデーションルールを持たせることで、コードとルールを分離し、柔軟な変更を可能にします。
• 汎用バリデーション関数: すべてのバリデーションロジックを一元化し、再利用可能な形で提供します。
• `Form_BeforeUpdate`イベント: フォーム全体の入力データを横断的にチェックする理想的なタイミングです。
• `SetFocus`と`ActiveControl`: エラー発生時にユーザーに明確なフィードバックを与え、直感的な操作を可能にします。

「なぜこの書き方は非効率なのか」「どう設計すべきか」――その問いに対する答えは、常に本質的な設計原則に立ち返ることにあります。目の前の問題を単に解決するだけでなく、未来のシステムを見据え、堅牢で保守性の高いコードを書き続けること。それが、開発プロジェクトのリーダーたるあなたの使命であり、真の業務自動化エンジニアとしての「極限の知見」です。

この手法をあなたのAccessアプリケーションに導入し、混沌としたコードから秩序を生み出し、バグの温床を堅牢なシステムへと昇華させてください。