В форме поменять цвет шрифта в зависимости от условия

[teecup]

Гуру, помогите плз чайнику!
нид код на VBA чтобы в форме поменять цвет шрифта в зависимости от условия. Задолбался...

Или так Что тут криво?

Private Sub Итог_AfterUpdate(Cancel As Integer)
On Error GoTo Err_Итог_AfterUpdate

Dim lngRed As Long, lngGreen As Long, lngBlack As Long
 
 Dim stlinkCriteria As String
  stlinkCriteria = Me![Итог]
  lngRed = RGB(255, 0, 0)
  lngBlack = RGB(0, 0, 0)
  lngGreen = RGB(56, 178, 102)
   
Select Case stlinkCriteria
    Case "Успешно"
    [Итог].ForeColor = lngGreen
    Case "Неудача"
    [Итог].ForeColor = lngRed
    Case "Частичный успех"
    [Итог].ForeColor = lngBlack
    Case Else
    [Итог].ForeColor = lngBlack
End Select

Exit_Итог_AfterUpdate:
    Exit Sub

Err_Итог_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Итог_AfterUpdate

End Sub

Заранее благодарен

Да, вдогонку...
Условное форматирование почему-то тоже не работает...
Условие типа: выражение, [Итог]="Удача" и т.д.
Что может быть еще за ерунда? В чем проблема?
Народ, если можно код и возможное объяснение причин (при загрузке Access все что надо включил).