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

On Fri, 7 May 2010 14:42:01 -0700, shwan wrote:

> 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

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.


--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail