[Resolvido]Referência a campo com texto vermelho

Tenho um campo [Data] que esta formatado condicionalmente para o texto ficar vermelho caso seja "domingo".
Numa estrutura "IF" preciso fazer a referência a essa textbox, mas, não está dando certo.
Traduzindo a estrutura seria +ou- assim:

If [Data] estiver com o texto em vermelho then
Comando...
End if

Achei alguns exemplos tipo:

If [Data].forecolor = vbRed
If [Data].forecolor = 255

Mas nenhuma funcionou.

Grato!

Se vai ficar vermelho só no domingo tenta isso

If Weekday(Me.Data) = 1 Then
Comando
End If

Sim, boa ideia, creio que vai dar certo referir-se ao "domingo" ao invés da cor do texto nesse caso.
No entanto, tenho outras referências a fazer em relação a campos com texto em vermelho mesmo, que não comportaria essa mesma solução.
Então realmente eu precisaria saber como se faz esta referência a campos com base no fato do texto ser vermelho OK.
Grato!

Então, o código é este mesmo só posso pensar que o vermelho não é exatamente o 255 mude a cor via VBA e teste aqui deu certo.

Tá difícil!
Tô tentando a formatação condicional via VBA, mas, não estou conseguindo.
O campo que eu quero mudar chama-se "data" e está no subformulário contínuo.
Tentei assim no evento "ao abrir" do subformulário:

Private Sub Form_Open(Cancel As Integer)

With Data.FormatConditions(1)
.ForeColor = vbRed
End With

End Sub

Bota pelo menos o exemplo com o form e a tabela que você deseja fazer as alterações que fica mais fácil de entender.

Sennyor

Digite uma data que seja domingo.

Valeu Kebao10!
Obrigado pela ajuda parceiro.
Acabei de conseguir o que ou queria com esse exemplo que achei. Só fiz algumas modificações para adaptar ao meu projeto.

Private Sub Form_Load()

Dim objFrc As FormatCondition
Dim lngRed As Long
Dim lngBlue As Long

lngRed = RGB(255, 0, 0)
lngBlue = RGB(198, 209, 222)

Set objFrc = Me![Data].FormatConditions.Add(acFieldValue, _
acGreaterThan, 0)

With Me![Data].FormatConditions(0)
.ForeColor = lngRed
.FontBold = True
.BackColor = lngBlue
End With

End Sub

Aquele outro exemplo que você me sugeriu está perfeito!

If Weekday(Me.Data) = 1 Then
Comando
End If

Muito obrigado mesmo!

Por gentileza, não esquecer de marcar o Resolvido.

Abraço!

Ops! Desculpa aí.
Esqueci de marcar resolvido.