[Resolvido]Esconder/omitir campos quando atualiza a combo.

Prezados colegas do fórum....boa noite !

Tenho cá comigo uma duvida. Há como ocultar campos através de uma combo ?

Fiz isso no frm cliente, que está junto no exemplo e funciona perfeitamente.

Mas no frm orçamento, há algo que impede isso. Exemplo, quando se seleciona uma pessoa jurídica aparece apenas o CNPJ e a Insc. Municipal e o CPF e Rg ficam "escondidos"; Quando física selecionada aparece o CPF e o RG, CNPJ e Insc. Estadual ficam "escondidas".

Caso algum dos colegas já tenha passado por isso, pode me mostrar o caminho das pedras?

Anexo o exemplo problemático.

Grato a todos.

Bom dia Silvio;

Para testar isso é necessario que no exemplo venha a tabela Vendedores e OrçamentoPJ.

Bom dia JPaulo.

Grato por ceder um pouco do seu tempo para mim.

Não, não há necessidade alguma dessas tabelas, pois ensejo apenas capturar os dados inerentes da pessoa física ou jurídica.

A tabela vendedores, apenas mostra quem fez o orçamento para o cliente, não há vinculo algum para ela.

O OrçamentoPj é essa tabela em que esta o orçamento. Era o nome antigo da mesma.

Entendido, teste por favor;

Private Sub cbocliente_AfterUpdate()
    Me.Nome = Me.cbocliente.Column(2)
    Me.RazaoSocial = Me.cbocliente.Column(3)
    Me.Endereço = Me.cbocliente.Column(4)
    Me.Numero = Me.cbocliente.Column(5)
    Me.Apto = Me.cbocliente.Column(6)
    Me.Complemento = Me.cbocliente.Column(7)
    Me.Bairro = Me.cbocliente.Column(
    Me.Cep = Me.cbocliente.Column(9)
    Me.Cidade = Me.cbocliente.Column(10)
    Me.Estado = Me.cbocliente.Column(11)
    Me.Fone = Me.cbocliente.Column(12)
    Me.Celular = Me.cbocliente.Column(13)
    Me.Fax = Me.cbocliente.Column(14)
    Me.CPF = Me.cbocliente.Column(15)
    Me.RG = Me.cbocliente.Column(16)
    Me.CNPJ = Me.cbocliente.Column(17)
    Me.InscrEstadual = Me.cbocliente.Column(18)

        If Me.cbocliente.Column(3) = "Pessoa Juridica e Filhos" Then
            Me.CPF.Visible = False
            Me.RG.Visible = False
            Me.CNPJ.Visible = True
            Me.InscrEstadual.Visible = True
        Else
            Me.CPF.Visible = True
            Me.RG.Visible = True
            Me.CNPJ.Visible = False
            Me.InscrEstadual.Visible = False
        End If
   Me.cbocliente = Null
End Sub

Jpaulo, bom dia novamente.

Na linha de condição:

If Me.cbocliente.Column(3) = "Pessoa Juridica e Filhos" Then --> há como deixar em branco,para pegar o nome do cliente ? pois haverá vários clientes da pessoa jurídica, tentei " ", mas não retornou o resultado esperado.

Ainda testando.

Todos esse clientes da pessoa jurídica, não vão ter na combobox.Column(3) a inscrição "Pessoa Juridica e Filhos" ?

Isso é apenas um IF

Achei a solução para vários nomes que é:
If Me.cbocliente.Column(3) <> "L" Then

Mas....veja oque ocorre: quando se seleciona algum PJ,esconde os campos de CPF E RG da PF. Mas quando chama alguma PF os campos do RG e CPF não vem.

Entrei eu então com a seguinte condição:

If Me.cbocliente.Column(3) <> "L" Then
Me.CNPJ.Visible = True
Me.InscrEstadual.Visible = True
Me.CPF.Visible = False
Me.RG.Visible = False
Else
Me.CPF.Visible = True
Me.RG.Visible = True
Me.CNPJ.Visible = False
Me.InscrEstadual.Visible = False
End If

If Me.cbocliente.Column(2) <> "L" Then
Me.CPF.Visible = True
Me.RG.Visible = True
Me.InscrEstadual.Visible = False
Me.CNPJ.Visible = False
Else
Me.CNPJ.Visible = True
Me.InscrEstadual.Visible = True
Me.CPF.Visible = False
Me.RG.Visible = False
End If


Mas ainda não está surtindo o efeito desejado.

Ou não estou a entender ou não dormi o suficiente...

Que é isto <>"L" ???

Risos, nem eu dormi o suficiente de ontem para hoje. Estou a base de café ainda para acordar e olha que aqui é 9:10 da manhã.

<>"L" --> caso haja preenchimento, caso esteja selecionado. Quer seja select case ou textbox. E funciona mesmo.

Eu estava a referir-me como é que esse <>'L' enxerga se é PF ou PJ.

JPaulo, a cboCliente, tem como fonte de dados a tabela clientes.

Então haverá vários clientes tanto pessoas físicas como jurídicas

Com relação a <>"L" se a txtbox, contiver o nome do cliente PJ ele vai mostrar o CNPJ e a InscrEstadual por isso a linha de comando: If Me.cbocliente.Column(3) <> "L" Then.....
Espero ter te dado alguma luz.

Grato por seu tempo, dispensado a mim.


Ainda batalhando por esse código aqui..testando tudo que é possível.

Abraços !

Como ainda não resolvi e nem encontrei uma solução para esse problema, vou dar por resolvido.....mas ainda procurando uma solução.

Grato ao JPaulo, por ter me respondido.