in a code in Detail write this code.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If name < 0 Then
name.ForeColor = 255
Else
name.ForeColor = 0
End If
End Sub
name is the name of Your Text Box in report
255 is for red colour, 0...