ник: kot_k_k
ты до конца не дошел - с фоновым полем, дай ему расширение ДА
поставь туда
=[Naim]
и добавь в обработку
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
If Me.Stoim < 500 Then
FON.ForeColor = vbYellow
FON.BackColor = vbYellow
Else
FON.ForeColor = vbRed
FON.BackColor = vbRed
End If
End Sub
|