[Resolvido]Ativar Campo apos seleção em caixa de combinação

Boa noite amigos.
Sou novo por aqui e gostaria muito de ajudas no desenvolvimento de uma bd.
Estou montando um form onde existe uma ComboBox chamada de NatJuridic (Natureza Jurídica) onde existe as informações "Pessoa Fisica" e "Pessoa Juridica", e existe outros TextBox, um com CPF e outro com CNPJ.
Bem o que eu gostaria é que no momento que eu selecionasse, dependendo da seleção, fosse ativado a textbox especifica da natureza juridica.
Aplique o codigo abaixo, sendo que não está ativando o respectivo campos.

Option Compare Database
Private Sub Form_Current()
If Me.NatJuridic = "Pessoa Fisica" Then
Me.CPF.Enabled = True
Me.CNPJ.Enabled = False
Else
If Me.NatJuridic = "Pessoa Juridica" Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = False
End If
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Me!CNPJ.Enabled = False
Me!CPF.Enabled = False
End Sub


Private Sub NatJuridic_AfterUpdate()
If Me.NatJuridic = "Pessoa Fisica" Then
Me.CPF.Enabled = True
Me.CNPJ.Enabled = False
Else
If Me.NatJuridic = "Pessoa Juridica" Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = False
End If
End If

End Sub
Desde já agradeço muito a atenção prestada de todos!!!

Lhe agradeço pela tempestividade.
São informações de uma tabela chamada NatJurid.
Sim a origem é nessa tabela.
O campo NatJuridic faz parte de um Subform.
E não é exibido nenhuma msg, apenas eles não são ativados conforme a seleção.

todos os campos e códigos estão no subform!!!
No formulário principal foi adicionado uma guai para acoplar 03 (três) subform.

Fonte do Controle está setada como NatJuridic ?
Sim

Nome está como NatJuridic ?
Sim

Tipo de Origem da Linha é uma Lista de Valores ?
Tabela/Consulta

Origem da Linha é "Pessoa Fisica";"Pessoa Juridica" ?
São dados da tabela NatJurid que está relacionado com o campo NatJuridic da tabela Proponente que é origem dos campos do subform
SELECT tbl_NatJurid.cod, tbl_NatJurid.nat_jurid FROM tbl_NatJurid;

Número de colunas é 1 ?
Não! É 2.

Coluna acoplada é 1 ?
Sim

Limitar a uma lista é Sim ?
Exato!!

Messiasrf

Bom dia!

Desculpe a todos pela intromissão,tive um caso assim e resolvi desta forma.Coloque so assim.

Private Sub NatJuridic_AfterUpdate()
If Me.NatJuridic.Value = "Pessoa Fisica" Then
Me.CPF.Enabled = True
Me.CNPJ.Enabled = False
Else
If Me.NatJuridic.Value = "Pessoa Juridica" Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = False
End If
End If
End Sub

Private Sub Form_Current()
If Me.NatJuridic.Value = "Pessoa Fisica" Then
Me.CPF.Enabled = True
Me.CNPJ.Enabled = False
Else
If Me.NatJuridic.Value = "Pessoa Juridica" Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = False
End If
End If
End Sub

Agradeço muito, mesmo, a atenção de todos!!
aqui podemos ver q td estão sempre dispostos a ajudar!!
spp, obrigado pela ajuda, mas já utilizei essas mesmas linas de comando!!!

Messiasrf

Assim vai resolver melhor o seu caso

Private Sub NatJuridic_AfterUpdate()
If Me.NatJuridic.Value = "Pessoa Fisica" Then "o primeiro nome da lista
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True

End If
End Sub


Private Sub Form_Current()
If IsNull(NatJuridic.Value) Or IsEmpty(NatJuridic.Value) Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = False
ElseIf Me.NatJuridic.Value = "Pessoa Fisica" Then "o primeiro nome da lista
Me.CPF.Enabled = True
Me.CNPJ.Enabled = False
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
End If
End If
End Sub

Você tentou a mensagem 10

acabei de tentar, porem, fica sempre disponivel o textbox do CNPJ, por conta da condição que senão for CPF, sempre será CNPJ!!
Obrigado + uma vez!!

Use somente nestes dois modos que te passei, se tiver em mais algum Delete.

os procedimentos para a combo e para o formulário (sub) estão declarados da guia de eventos.
atualmente o codigo está da seguinte maneira, após sugestões dos colegas!!

Option Compare Database


Private Sub Form_Current()
If IsNull(NatJuridic.Value) Or IsEmpty(NatJuridic.Value) Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = False
Else
If Me.NatJuridic.Value = "Pessoa Fisica" Then
Me.CPF.Enabled = True
Me.CNPJ.Enabled = False
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
End If
End If
End Sub
Private Sub NatJuridic_AfterUpdate()
If Me.NatJuridic.Value = "Pessoa Fisica" Then
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Else
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True

End If
End Sub

Tente assim Fiz um exemplo e funcionou,E so trocar o visible por Enabled

Private Sub NatJuridic_AfterUpdate()
If IsNull(NatJuridic.Value) Or IsEmpty(NatJuridic.Value) Then
Me.CPF.Visible = False
Me.CNPJ.Visible = False
ElseIf Me.NatJuridic.Value = "Pessoa Fisica" Then
Me.CPF.Visible = True
Me.CNPJ.Visible = False
Else
Me.CNPJ.Visible = True
Me.CPF.Visible = False

End If
End Sub


If IsNull(NatJuridic.Value) Or IsEmpty(NatJuridic.Value) Then
Me.CPF.Visible = False
Me.CNPJ.Visible = False
ElseIf Me.NatJuridic.Value = "Pessoa Fisica" Then
Me.CPF.Visible = True
Me.CNPJ.Visible = False
Else
Me.CNPJ.Visible = True
Me.CPF.Visible = False

End If
End Sub

Se não der certo te mando um exemplo

o que mudou foi que agora fica visível apenas o CNPJ!!

Segue exemplo

http://speedy.sh/dHRk9/Sincronizar-Caixa-de-Selecao-Fisica-Juridica.rar

Vejam como é o meu db.

Faça assim como fiz, o acabamento fica por sua conta


http://speedy.sh/ntWtr/Sincronizar-Caixa-de-Selecao-Fisica-Juridica1.rar

spp, muito obrigado pela sua grandiosa ajuda, porem não estou conseguindo fazer, da mesma maneira que você havia aplicado!!

Vou te mandar modificado
Agrarde

Boa tarde....com a permissão de todos...apenas um pitaco.



Private Sub cobtipo_AfterUpdate()


If Me.cobtipo = "pessoa fisica" Then
Me.CPF.Enabled = True
Me.CPF.Visible = True
Me.CNPJ.Visible = False
Me.CNPJ.Enabled = False
ElseIf Me.cobtipo = "pessoa juridica" Then
Me.CPF.Visible = False
Me.CPF.Enabled = False
Me.CNPJ.Enabled = True
Me.CNPJ.Visible = True
Me!cobtipo = Null

apenas troquei o nome anterior de natjuridc para cobtipo, por ser mais amigável.

Segue a Modificação

http://speedy.sh/PfA2n/Programa-BNB-de-Cultura-Com-Correcao.zip

spp, deu certo!!! e entendi o que vc fez. obrigado.
Agradeço muito a atenção e o tempo gasto de todos, em especial ao spp, Noberto Rost e silvio99.

Obrigado!!

Messiasrf

Valeu a batalha, o importante foi resolver o seu problema.

Qualquer duvida reabra o tópico

O fórum agrade ao teu retorno...bom fim de semana para todos.

Valeu silvio99