Text Box Properties (A2K)

[AGMCon]

All text boxes on a form have properties set, ie. BorderColor = vbYellow, BackColor = vbBlue, etc.
Is it possible to change all of the properties on all of the boxes for instance BorderColor = vbRed, BackColor = vbWhite based on the execution of a procedure, like New Record?

Trust me, you do not want the long version of this question. I hope that the above is sufficient.

Thanks in advance for any help on this,

[HansV]

You could put code in the On Current event of the form:

Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If Me.NewRecord Then
ctl.BorderColor = vbRed
ctl.BackColor = vbWhite
Else
ctl.BorderColor = vbYellow
ctl.BackColor = vbBlue
End If
End If
Next ctl
Set ctl = Nothing
End Sub

[MarkLiquorman]

Yes, you can change the properties at any time. However, there is no global command to change the value of a property for all controls; you have to loop through the controls collection and make the change. Sample code:

Dim ctl as control
For each ctl in Me
select case ctl.controltype
case actextbox, aclistbox, aclabel, accombobox
ctl.bordercolor = vbred
ctl.backcolor = vbwhite
next ctl

[AGMCon]

Hans & Mark,

Thank you both kindly for your suggestions. I did find a workaround that was nowhere near as streamlined as yours just to get the little @#$!% working, but I will definetly try both your approaches and let you know how I fared.

Thanks again,

[AGMCon]

Mark,

One quick question.

Where exactly would I insert this code?

[MarkLiquorman]

Depends on exactly when you want it to run. You'd probably put it in your form's Current event, such that it would run if Me.NewRecord=True.

[AGMCon]

Thanks for taking the time, Mark. Will give this a try first thing tomorrow. As I mentioned, I did come up with workaround that does the job and I guess that's the main thing.