AccessVBA：フォームのチェックボックスにいくつチェックが入っているか確認する方法
入力フォームでチェックボックスにいくつチェックが入っているか確認したい場合があります。ここでは「Controls」コレクションを使って、チェックボックスにいくつチェックが入っているかを確認する方法についての紹介していきます。
◆チェックボックスのチェック数のカウント
チェックボックスにチェックが入っているものを取得しています。
コードを実行すると以下のように表示されます。
サンプルコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Sub チェックボックスの確認_Click() Dim objCon As Object Dim buf As String Dim cnt As Long cnt = 0 For Each objCon In Me.Controls Select Case objCon.ControlType Case acCheckBox If objCon.Value Then buf = buf & objCon.ControlName & vbCrLf cnt = cnt + 1 End If End Select Next objCon MsgBox buf & cnt & "件にチェックが入っています。" End Sub |
