フォーム＆コントロールプロパティ活用辞典-141 Tag

Private Sub cmd入力チェック_Click()
'[入力チェック]ボタンクリック時

  Dim ctl As Control

  'フォーム内のすべてのコントロールを探索
  For Each ctl In Me.Controls
    With ctl
      If .ControlType = acTextBox Then
        'テキストボックスなら
        If IsNull(.Value) Then
          '未入力ならTagプロパティ値をそのまま表示
          MsgBox .Tag, vbOKOnly + vbExclamation
        End If
      End If
    End With
  Next ctl

End Sub


#141		Tag
"Tag/タグ" プロパティこのプロパティは特殊なプロパティで、このプロパティ値を設定しただけでは何ら外観や動作に影響を与えません。しかし逆に、フォーム作成者が自由に意味合いを持たせることができるプロパティです。たとえば下記の例では、テキストボックスが未入力の状態のときに表示するメッセージ文をこのプロパティに設定しています。いわば「未入力メッセージプロパティ」のような機能を勝手に付けているわけです。このような考え方を応用すれば、既存の機能としてはないプロパティを自由に作り出すことができます。フォーム、フォームセクション、ラベル、テキストボックス、コマンドボタン、コンボボックス、リストボックス、オプショングループ、トグルボタン、オプションボタン、チェックボックス、イメージ、サブフォーム、四角形、線 Private Sub cmd入力チェック_Click() '[入力チェック]ボタンクリック時 Dim ctl As Control 'フォーム内のすべてのコントロールを探索 For Each ctl In Me.Controls With ctl If .ControlType = acTextBox Then 'テキストボックスなら If IsNull(.Value) Then '未入力ならTagプロパティ値をそのまま表示 MsgBox .Tag, vbOKOnly + vbExclamation End If End If End With Next ctl End Sub 下図のフォームでは、あらかじめ各テキストボックスの"タグ"プロパティに「受注コードが未入力です！」のような文章を設定してあります。「受注コード」と「得意先コード」の２つのテキストボックスを空欄にした状態で[入力チェック]ボタンをクリックすると、下図のようにメッセージが表示されます。
\| Index \| Prev \| Next \|