Multi-edit fields on a form

[gibblin]

If i have several fields on a form named, for example, Text1, Text2, Text3 and Text4, how can i multi-edit the backcolor of those fields?

I don't want to go through each individually like follows:-
If IsNull(Text1)= false then
Text1.backcolour = 255
End if
If IsNull(Text2)= false then
Text2.backcolour = 255
End if

...etc etc...obviously if i have many fields this will become a pain.

surely there's some code that will go through all the fields and alter them in one go??

I'm sure this will be easy for someone. Do i use a for..next statement or loop, any help would be appreciated.

 

[PHV]

A starting point:
For i = 1 To 4
If Trim(Me("Text" & i) & "") > "" Then
Me("Text" & i).BackColour = 255
End If
Next i

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[gibblin]

Exactly what i was looking for, tried a similar method myself to no avail,obviously it needed a few tweeks.

Thank you very much.