Changing Fonts on subform based on value

[Howlsta]

In my subform i've got a column for marks. If a student gets a mark >=50 I want the mark to appear in green, but if below then red, indicating fail. I wrote the code below but it seems to just check the first mark in the subform, so if the first mark was 24 it will change all values in that column to red, even if some below are 50 or above. So, is there an easy way of getting it to do what i want?

Private Sub cboYear_AfterUpdate()
If Me.fsubMarks!OverallResult >= 50 Then
Me.fsubMarks!OverallResult.ForeColor = 65280
Else
Me.fsubMarks!OverallResult.ForeColor = 255
End If
End Sub

Rich

 

[Rich]

In A2k check out conditional formatting.

 

[Howlsta]

Thanks for advice, got it working now.

Rich