Loop through all controls on a form?

[gusbrunston]

Hi:

I've seen this, used it, but can't find it now.

How do I loop through all the controls on a form and do something in each one?

In pigeon basic:

I = 1
While not end of file
   Look at control(I)
   Do Something
   I = I + 1
Wend

End

I'd appreciate the function (or whatever) for doing this in the form module.

Many thanks,



Gus Brunston 8-: An old PICKer, using Access2000. I manage

http://www.rentdex.com.

Suggestions welcome. padregus@attbi.com

 

[raymondo]

Use "For Each"

Dim ctrl as Control

For Each ctrl In Forms!MyForm.Controls
'Do something wth ctrl
Next

 

[sko]

You might also want to check for control type before you do whatever.

Dim ctrl as Control

For Each ctrl In Forms!MyForm.Controls
If ctrl.controltype = acTextBox
'Do something wth ctrl
End if
Next

 

[gusbrunston]

Hi:
Thanks to you both, I'm getting closer to what I want to accomplish. If I'm successful, I'll share it with you.
Cheers, Gus Brunston An old PICKer, using Access2000. I manage

http://www.rentdex.com.

Suggestions welcome. padregus@attbi.com