Habilitar campo após seleção de um determinado dado em caixa de listagem (combo)

Bom dia Galera.

Trago-lhes mais uma situação.

Encontrei alguns exemplos mas não funcionaram. Tenho um formulário para cadastro dos equipamentos aqui do meu trabalho. Possuo uma combo que tem as opções "Monitor" "Teclado" "Desktop" e "Impressora". Nas nossas impressoras não temos número de patrimônio, apenas número de série. O restante todos tem. Criei um campo "Patrimônio" e outro "Número de Série" e gostaria que o campo "Número de Série" só fosse habilitado quando eu selecionasse a opção impressora na combo. Poderiam me ajudar? Utilizei o exemplo abaixo que encontrei mas não deu certo, valeu galera.

'EVENTO: AO ABRIR FORMULÁRIO

Private Sub Form_Open(Cancel As Integer)

Me!NÚMERO_DE_SÉRIE.Enabled = False

End Sub
______________________________________________________

'EVENTO: APÓS ATUALIZAR A COMBO TIPO DE EQUIPAMENTO

Private Sub TIPO_DE_EQUIPAMENTO_AfterUpdate()

If Me.combo = "IMPRESSORA" Then
Me!NÚMERO_DE_SÉRIE.Enabled = True
End If

End Sub

A mensagem que está vindo é: ERRO DE COMPILAÇÃO: Método ou membro de dados não encontrado.
O erro aponta para o ".combo"

Esse erro ocorre quando colocou o nome de um campo que nao existe no formulário. Observe que seu Campo tem acentos.... Recomendo renomear, removendo acentos e espaços...

Observe também que:

O Nome de sua Combo se chama

TIPO_DE_EQUIPAMENTO

e no Código esta falando que ela se chama combo
...
If Me.combo = "IMPRESSORA" Then
Me!NÚMERO_DE_SÉRIE.Enabled = True
...

Corrija, pois deve ser o nome de dua caixa de combinação.

Outra observação e que Caixa de combinação quando tiver mais de uma colunas deve ser informado a coluna que quer analisar o valor... Me.NomeCombo.Column(0) '0,1,2,3...

Obrigado Fábio, fiz a correção aqui mas não resolveu e os campos estão com os acentos e espaços corretos. Alguma outra sugestão?

Eu só quero o campo NÚMERO DE SÉRIE fique desabilitado e só habilite quando na combo eu selecionar a opção impressora.

Agora ele retorna outra critica informando que não foi possível localizar o campo Número de Série. Eu inseri ele depois que já estava tudo pronto, será que eu tenho que fazer mais alguma coisa pro form reconhecer o campo?

'EVENTO: AO ABRIR FORMULÁRIO

Private Sub Form_Open(Cancel As Integer)

Me!NÚMERO_DE_SÉRIE.Enabled = False

End Sub
_______________________________________________________

'EVENTO: APÓS ATUALIZAR A COMBO TIPO DE EQUIPAMENTO

Private Sub TIPO_DE_EQUIPAMENTO_AfterUpdate()

If Me.TIPO_DE_EQUIPAMENTO = IMPRESSORA Then

Me!NÚMERO_DE_SÉRIE.Enabled = True

End If

End Sub

Amigo, experimente assim:

Private Sub TIPO_DE_EQUIPAMENTO_AfterUpdate()

If Me.TIPO_DE_EQUIPAMENTO = "IMPRESSORA" Then

Me![NÚMERO_DE_SÉRIE].Enabled = True

End If

Boa tarde Fabio.

Cara apliquei seu código mas não funcionou.

Então so resta uma solução! Posta aqui pra vermos onde esta o erro!

Bom dia Fabio.

Postei o banco pra darem uma olhada. Mais uma vez obrigado.

Amigo esse erro persiste porque você IGNOROU minha sugestão e não realizou as mudanças que sugeri na Mensagem Nº01!

Veja novamente a Menagem:

FabioPaes escreveu:Esse erro ocorre quando colocou o nome de um campo que nao existe no formulário. Observe que seu Campo tem acentos.... Recomendo renomear, removendo acentos e espaços...

Mude seu Codigo para: pois o nome o seu campo é: NÚMERO DE SÉRIE e não NÚMERO_DE_SÉRIE

Código:

Private Sub TIPO_DE_EQUIPAMENTO_AfterUpdate()
If Me.TIPO_DE_EQUIPAMENTO = "IMPRESSORA" Then
Me![NÚMERO DE SÉRIE].Enabled = True
Else
Me![NÚMERO DE SÉRIE].Enabled = False
End If
End Sub

A sim Fábio, foi um vacilo meu pois em alguns lugares do código existe a necessidade de se colocar um Underline substituindo os espaços e eu achei que ali também teria essa necessidade. De qualquer forma obrigado pela força.

Grato pelo retorno amigo, até a próxima se Deus Quiser!

Se a duvida foi solucionada, por favor marque o tópico como resolvido:

Veja como Fazer