Format color detail if No selection 1

[Zonie32]

Hi. I have this code in my report to make Status an actual color. It works just fine. However, sometimes there will be NO status. How do I code to leave white or blank if no status is selected?

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Me.Status
Case "Red"
Me.Status.BackColor = vbRed
Me.Status.ForeColor = vbRed
Case "Green"
Me.Status.BackColor = vbGreen
Me.Status.ForeColor = vbGreen
Case "Yellow"
Me.Status.BackColor = vbYellow
Me.Status.ForeColor = vbYellow
End Select

End Sub

 

[RoyVidar]

Hm - I don't know which is appropriate, but perhaps either

[tt]Select Case Me.Status
Case "Red"
Me.Status.BackColor = vbRed
Me.Status.ForeColor = vbRed
Case "Green"
Me.Status.BackColor = vbGreen
Me.Status.ForeColor = vbGreen
Case "Yellow"
Me.Status.BackColor = vbYellow
Me.Status.ForeColor = vbYellow
Case Else
Me.Status.BackColor = vbWhite
Me.Status.ForeColor = vbWhite
End Select[/tt]

or

[tt]if trim(me!status & "") ="" then
Me.Status.BackColor = vbWhite
Me.Status.ForeColor = vbWhite
else
Select Case Me.Status
Case "Red"
Me.Status.BackColor = vbRed
Me.Status.ForeColor = vbRed
Case "Green"
Me.Status.BackColor = vbGreen
Me.Status.ForeColor = vbGreen
Case "Yellow"
Me.Status.BackColor = vbYellow
Me.Status.ForeColor = vbYellow
End Select
end if[/tt]

Roy-Vidar

 

[Zonie32]

Thanks a lot RoyVidar. Case Else worked perfectly!!