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


Because you declared txt_Remarkas a VBA string you will not
affect what is displayed in the report. Since txtRemark is
a bound control in the report, you need to set its
properties and you have to specify the property (ForeColor,
BackColor, BorderColor) that should have the color:

Me.txtRemark.ForeColor = vbred

I can't be sure what the actual name of the text box real;y
is so make sure you use the name in your report.

--
Marsh
MVP [MS Access]