[Resolvido]Cor do texto com base no valor corrente

Amigos mais uma dúvida que surgiu!

Estou usando este código abaixo para formatar o campo com base no valor, porém ele funciona com base no valor existente no campoX quando o form é aberto, pois se o valor do campo mudar durante a digitação, a formatação não muda.
(é como se ela fosse assim; mude a cor do texto com base no valor do campo existente quando o form abir)
eu preciso que ele acompanhe o valor "online" atual do campo no momento da atualização.

O que preciso mudar no código para alcançar o objetivo?

Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long

If Not IsNull(Me!txtPastDue.Value) Then
curAmntDue = Me!txtPastDue.Value
Else
Exit Sub
End If
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue < 0 Then
Me!txtPastDue.BorderColor = lngRed
Me!txtPastDue.ForeColor = lngRed
Me!txtPastDue.BackColor = lngYellow
Else
Me!txtPastDue.BorderColor = lngBlack
Me!txtPastDue.ForeColor = lngBlack
Me!txtPastDue.BackColor = lngWhite
End If
End Sub

Ola,

Tive uma situação destas recentemente e aqui no fórum me deram um ótima sugestão que foi usar a opção formatação condicional do access.

Funcionou tão bem que alterei em todos os meus formulários e relatórios, retirando o código vba e passando a utilizar esta opção já pronta.

Atenciosamente,

Olá, já tentei mas também não funcionou no meu caso.

a formatação condicional do access, é com base no valor carregado do form, e não altera quando o valor muda.

Testei aqui de tres formas e a que mais se aproximou foi na formatação condicional. Veja o exemplo.

Inseri duas condições >0 e <0. O que não consegui foi alterar a borda, mas a cor do texto e de fundo foi tranquilo. Analise ai.

Já via código, tentei no form_current e tambem na propriedade apos atualizar do campo ... e nao funcionou legal.

Boa tarde lucioapo,

Veja se é algo assim que pretende.

Opa, acho que vai resolver, vou analisar melhor.
Grato por enquanto!

depois dou um retorno...

Show....
Valeu

Fórum nota 10 .....

Ótimo.
Gostei do exemplo que você agregou via expressão.
Eu não tinha usado ate então.