[Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

Boa noite
Quando escolhemos uma opção sim/não esta guarda um valor.
Gostaria que ao invés de guardar esse valor, que registrasse um texto no seu respectivo campo da tabela.
No exemplo...
Temos check box1, 2 e 3, com edema, calor e deformidade.
Gostaria que quando escolhesse a check box 1 registrasse com/sem edema.
Gostaria que quando escolhesse a Temos check 2 registrasse Temos check box1, 2 com/sem calor.
Gostaria que quando escolhesse a Temos check box 3 registrasse com/sem deformidade.

Como implemento essa rotina?
Obrigado

Foi o que me veio a Cabeça amigo, provavelmente ha outras formas...

Perfeito.
Só um detalhe... perfumaria...apresentação...rsrs..
Coloquei 2 figuras para cada opção.
Quando "clico" na opção escolhe-se uma delas.
Navegando vai ver.
Agora ... teria alguma forma de clicar nas figuras e escolher como se tivesse clicado na opção?

Rerererereree, e pq não falou antes heim???? Seu tópico mudou completamente!


Da forma como quer, não ha mais a necessidade de ter uma Opção de Seleção! bastando apenas as Duas Imagens (da forma como esta) e do lado delas a Descrição. E Ao clicar em cada uma ele altera os campos, assim:


Na Imagem de OK: Ao clicar coloque:

Private Sub ImagemS2_Click()
Me.teste2 = "Com Calor"
Me.ImagemS2.Visible = False
Me.ImagemN2.Visible = True

End Sub


Na imagem de X coloque:

Private Sub ImagemN2_Click()
Me.teste2 = "Sem Calor"
Me.ImagemS2.Visible = True
Me.ImagemN2.Visible = False

End Sub


Assim, se clicar no OK, ele Atualiza o Campo para Com Calor, Oculta a imagems2 e exibe a ImagemN2.

Ao clicar na ImagemN2, ele Atualiza o Campo para Sem Calor, Oculta a ImagemN2 e Exibe a ImagemS2.

Adaptei e rodou.
Só não entendi o porque quando navegamos nas opções anteriores não vemos o escolhido na imagem.

Isso pq vc nao colocou a condição para as imagens no Evento no Atual do seu Formulario....


No Evento No atual do Seu Formulario, coloque:

Private Sub Form_Current()

If Me.teste1 = "Com edema" Then
Me.ImagemS1.Visible = False
Me.ImagemN1.Visible = True
Else
Me.ImagemS1.Visible = True
Me.ImagemN1.Visible = False
End If


If Me.teste2 = "Com Calor" Then
Me.ImagemS2.Visible = False
Me.ImagemN2.Visible = True
Else
Me.ImagemS2.Visible = True
Me.ImagemN2.Visible = False
End If

If Me.teste3 = "Sem deformidade" Then
Me.ImagemS3.Visible = False
Me.ImagemN3.Visible = True
Else
Me.ImagemS3.Visible = True
Me.ImagemN3.Visible = False
End If

End Sub

Assim ao navegar ele oculta o que nao deve ser visto.

Show.
Valeu.
Gde abs