[Resolvido]Caixa de Opções para mudar a cor de texto de outro campo

Boa tarde.

Queria que ao selecionar a Opção1 o campo de texto [nome_pac] mudasse de cor vermelho e 
ao selecionar a Opção2 o mesmo campo de texto [nome_pac] mudasse de cor verde.

Tentei deste jeito, mas não deu:


Private Sub Quadro6_AfterUpdat()

If Me.MeuCampo1.Value = True Then
Me.nome_pac.ForeColor = vbRed
End If

If Me.MeuCampo2.Value = True Then
Me.nome_pac.ForeColor = vbGreen
End If

End Sub


Obrigado.......

Vejam banco em anexo......

Bom dia
Comece por aqui

Código:

Private Sub Quadro6_AfterUpdate()
    If Quadro6 = 1 Then
        nome_pac.ForeColor = vbRed
    ElseIf Quadro6 = 2 Then
        nome_pac.ForeColor = vbGreen
    End If
End Sub


Depois adapte para pintar apenas a linha corrente

Boa tarde Alexandre.

Coloquei o código no evento Ao Pintar nos Detalhes e foi show de bola.

Eu estava fazendo referencia ao campo e não ao Grupo de Opções.

Muito obrigado mesmo para ter amenizado minha eterna burrice.

Grato mesmo. 

Um forte abraço quântico....