On Format - Report

[D Willett]

(I think I asked this ages ago, can't find the result )

On a report, to get over the Conditional Formatting limit of 3, I am trying to format an unbound text (Text25).
Here's a little example of code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Negotiator
Case "AW"
Text25.ForeColor = vbRed
Case "DP"
Text25.ForeColor = vbBlue
End Select
End Sub

Which doesn't work.
Can anyone enlighten me to make this work?

[HansV]

Is Text25 a control in the Detail section? If not, the result is unpredictable.

ForeColor is the text colour - is that what you want?

Are you sure that Negotiator is a text field? (If it's entered using a combo box, it might actually be a number field)

[D Willett]

Text25 is a control in the detail section of the report, the width is as wide as all the results but set behind the actual data. So when a condition is met, it should change colour and showing through the report results. The report results back colour are set to transparent.
Negotiator is a text field ie "AW" "DP" "DW" etc.

So was my example correct other than the "Forcolor" error ?

[HansV]

I'd omit the Text25 control, and set the BackColor property of the Detail section itself:

Me.Detail.BackColor = vbRed

etc.

[D Willett]

Got it:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Negotiator
Case Trim("AW")
Me.Detail.BackColor = vbRed
Case Trim("DP")
Me.Detail.BackColor = vbBlue
End Select

End Sub

[HansV]

You don't need Trim in the Case parts. Trim("AW") is exactly the same as "AW", etc. If there's a chance that there's a space before or after the value of Negotiator, you could use

Select Case Trim(Negotiator)