color text in report

  • Thread starter Thread starter shwan
  • Start date Start date
S

shwan

I have a 3 text (High , Normal , Low ) in filed bound to txt.remark filed , I
want in print out [txt.remark] appear in a diffrent color depending on value
in feild [Result] , I tried to do this but i couldn't this the code that I
write it

Dim txt_Remark As String

Private Sub Report_Current()

Select Case txt_Remark
Case "low"
Me.txt_Remark = vbred
Case "normal"
Me.txt_Remark = vbBlack
Case "high" 'used brakets because two words
Me.txt_Remark = vbred
End Select

End Sub

Please I want some one help me to correct this
 
I have a 3 text (High , Normal , Low ) in filed bound to txt.remark filed , I
want in print out [txt.remark] appear in a diffrent color depending on value
in feild [Result] , I tried to do this but i couldn't this the code that I
write it

Dim txt_Remark As String

Private Sub Report_Current()

Select Case txt_Remark
Case "low"
Me.txt_Remark = vbred
Case "normal"
Me.txt_Remark = vbBlack
Case "high" 'used brakets because two words
Me.txt_Remark = vbred
End Select

End Sub

Please I want some one help me to correct this
Click to expand...

Use conditional formatting instead of code.
Select the [txt_Remark] control.
Click on Format + Conditional Formatting
Set Condition1 to
Field Value is
as Condition enter
equal to "medium"
Select the Black color
Click on the Add button

Set Condition2
to
Expression is
write in the next dialog box:
[txt_Remark] = "high" or [txt_Remark] = "low"
Select the red color
Save the changes.
 
Back
Top