ник: Дядя Федор
спасибо буду рыть в этом направлении
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
|
вот это хорошо!!!!