複数のチェックボックスの処理

質問

access2000でフォームを作成し、
複数のチェックボックスがすべてＯＮになっていない時に
MSGboxで表示させるコードを教えていただけませんか？

public sub ()

if chekbox1,checkbox2 = false then
msgbox "入力されていません”

else
別の処理

のような感じですが、チェックボックスの区切り方がわかりません。

どうかお願いします。

回答No.2

aloop · ベストアンサー

if (chekbox1 = false AND checkbox2 = false) then

こんな感じでどうでしょう？

お礼

皆様のご協力で無事できました
ありがとうございました

回答No.3

imogasi

Private Sub Form_Click()
Dim cb As CheckBox
a = "offばかりです"
For Each cb In Form1
If cb.Value = 1 Then
a = "onがあります"
Exit For
End If
Next
MsgBox a
End Sub
－－－－－－－－－－
ＣＨＥＣＫＢＯＸをコントロール配列にしてあるとき。
５個のチェックボックスの例。
Private Sub Form_Click()
a = "offばかりです"
For i = 0 To 4
　If Check1(i).Value = 1 Then
　a = "onがあります"
　Exit For
　End If
Next
MsgBox a
End Sub

お礼

皆様のご協力で無事できました
ありがとうございました

回答No.1

taknt

未確認ですが、
if chekbox1=false and checkbox2 = false then

というふうにしたら どうでしょうか？

お礼

皆様のご協力で無事できました
ありがとうございました