complex loop

[totomalas]

I have nine checkboxes in my form

named like this
check1
check2
check3
check4
...
check9

i want to create a loop that loops them and if they are checked then do something



i wrote something like this

dim name as string
dim iter as integer
iter = 1



Do

name = "check" & iter

if me.name.value = -1 then

 do something

end if

iter = iter + 1

loop until iter = 10

but i keep getting errors

i also tried something like this

if check & iter.value = -1 then

do something
end if

also error


how can i do the above loop??

[ADezii]

This code should work nicely, substitute your own Control Names within the Select Case construct:

Dim ctl As Control

For Each ctl In Me.Controls         'Analyze each Control on the Form
  If ctl.ControlType = acCheckBox Then      'Is it a Check Box?
    If ctl.Value Then       'Is it Checked?
      Select Case ctl.Name      'Make a decision based on the Check Box selected
        Case "Check1"
          'process here for Check1
        Case "Check2"
          'process here for Check2
        Case "Check3"
          'process here for Check3
        Case "Check4"
          'process here for Check4
        Case "Check5"
          'process here for Check5
        Case "Check6"
          'process here for Check6
        Case "Check7"
          'process here for Check7
        Case "Check8"
          'process here for Check8
        Case "Check9"
          'process here for Check9
      End Select
    End If
  End If
Next

[NeoPa]

Try the following :

Dim intX As Integer

For intX = 1 To 9
    If Me.Controls("Check" & intX) Then
        'Do something
    End If
Next intX

Unfortunately, as your question makes little sense in itself, I suspect this will only be useful to you to help you understand why your question was so little use.

[totomalas]

Thanks Guys...both ideas worked well form me...Thanks Again.. :D

[NeoPa]

Thanks for letting us know. That helps for people searching through threads for answers :)