RAG Status Report with colours

[Pete666]

I'm trying to build a RAG status report which will then show a rectangle/text box/label with the background colour to match.

if done on a form i would have it as:

If Me.RAG.Value = "R" Then
Me.RagStatus.backcolor = 255
else
If Me.RAG.Value = "A" Then

etc

But I cannot get something similar to work done directly into a report.

 

[phatnq2002]

I'm trying to build a RAG status report which will then show a rectangle/text box/label with the background colour to match.

if done on a form i would have it as:

If Me.RAG.Value = "R" Then
Me.RagStatus.backcolor = 255
else
If Me.RAG.Value = "A" Then

etc

But I cannot get something similar to work done directly into a report.

In the Print or Format event procedure of the section which contain RAGStatus control, write the following code block:

Select Case RAG.Value
Case "R"
RAGStatus.BackColor = vbRed ' or RAGStatus.BackColor = RGB(255, 0, 0)
Case ...
...
End Select


Is this your desired?