I've just tested this code and it works fine when I scroll from record to record
Code:
If Me.FirstName = "John" Then
Me.FirstName.ForeColor = vbRed
Me.FirstName.FontBold = False
Else
Me.FirstName.ForeColor = vbBlue
Me.FirstName.FontBold = True
End If