[Resolvido]Visualizar campos a traves de uma combobox

Muito Boa Tarde a Todos
Eu tenho este código no Access

Private Sub ComboRespondido_BeforeUpdate(Cancel As Integer)
If [ComboRespondido] = -1 Then
[CampoQuemRespondeu].Visible = True
[CampoData].Visible = True
Else
[CampoQuemRespondeu].Visible = False
[CampoData].Visible = False
End If
End Sub

O Meu Objetivo é quando alguém meter sim na caixa de combinação aparecer as 2 caixas de texto, se meter não ou não responder não aparecer nada
Mas não esta a dar erro nem a funcionar corretamente
O [ComboRespondido] é uma Caixa de combinação
Com  as Opções:  Sim ; Não
Os outros dois caixa de texto
Alguem me pode ajudar?
Obrigado

Olá Tiago,
Já tentou:

Private Sub ComboRespondido_BeforeUpdate(Cancel As Integer)
If [ComboRespondido] = "SIM" Then
[CampoQuemRespondeu].Visible = True
[CampoData].Visible = True
Else
[CampoQuemRespondeu].Visible = False
[CampoData].Visible = False
End If
End Sub

Pode tentar também no evento Ao Alterar da combo.
Pode também tentar incluir a linha abaixo aqui:

Private Sub ComboRespondido_BeforeUpdate(Cancel As Integer)
DoCmd.RunCommand acCmdRefresh
If [ComboRespondido] = "SIM" Then
...

Boa tarde rdrck

Sim já tentei em vez de -1 meter Sim mas não da
Eu meti  como Caixa de combinação mas em vez de o tipo de dados ser texto meti Sim/Não
Por traz do sim esta o -1
assim esta a funcionar mais ou menos , quando esta escolhido o não, não aparece as caixas de texto quando escolho sim já aparece ate aqui tudo bem mas quando eu passo para o próximo registo as caixas continuam visíveis, ou au contrario eu estou num registo que esta escolhido o não mas quando eu passo para outro registo que já esta sim as caixas não se veem

TiagoBranco, mande seu BD por favor.

ele ainda esta tudo ao monte mas é para ver se tudo funciona os campos sao
CampoData:
CampoQuemRespondeu
ComboRespondido

Tente isso nos eventos abaixo...

Código:

Private Sub Form_Load()
If [ComboRespondido] = -1 Then '-1 = True = verdadeiro = sim
[CampoQuemRespondeu].Visible = True
[CampoData].Visible = True
Else
[CampoQuemRespondeu].Visible = False '= 0 = falso = não
[CampoData].Visible = False
End If
End Sub

Código:

Private Sub registo_seguinte_Click()
If [ComboRespondido] = -1 Then '-1 = True = verdadeiro = sim
[CampoQuemRespondeu].Visible = True
[CampoData].Visible = True
Else
[CampoQuemRespondeu].Visible = False '= 0 = falso = não
[CampoData].Visible = False
End If
End Sub


Retire o Date() da tabela Correspondência, pois está gerando inconsistência de dados

Bom dia silvio continua a mesma coisa aprece e desaparece no registo atual mas assim que eu passo para o próximo se estiver não continua visível os campos sucessivamente

esta bem vou tirar o data() Obrigado

Olá Tiago,
Já conseguiu resolver o problema?
Se sim, não esqueça de clicar no [Resolvido] para não deixar o tópico em aberto.
Valeu.

boa tarde sim já resolvi o que queria estava neste mesmo fórum

http://maximoaccess.forumeiros.com/t289-resolvidos-botao-de-comando-visivel-ou-invisivel-de-acordo-com-valor-de-textbox

Obrigado a todos