#310
「#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
'[クリア]ボタンクリック時
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
| 実行前 | 実行後 |
 |
 |
