チェックボックスの合計値の取得

質問

ACCESSとVBを使ってプログラミングを行っているのですが、チェックボックスの合計値の取得をしたいのですが、同じ行のチェックボックスをクリックする度に碁合計値がズレてしまい、困っています。
　どなたか解決方法をお教えください。

例：１行　□YES　□NO　　　YES合計　XX個
　　２行　□YES　□NO　　　 NO合計　XX個
　　　　　　：
　　３０行□YES　□NO

回答No.2

noname#22222

ウーン！
チェックボックスの利用方法に一言言いたいところですが...

まず、 chkYes_01、chkYes_02・・・・chkYes_NN、chkNo_01、chkNo_02・・・・chkNo_NN と名前を付けるとします。
この場合、次のように、Yes か No かを判定し、それぞれ値を加算すれば真の個数が求まります。

Option Compare Database
Option Explicit

Private Sub cmdYesNoCount_Click()
　　Dim Y　 As Integer
　　Dim N　 As Integer
　　Dim ctl As Control

　　For Each ctl In Me
　　　　If ctl.ControlType = acCheckBox Then
　　　　　　If InStr(1, ctl.Name, "Yes", vbTextCompare) > 0 Then
　　　　　　　　Y = Y + Nz(Abs(ctl.Value))
　　　　　　Else
　　　　　　　　N = N + Nz(Abs(ctl.Value))
　　　　　　End If
　　　　End If
　　Next
　　MsgBox "Y=" & Y & ",N=" & N
End Sub

もう、少し、コンパクトに書くことも可能です。

Private Sub cmdYesNoCount_Click()
　　Dim V　 As Boolean
　　Dim Y　 As Integer
　　Dim N　 As Integer
　　Dim ctl As Control

　　For Each ctl In Me
　　　　If ctl.ControlType = acCheckBox Then
　　　　　　V = InStr(1, ctl.Name, "Yes", vbTextCompare) > 0
　　　　　　Y = Y + Nz(ctl.Value) * V
　　　　　　N = N + Nz(ctl.Value) * Not V
　　　　End If
　　Next
　　MsgBox "Y=" & Y & ",N=" & N
End Sub

回答No.1

dondon5959

オプションボタンでなくてチェックボックス?
チェックボックスだと基本的にYesにもNoにも両方ともに
チェック付けられるけど

地道にチェックの数を数える。
この場合チェックボックスをコントロール配列に
すれば処理も楽になるよ。