help! multiple if conditions?

[twostars]

ok... I want my program to check all "Checkboxes" - which it does... but I want it to check throughout the program (i used a timer) to see if ALL the checkboxes are checked. However, I am not too sure about how I would basically say:

If check1, check2 AND check3.value = true then
msgbox ....
end if...

please help

[twostars]

actually, I will rephrase that....

I want it to somehow check if all 3 checkboxes are checked at the same time...

[twostars]

anyone?

[Pradeep1210]

ok... I want my program to check all "Checkboxes" - which it can do... but I want it to check throughout the program (i used a timer) to see if ALL the checkboxes are checked. However, I am not too sure about how I would basically say:

If check1, check2 AND check3.value = true then
msgbox ....
end if...

please help

Private Sub Command1_Click()
    Dim chk As Control
    For Each chk In Me.Controls
        If TypeOf chk Is CheckBox Then
            If chk.Value = vbUnchecked Then
                MsgBox chk.Name & " is Unchecked."
                Exit For
            End If
        End If
    Next
End Sub

[twostars]

? I want it to check by itself... with a timer

[twostars]

I want it to ONLY make a messagebox appear when they are all checked... can you change that code to do it?

[westconn1]

you could just put pradeep code into a timer event, or you could use the checkboxes own click event to check each time a box is check if all boxes are checked

pete

[twostars]

how do you activate the click event?

[westconn1]

Private Sub Check1_Click()
'put your code here
End Sub

edit: you will need to do for each checkbox
pete

[twostars]

Private Sub Check1_Click()
'put your code here
End Sub

but what do I need inside them?! lol

[twostars]

anybody????

[jeroen79]

No need to bump the thread every 5 minutes.

Dim chk As Control
Dim AllChecked As Boolean
  AllChecked = True
  For Each chk In Me.Controls
    If TypeOf chk Is CheckBox Then
      chk.Value = vbUnchecked Then
        AllChecked = False
        Exit For
      End If
    End If
  Next
  If AllChecked = True Then MsgBox "All"

[twostars]

it doesnt recognise or like the vbunchecked bit - the whole line

[Pradeep1210]

anybody????

Private Sub CheckNow()
    Dim chk As Control
    For Each chk In Me.Controls
        If TypeOf chk Is CheckBox Then
            If chk.Value = vbUnchecked Then
                MsgBox chk.Name & " is Unchecked."
                Exit For
            End If
        End If
    Next
End Sub
 
Private Sub Check1_Click()
    CheckNow
End Sub
 
Private Sub Check2_Click()
    CheckNow
End Sub
 
Private Sub Check3_Click()
    CheckNow
End Sub
 
Private Sub Check4_Click()
    CheckNow
End Sub
.
.
.

Pradeep

[twostars]

thx pradeep, although it still doesnt quite work... if check3 is unchecked; for some reason check2 UNCHECkS?

[twostars]

dont worry bout it guys... I give up lol

[twostars]

*sigh*

[penagate]

Please stop spamming. I don't have a clue why Pradeeps code doesn't work for you . Can you please explain clearly what effect you are after, and how it doesn't work, and then I will try to help you.

[ThaRubby]

Are you looking for...

If Option1.Value = True And Option2.Value = True And Option3.Value = True Then
MsgBox "Meh"
End If


??

To enable a time its Timer1.Enabled = True

[Hack]

*sigh*

Instead of sighing, which does no one any good, why don't you post the code you are using? Thus far, all I've seen is code posted to help you, but I've not seen anything from you indicating what you are doing with the code.

[twostars]

ThaRubby - that is EXACTLY what I mean! (is it possible)