AccessVBA：フォームのチェックボックスやテキストボックスを一括クリア
入力フォームを作るときに、入力欄やチェックボックスなどが複数になる場合があります。
ユーザが入力したデータを一括でクリアしたい場合も出てくると思いますが、一つずつ作っていては時間もかかるので、「Controls」コレクションを使って一括でクリアするVBAです。
◆一括クリアのサンプルコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Private Sub まとめてクリア_Click() Dim objCon As Object For Each objCon In Me.Controls Select Case objCon.ControlType '//テキストボックスとコンボボックスをクリア' Case acTextBox, acComboBox objCon.Value = "" 'チェックボックスをクリア' Case acCheckBox objCon.Value = False 'グループオプションボタンをクリア' Case acOptionGroup objCon.Value = 0 End Select Next objCon End Sub |
◆一括でチェックを入れる方法については以下で記事にしています。
