Looping through form fields

[caniread]

I have 21 fields in a form named thick0 through thick120. The field name stays the same but goes up by six on the number up to 120. Below is the code I wrote for thick0 & thick120 on an after update event and everything works. I could write the same code for every field but is there a way to tell it to loop through every field doing the same?

Thank you for the help,

Isaac

Dim Mil As Double
If Me.Thick0 < 1 Then
Mil = Me.Thick0
Mil = Mil * 1000
Me.Thick0 = Mil
Else
End If

Dim Mil As Double
If Me.Thick120 < 1 Then
Mil = Me.Thick120
Mil = Mil * 1000
Me.Thick120 = Mil
Else
End If

[Beetle]

Assuming that any other controls on your form would not have Thick in the name, then something like the following would work;

Dim ctl As Control
    
For Each ctl In Me.Controls
    If ctl.Name Like "*Thick*" Then
        If ctl < 1 Then ctl = ctl * 1000
    End If
Next ctl

[caniread]

I unfortunately do have others that start with thick. example "ThickAVG"

Maybe some way to tell it to add 6 to the name every time till you get to 120?

[Gicu]

So you gave yourself the answer:

Dim i As integer
    
For i=0 to 120


   if me.controls("Thick"&i)<1 then me.controls("Thick"&i)*1000
       
Next i

Cheers,
Vlad

[caniread]

It gave me a invalid use of property error. Also not sure it will work since I go up by 6. There is no field named thick1 to 5. Just multiples of 6.

What if I tag field? Same tag name for all and loop through those tag names? If possible what would the code look like?

[Beetle]

Dim ctl As Control
    
For Each ctl In Me.Controls
    If ctl.Tag = "Some Value" Then
        If ctl < 1 Then ctl = ctl * 1000
    End If
Next ctl

[Gicu]

Sorry, forgot the STEP:

Dim i As integer
    
For i=0 to 120 STEP 6


   if me.controls("Thick"&i)<1 then me.controls("Thick"&i)= me.controls("Thick"&i)*1000       
Next i

[caniread]

Thank you Beetle. I ended up using your code.

[Beetle]

Glad I could help.