[Gerciely]

Olá pessoal.. Tudo Bém?

vejam só...estou fasendo um forumário para cadastro, algun campos ficaram em branco, depedendo do que estiver no outro..

por exemplo, no campo Estado Civil, tenho uma combox com opções Solteiro; casado; separado; divorciado; viuvo..
o procimo campo é Data de Casamento, só que se a pessoal for solteira naõ preciso preencher o campo data de casamento, sóque eu queria que ele ficase desativado e só ativasse se a opção selecionada na combox foce Casado ou Sepadaro ou divorciado ou Viuvo..
eu estou tentando com a seguinte código

if me.Estado_Civil = Solteiro then

me.Data de Casamento = false
me.Conjuge = false

Else

me.Data de Casamento = true
me.Conjuge = true

end if

estou em duvida de onde devo inserir esse código devo Criar uma Sub para o qual campo? ou devo inserir no formulário mesmo??

Valew Galera, Agradesço por qualquer ajuda

Gerciely Fernandes

[evilwata]

Bom, você pode colocar esse código no evento Ao Alterar do campo Estado Civil, dai dentro do código é só fazer o If que faz a verificação.

[Gerciely]

Certo.. eu testei, mas naõ deu certo, eu tentei com o código acima, mas está correto o código acima?

qual seria o If que faria a verificação? por acaso tenho que Criar alguma Variavel?

e depois definir o valor da caixa de texto seja o valor da variavel e o if fser a verificção da variavel, msa ai a variavel teria que receber um valorque se alternaria.. como ficaria a construção do código?

[Luiz Antonio]

Como você está usando uma combo, acho que deve colocar o código no evento Ao perder foco da combo. Aparentemente seu código está correto.

[Gerciely]

Oi Luis Antônio, tentei no Evento ao perder o Foco e tam´bem naõ deu certo..
tentei emvários outros eventos..

Abraços
Gerciely Fernandes

[Gerciely]

Bom Pessoal pra aqueles que tem amesma duvida vou postar a resposta....

alem de especificar os campos tem também que atribuir as devidas propriedades para os campos então o código ficaria assim...

Private Sub Estado_Civil_AfterUpdate()

If Me.Estado_Civil.Value = "SOLTEIRO" Then

Me.Data_de_Casamento.Enabled = False
Me.Conjuge.Enabled = False

Else

Me.Data_de_Casamento.Enabled = True
Me.Conjuge.Enabled = True

End If

End Sub

espero que ajudem, Valew pessoal Abraços