Date to change font colour

[stretch66]

OK what is the obvious mistake here ? It won't run for some reasom and won't keep the brackets either.


Private Sub Report_Open(Cancel As Integer)
If Me.Date_From = Date Then
Me.Date_From.ForeColor = vbRed
Else
End If
End Sub

Cheers!

 

[Michael J Ross]

Try putting it in the On format event of the Detail section (or whatever section of the report the date is in) of your report

 

[stretch66]

Hi Michael no...afraid not. Didn't change the colour of the text.

 

[Michael J Ross]

Hi,

This works for me:

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If Me.EventDate = Date Then
Me.EventDate.ForeColor = vbRed
Else
Me.EventDate.ForeColor = vbBlack
End If

End Sub