Здравствуйте! Ни как не могу разобраться, что я делаю не так. Мне нужна визуальная проверка вводимых значений. Когда оператор вводит данные, данные обрабатываются и, в зависимости от результата цвет ячейки меняется.
Для примера сделал форму и написал такой код:

Private Sub p2_AfterUpdate()
    qBC

End Sub

Private Sub qBC()
On Error Resume Next
    Dim q As String
        q = ""
        q = Nz(Val(Me!p2) - Val(Me!p0), No)
        
        Select Case q
            Case No
            Me!p2.BackColor = vbWhite
            Case Is > 0 <= 150
            Me!p2.BackColor = vbGreen
            Case Is < 0
            Me!p2.BackColor = vbRed
            Case Is > 150
            Me!p2.BackColor = vbYellow
        End Select
Debug.Print q
End Sub

Но код не работает так, как я планировал. Можно сказать, он вообще не работает.
Сразу в довесок вопрос, можно ли сделать так, чтобы цвет поля менялся при вводе значения в поле, а не после обновления поля, как у меня сейчас. Пробовал писать такой же код в событие change, но это вызывало ошибку.

http://www.sql.ru/forum/1278377/izmenenie-cveta-polya-pri-vvode-dannyh