How do I Iterate through checkboxes three at a time

[Squank]

I have a form that lists nine children as labels and has three checkboxes for each child denoting whether they ate breakfast, lunch and/or snack.

If they ate any meal, I am logging that to a CSV file. I need to know how to loop through each child and see if they ate any meals.

Basically, child1 gets logged if chkbox1 or chkbox2 or chkbox3 is checked. If no checkbox is checked, the child is not logged. Then on to the next child.

I don't need help with the logging, just the loop through the checkboxes.

Thanks.

[Seth Schrock]

If you name them to be

chkChild1Breakfast, chkChild1Lunch, chkChild1Snack
chkChild2Breakfast, chkChild2Lunch, chkChild2Snack
etc.

then you can do a For Next loop very easily.

Dim i As Integer
Dim chkBreakfast As Checkbox
Dim chkLunch As Checkbox
Dim chkSnack As Checkbox
 
For i = 1 To 9
    chkBreakfast = CType(Me.Controls("chkChild" & i.ToString() & "Breakfast", Checkbox)
    chkLunch = CType(Me.Controls("chkChild" & i.ToString() & "Lunch", Checkbox)
    chkSnack = CType(Me.Controls("chkChild" & i.ToString() & "Snack", Checkbox)
 
    If chkBreakfast.Checked Or chkLunch.Checked Or chkSnack.Checked Then
        'At least one meal was eaten
 
    Else
        'No meal was eaten
 
    End If
Next

[Squank]

Other than adding a paren before the ", Checkbox", it worked as expected. Thank you very much!

[Seth Schrock]

Oops. My bad. For the sake of anyone else trying to do something similar, here is the corrected code:

Dim i As Integer
Dim chkBreakfast As Checkbox
Dim chkLunch As Checkbox
Dim chkSnack As Checkbox
 
For i = 1 To 9
    chkBreakfast = CType(Me.Controls("chkChild" & i.ToString() & "Breakfast"), Checkbox)
    chkLunch = CType(Me.Controls("chkChild" & i.ToString() & "Lunch"), Checkbox)
    chkSnack = CType(Me.Controls("chkChild" & i.ToString() & "Snack"), Checkbox)
 
    If chkBreakfast.Checked Or chkLunch.Checked Or chkSnack.Checked Then
        'At least one meal was eaten
 
    Else
        'No meal was eaten
 
    End If
Next

Glad it helped.