VBAフォーム 未入力チェック処理の書き方

Question

前提・実現したいこと

申込書をExcelのフォームで作成しているのですが、登録ボタンを押した際に未入力項目がないかをチェックする処理の書き方に悩んでいます。

発生している問題・エラーメッセージ

未入力の項目があれば項目名をMsgBoxに表示さたいので下記のように考えました

Dim msg As String ' MsgBoxに表示する未入力の項目名

If Me.Text_Name.Value = ""  Then msg="・名前"& vbCrLf
If Me.Text_Tel.Value = ""  Then msg="・電話番号"& vbCrLf

しかし項目数が30ほどあるのでこの書き方では非効率なのではないかと思いました。

試したこと

オブジェクト名が「ツールの種類_項目名」なので、ForEach文で回そうと思い下記を考えました。

Dim Ctrl As Control ' MsgBoxに表示する未入力の項目名

For Each Ctrl In Me.Controls
    Select Case Ctrl.Name
        Case "Text_Name"
            msg="・名前"& vbCrLf
        Case "Text_Tel"
            msg="・電話番号"& vbCrLf
           ・
           ・
           ・
Next Ctrl

僕の中ではこの書き方が見やすく速度的にもよい？のかと思いますが、他に効率の良い処理の書き方があれば教えていただきたいです。

Answer 1

いろいろ方法はあると思いますが、自分がするなら下記のようにします。

テキストボックスのTagプロパティに項目名を入力しておく。

コントロールのコレクション(Me.Controls)を For Each で順次検査する。

    Dim msg As String, ctr As Control
    
    For Each ctr In Me.Controls
        If ctr.Tag <> "" And ctr.Value = "" Then msg = msg & "・" & ctr.Tag & vbCrLf
    Next
    
    MsgBox msg

こうしておけば、項目が追加されたり、変更されても、コードの修正は必要なく Tagプロパティを設定するだけですみます。

Comments

[D0NKAMA]

確かにTagを使った方が長文にならないし今後の変更にも簡単に対応できそうです！
回答していただきありがとうございました。