For Each Statement - Need Help! {Resolved}

[epod69]

Hi everyone, I have a picturebox (called GridFrame) which can have any amount of checkboxes in it. During a Sub I am wanting to check each checkbox in Gridframe and see if they are check, and if so, add text to a cell.

Here is what I want to do:

For Each CheckBox In GridFrame
            If CheckBox.Value = True Then
                CellText = DetailsGrid.CellText((lRow - 2), 5)
                If CellText = "" Then
                    CellText = CheckBox.Caption
                Else
                    CellText = CellText & "; " & CheckBox.Caption
                End If
            End If
        Next CheckBox

Of course this doesnt work and I get a Variable not defined error which points to CheckBox. So, if you can understand what I am trying to do, then what suggestions might anyone have on what I should do or a correct way of how I should do it using the For Each Statement. Thanx everyone for the help! =)

[kfcSmitty]

what someone showed me was, to name each checkbox as checkbox*

ie) checkbox1, checkbox2, checkbox3 etc


then use this

For Each ctl In Me.Controls
    If ctl.Name Like "CheckBox*" Then
      If checkbox.checked = true Then
           'do whatever
      Else
           'do something else
      End If
    End If
Next

[Static]

just tweaked it a bit.. let me know if it works..
the gridfram.controls may not work...

Dim ctl As control
For Each ctl In GridFrame.controls
    If Type of ctl = checkbox Then
        If ctl .Value = True Then
            CellText = DetailsGrid.CellText((lRow - 2), 5)
            If CellText = "" Then
                CellText = ctl .Caption
            Else
                CellText = CellText & "; " & ctl .Caption
            End If
        End If
    End If
Next

[epod69]

Hey, in the line 'If Type of ctl = CheckBox Then' it says: Expected Expression, and points to 'Type'. Also, there is no controls option for GridFrame (the picturebox), but I put it in anyways.....but I really can't continue with the Expected Expression error.

[Hack]

Hey, in the line 'If Type of ctl = CheckBox Then' it says: Expected Expression, and points to 'Type'. Also, there is no controls option for GridFrame (the picturebox), but I put it in anyways.....but I really can't continue with the Expected Expression error.

Thats because TypeOf is one word.

[epod69]

GridFrame.Controls does not work =( , what am I missing?

[Joacim Andersson]

[LGS]Static is on the right track, however a picture box doesn't have a Controls collection and you can't use the equal sign with the TypeOf keyword. You must use the Is keyword instead. So you need to use code simular to this:

Dim ctl As Control
For Each ctl In Controls
    If TypeOf ctl Is CheckBox Then
        If ctl.Container Is GridFrame Then
            If ctl.Value = vbChecked Then
                CellText = DetailsGrid.CellText((lRow - 2), 5)
                If CellText = "" Then
                    CellText = ctl.Caption
                Else
                    CellText = CellText & "; " & ctl.Caption
                End If
            End If
        End If
    End If
Next

[epod69]

Thanx a lot, that last one worked good. Thanx everyone for the help!