Форумы HiProg.com - MS ACCESS, VBA, VB

ник: FORMAT
Данный код меняет поочередно поля с красного на желтый

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim a As Integer
Me.ОбластьДанных.BackColor = vbWhite
a = Me.Поле21 Mod 2
If a = 0 Then
Me.ОбластьДанных.BackColor = vbYellow
Else: Me.ОбластьДанных.BackColor = vbRed
End If
End Sub

По аналогии сравнивая а с различными значениями присваивайте соответствующие цвета