Função If

[Gerciely 0]

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 0]

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 0]

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 0]

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 0]

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 0]

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