AccessVBA：フォームのチェックボックスやオプションボタンに一括でチェックを入れる方法
入力フォームでチェックボックスやオプションボタンなど複数のものに一括でチェックを入れたい場合があります。
ここでは「Controls」コレクションを使って、一括でチェックを入れるVBAのサンプルの紹介していきます。
◆一括チェックのサンプルコード
チェックボックスにはすべてチェックが入り、オプションボタンは最初のものにチェックが入ります。
このコードをチェックボックスのものだけにすれば、チェックボックスだけにチェックを入れることができます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Private Sub まとめてチェック_Click() Dim objCon As Object For Each objCon In Me.Controls Select Case objCon.ControlType 'チェックボックスにチェック' Case acCheckBox objCon.Value = True 'オプションボタンの一つ目にチェック' Case acOptionGroup objCon.Value = 1 End Select Next objCon End Sub |
もしチェックボックスだけにすべてチェックを入れるだけなら以下でできます。
|
1 2 3 4 5 6 7 8 9 10 11 |
Private Sub チェックボックスだけ一括チェック_Click() Dim objCon As Object For Each objCon In Me.Controls Select Case objCon.ControlType 'チェックボックスにチェック' Case acCheckBox objCon.Value = True End Select Next objCon End Sub |
◆一括クリアについては以下で記事にしています。
AccessVBA：フォームのチェックボックスやテキストボックスを一括クリア
「Controls」コレクションを利用した、フォームの記入欄（テキストボックス・コンボボックス・チェックボックス・オプションボタン）の一括クリア
