One trick is to hide the data field and use two overlapping unbound controls. One control is normal font properties, the other is your "stand out" - red, bold, etc.
Make the recordsource of the "Stand out" field:
=Iif([FieldInHeader] <> [FieldInDetail],[FieldInDetail],"")
Make the recordsource of the normal field:
=Iif([FieldInHeader] = [FieldInDetail],[FieldInDetail],"")
Make sure the bound data field is hidden.
This works both on screen and in print. I like to use this for a "NO DATA!" tag in a field that's missing it's data when printing reports. To use a message instead of the field value, simply place text in quotes as the second argument in the function.
Do it the Format event of your DetailArea of your Report
Private Sub DetailArea_Format(Cancel As Integer, FormatCount As Integer)
If DB_Name = "Hss.mdb" Then
DB_Name.ForeColor = vbBlue
ElseIf DB_Name = "Pbh.mdb" Then
DB_Name.ForeColor = vbRed
DB_Name.ForeColor = vbBlack