Função IF Then Else

Bom dia!

É a primeira vez que estou pedindo ajuda por aqui.

Minha dúvida é a seguinte. Tenho um formulário com os seguintes campos:

Placa do Veículo
Tipo do Veículo
Placa da Carreta

Quando o campo "Tipo do Veículo" for igual a "CAVALO MECÂNICO", então o campo "Placa da Carreta" deve ser ativado, senão, deve ser desativado.

Cono posso fazer isso usando um código VBA?

Att.

Marco Ribeiro

No evento do campo Tipo do Veículo apos atualizar coloque:

If me.Tipo do Veículo = "CAVALO MECÂNICO" then
me.Placa da Carreta.visible=True
end if

Na propriedade desse campo Placa da Carreta ja coloque ele por padrao como Visivel = Nao.

O mesmo codigo voce deve colocar no Formulario, no Evento No Atual:

Código:

Private Sub Form_Current()
If Me.Tipo_do_Veiculo = "CAVALO MECÂNICO" Then
Me.Placa_da_Carreta.Visible = True
End If
End Sub


Para que ao navegar entre os registros ele mostre ou não o campo Placa da Carreta.

Só mais um pitaco:

Se ainda não o fez, crie ou transforme a caixa de texto Tipo_do_Veiculo para
caixa de combinação e coloque os valores (os tipos de veículos) na origem da linha da mesma.
Isso irá evitar erros de digitação.

[ ]'s

boa tarde amigo Marco, fiz um simples exemplo conforme o amigo Noobezinho orientou, verifica se atende ao que precisa ?
abraço Nogaro !

Nogaro

Agradeço teu empenho.

Mas ainda falta a parte que o Fabio orientou,

que é  colocar o mesmo código no evento No

Atual do formulário e deixar a caixa de texto

Placa da Carreta invisível (não é ativado).

[ ]'s

amigo Noobezinho eu pensei que o Marco teria escrito isso
Quando o campo "Tipo do Veículo" for igual a "CAVALO MECÂNICO", então o campo "Placa da Carreta" deve ser ativado, senão, deve ser desativado.

Verdade, me ative no exemplo Fabio.

[ ]'s

amigo Noobezinho sem problemas, abraço !