#310 タブの特定ページ内のすべてのテキストボックスを空欄にする方法 フォーム、VBA

「#309 すべてのテキストボックスを空欄にする方法」を応用し、タブコントロールの特定ページ内に配置されているすべてのテキストボックスコントロールを空欄にする方法です。

以下の例では、タブコントロールの名前を"tab受注マスタ"、対象とするページの名前を"pg受注"としています。For〜Eachによる検索対象を「Me!tab受注マスタ.Pages("pg受注").Controls」というように、タブ名とページ名を指定することがポイントとなります。
Private Sub cmdClear_Click()
'[クリア]ボタンクリック時

  Dim ctl As Control
  
  'pg受注ページ内のすべてのコントロールを検索
  For Each ctl In Me!tab受注マスタ.Pages("pg受注").Controls
    With ctl
      If .ControlType = acTextBox Then
        'コントロールの種類がテキストボックスなら値をNull(空)に設定
        .Value = Null
      End If
    End With
  Next ctl

End Sub

実行前 実行後
実行前 実行後
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved