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 :)