Access Study Vol.21 デザインで使えるプログラム50-12

Sub SampleCode_12()
'ラベルとテキストボックスの関連を削除する

  Dim ctl As Control
  Dim strLableName As String

  'アクティブフォームのすべてのコントロールのループ
  For Each ctl In Screen.ActiveForm.Controls
    With ctl
      'はじめからラベル名プロパティがないときのエラーを無視
      On Error Resume Next
      'ラベル名プロパティをクリア
      .Properties("LabelName") = ""
      On Error GoTo 0
    End With
  Next ctl

End Sub


12		ラベルとテキストボックスの関連を削除する
テキストボックスやコンボボックスなど、入力や選択を行うコントロールと関連付けられたラベルコントロール（テキストボックスなどの標題表示用のラベル）は、テキストボックスなどの「ラベル名」プロパティ（VBAでは「LabelName」プロパティ）で取得・設定できます。そのプロパティに「""（長さゼロの文字列）」を代入することで、テキストボックスなどとラベルとの関連付けを削除し、それぞれが独立した状態に変えることができます。・・・・逆に任意のラベルコントール名を代入すれば関連付けを行うことができますプログラム Sub SampleCode_12() 'ラベルとテキストボックスの関連を削除する Dim ctl As Control Dim strLableName As String 'アクティブフォームのすべてのコントロールのループ For Each ctl In Screen.ActiveForm.Controls With ctl 'はじめからラベル名プロパティがないときのエラーを無視 On Error Resume Next 'ラベル名プロパティをクリア .Properties("LabelName") = "" On Error GoTo 0 End With Next ctl End Sub 実行例 ■実行前 ■実行後（デザインビューでラベルのハンドルが消えています）
\| Index \| Prev \| Next \|