Conditional format all text boxes in section of report. 2

[fishtek]

I have a report in which I want all text boxes containing the symbol"<"in front of a value to be non bold. All text boxes are bold by default. I can acheive this using the conditional format menu for each one but was hoping to do it en masse with code. Thanks for your help.

 

[lupins46]

Use the Detail Format event:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim c As Control
For Each c In Me.Detail.Controls

If c.ControlType = acTextBox Then ' just does this for textboxes
If Left(Me.Controls(c.Name), 1) = "<" Then
Me.Controls(c.Name).FontBold = True
Else
Me.Controls(c.Name).FontBold = False

End If
Else
End If
Next c

End Sub