Accessのコントロールの数え方

質問

Access 2003のコントロールについてお教えください。

フォーム1というフォームにチェックボックスがいくつも配置されています。

チェックボックスがいくつ配置されているか知る方法はあるのでしょうか？

また、いくつのチェックボックスにチェックが入っているか知る方法はあるでしょうか？

ネットで検索したところ、下記のコードが約にたつような気がするのですが、どうやって活用すればよいのかがわかりません・・・・

For Each ctl In Me.Controls
With ctl
If .ControlType = acTextBox Then
'コントロールの種類がテキストボックスなら値をNull（空）に設定
.Value = Null
End If
End With
Next ctl

わかりでしたらお教えください。よろしくお願いします。

回答No.2

nicotinism · ベストアンサー

蛇足回答ですが、標準モジュールにて

Sub QQ()
On Error Resume Next
　　Dim ctl As Control
　　Dim i As Integer, j As Integer, k As Integer

　　For Each ctl In Forms!フォーム1 '（フォームビューで開いてあること）
　　　　i = i + 1
　　　　Debug.Print "名前", ctl.Name
　　　　Debug.Print "タイプ", TypeName(ctl)
　　　　Debug.Print "値", ctl.Value '値を持てないモノもありますので On Error Resume Next で逃げてます
　　　　Debug.Print i & " 個目///////////////"

　　If TypeName(ctl) = "CheckBox" Then
　　　　j = j + 1
　　　　If ctl = True Then
　　　　　　k = k + 1
　　　　End If
　　End If
　　Next

　　MsgBox "チェックボックス数=" & j & " 入り数=" & k
End Sub
イミディエイトウィンドウに出力されるので色々調べられます。

フォームにチェックボックスが一杯あって数えるのが大変なら
フォームのモジュールになりますが
Function chkCount() As Integer
　　Dim ctl As Control
　　For Each ctl In Me.Controls
　　　　If TypeName(ctl) = "CheckBox" Then
　　　　　　If ctl = True Then
　　　　　　chkCount = chkCount + 1
　　　　　　End If
　　　　End If
　　Next
End Function
としておいて、適当なテキストボックスを作成し
そのコントロールソースに、=chkcount()
と入れてあげればカウントされます。
チェックボックスにチェックを入れても即座には反映されないので
F9 を押してやってください。
などなど。

お礼

コードまで書いて頂き非常にたすかりました。勉強になります、本当にありがとうございました！

回答No.1

piroin654

たとえば、フォームのボタンクリック時のイベントで、

Private Sub コマンド12_Click()
Dim i As Integer
Dim ctl As Control

i = 0
For Each ctl In Me.Controls
If TypeOf ctl Is CheckBox Then
i = i + 1
End If
Next ctl
MsgBox i
End Sub

のように。

お礼

ご回答ありがとうございます！typeof isを知りませんでした。勉強になりました。ありがとうございます。