[Resolvido]Disponibilidade de campos de acordo com uma combo box

Tem com eu bloquear ou desbloquear um campo de acordo com a seleção que eu fizer dentro de listebox formulario?
Ex: Campo1 (Empresa, Casa, Escola)
Campo 2: CNPJ da empresa (ficar disponível apenas se eu selecionar a opção empresa)
Campo 3: Nome do responsavel
Campo 4: Endereço.

De acordo com o que eu for selecionando em campos dentro do formulário, terei campos bloqueados ou campos desbloqueados (disponíveis para preenchimento).

Preciso muito...
Por favor, alguem mim ajuda.
bgd

Bom dia,


Você pode tentar no evento após atualizar do seu campo1:


If Texto0 = "Empresa" Then

Me.Texto2.Enabled = True

Else

Me.Texto2.Enabled = False


End If

Eu ficar acompanhando.
Esse código é somente para condição, mesmo colocando o selected(2) ele não está  funcionando.
Pois a lustBox seleciona a lista toda e não o campo da coluna .

Olá Marlo,

Por gentileza, disponibilize uma cópia do seu bd para análise e solução do problema.

Grato

Alexandre Fim

Bom dia
O projeto inicial acabei não precisando fazer mais, contudo ja precisei do código para um novo projeto.

'No evento ao atualizar do campo no formulario

On Error GoTo Erro
Dim Exame As String
   If Opcao = True Then
       Me.Endereço_da_ocorrencia.Enabled = True
       Me.Bairro.Enabled = True
       Me.Zona.Enabled = True
       Me.Nº_DO.Enabled = True
       Me.Causa.Enabled = True
       Me.Tipo.Enabled = True
   Else
       Me.Endereço_da_ocorrencia.Enabled = False
       Me.Bairro.Enabled = False
       Me.Zona.Enabled = False
       Me.Nº_DO.Enabled = False
       Me.Causa.Enabled = False
       Me.Tipo.Enabled = False
       
   End If
Erro:

To utilizando esse, adaptado do Ismael Silva, e ta funcionando perfeitamente.

Obg pessoal