[Resolvido]Atualizações Erro - Combo

É o seguinte, possuo uma combo com as opções:

1 - Pessoa Física
2 - Pessoa Juridica

A opção 1, habilita o campo para preenchimento CPF e por fim o campo 2, habilita os campo para preenchimento, CNPJ e Inscrição Municipal, isso com esse código:

Código:

Private Sub TipoPessoa_AfterUpdate()
Me.CNPJ.Visible = Me.TipoPessoa = "Pessoa Jurídica"
Me.RotuloCNPJ.Visible = Me.TipoPessoa = "Pessoa Jurídica"
Me.CPF.Visible = Me.TipoPessoa = "Pessoa Física"
Me.RotuloCPF.Visible = Me.TipoPessoa = "Pessoa Física"
Me.InscriçãoMunicipal.Visible = Me.TipoPessoa = "Pessoa Jurídica"
Me.RótuloIMunicipal.Visible = Me.TipoPessoa = "Pessoa Jurídica"
End Sub

Até aí tudo bem, mas acontece que na exibição da página ocorre alguns erros. Em alguns campos em que preenchi tanto com a opção 1 como a opção 2 exibe os campos errados na página, isso ocorre depois que saio da página.

Vejam os exemplos: http://dl.dropbox.com/u/81000360/Exemplos.PNG

Gostaria que exibisse corretamente após o salvamento. O que poderia ser?

Boas colega, este código está equivocado...

Me.CNPJ.Visible = Me.TipoPessoa = "Pessoa Jurídica"
Me.RotuloCNPJ.Visible = Me.TipoPessoa = "Pessoa Jurídica"
Me.CPF.Visible = Me.TipoPessoa = "Pessoa Física"
Me.RotuloCPF.Visible = Me.TipoPessoa = "Pessoa Física"
Me.InscriçãoMunicipal.Visible = Me.TipoPessoa = "Pessoa Jurídica"
Me.RótuloIMunicipal.Visible = Me.TipoPessoa = "Pessoa Jurídica"

Isto não está dizendo nada...

O correto seria algo assim:

If Me.TipoPessoa.Value = "Pessoa Jurídica" Then
   Me.RotuloCNPJ.Visible = True
   Me.CNPJ.Visible = True
   Me.ROtuloCPF.Visible = False
   Me.CPF.Visible = False    
ElseIf Me.TipoPEssoa.Value =Pessoa Física" Then
   Me.RotuloCNPJ.Visible = False
   Me.CNPJ.Visible = False
   Me.ROtuloCPF.Visible = True
   Me.CPF.Visible = True
End If

Cumprimentos.

OK Piloto, obrigado pelo auxílio.

Mas o erro persiste com o código que me passou. Mudei as cosias aqui, troquei por outro método (caixa de opções), mas infelizmente continua misturando as vizualizações dos registros antigos; combo e caixa de opções erros parecidos.

http://dl.dropbox.com/u/81000360/CPF_CNPJ.rar

Peguei esse exemplo no site. Lembrando que esse "erro" só ocorre na visualização.

Um exemplo:

No registro X, eu selecionei na caixa de opções, a opção 1. Sendo assim habilitou o CPF: Habilitou o campo correto para o preenchimento e efetuei o cadastro com sucesso, até aí tudo perfeito, porém quando troco de registro e troco de opções no outro registro (caixa de opções) o registro anterior troca também (os registro não, só a vizualização), eu gostaria que em todos os registros o flag de opções fosse mantido fielmente ao registro (Se selecionei CPF, manter CPF se selecionei CNPJ, manter CNPJ). Entendeu?

Novamente, obrigado pelo auxílio.

E fico anciosamente aguardando uma luz! rs

O exemplo está a funcionar normalmente...

Aqui não ocorreu problema algum...

Cumprimentos.

Obrigado pela atenção Piloto.

Esse exemplo não mostra, olha o meu BD:

http://dl.dropbox.com/u/81000360/BD.rar

Repara que quando eu seleciono uma opção, ela fica selecionada para todos os outros registros, ignorando o que eu tinha escolhido.
Como eu disse anteriormente, não muda os dados e sim a vizualização.

Cumprimentos!!

Poste em formato 2003 ou 2007, poucos usuarios utilizam o 2010.

Cumprimentos.

Obrigado PILOTO.

Segue: http://dl.dropbox.com/u/81000360/Database%20vendas.rar

Valeu!

Crie uma caixa texto no form, nomeeie como txtTipo, acople ao campo TipoPessoa, em eventos do form, No atual:

Private Sub Form_Current()
If Me.txtTipo = "Pessoa Física" Then
    Me.ModEscolha.DefaultValue = 1
    Call ModEscolha_AfterUpdate
Else
    Me.ModEscolha.DefaultValue = 2
    Call ModEscolha_AfterUpdate
End If
End Sub

Cumprimentos.

PILOTO.

Novamente muito obrigado pela ajuda.

A solução que você me passou realmente solucionaria o meu problema, mas de antemão já peço desculpa, por não tê-lo avisado de uma coisa:

Na sua solução, o preenchimento do campo "TipoPessoa" terá que ser automático, tanto para "Pessoa Física" quanto para "Pessoa Jurídica", quando eu o criei esse campo, ele seria usado em uma combo, mas verifiquei que a caixa de opções atenderia melhor o que eu preciso, por isso que banco que enviei anteriormente estava com esses dados já preenchidos.

A pergunta é, teria como eu escolher uma das alternativas na caixa de opções (Pessoa Física ou Pessoa Jurídica) e esse campo preencer automaticamente o "TipoPessoa" na tabela, e assim manter o flag na tela?

Segue o BD: http://dl.dropbox.com/u/81000360/Database%20vendas.rar

Nesse BD que enviei os dados no campo TipoPessoa, não está preenchido, mas efetuei os testes com os campos preenchidos, funcionou prefeitamente.

Novamente desculpa pela chateação.

** Talvez eu tenha ido pelo caminho errado, aos poucos aprendo.

Cumprimentos!

Private Sub ModEscolha_AfterUpdate()
    Select Case ModEscolha
    Case 1
    If IsNull(Me.txtTipo) = True Or Me.txtTipo = "" Or Me.txtTipo = "Pessoa Jurídica" Then
            Me.txtTipo = "Pessoa Física"
        Else
            Me.CPF.Visible = True
            Me.CNPJ.Visible = False
            Me.InscriçãoMunicipal.Visible = False
            Me.RotuloIMunicipal.Visible = False
            Me.RotuloCNPJ.Visible = False
            Me.RotuloCPF.Visible = True
            Me.RotuloIMunicipal.Visible = False
            Me![CPF].InputMask = "000\.000\.000\-00;;_"
    End If
    Case 2
    If IsNull(Me.txtTipo) = True Or Me.txtTipo = "" Or Me.txtTipo = "Pessoa Física" Then
            Me.txtTipo = "Pessoa Jurídica"
        Else
            Me.CNPJ.Visible = True
            Me.CPF.Visible = False
            Me.InscriçãoMunicipal.Visible = True
            Me.RotuloIMunicipal.Visible = True
            Me.RotuloCPF.Visible = False
            Me.RotuloCNPJ.Visible = True
            Me.RotuloIMunicipal.Visible = True
            Me![CNPJ].InputMask = "00\.000\.000/0000\-00;;_"
    End If
    End Select
End Sub

Cumprimentos.

Valeu amigão.

Mas infelizmente ocorreu outro erro, até grava na tabela, mas não esconde os campos quando mudo o flag, tentei fazer algumas adaptações mantendo o código antigo (No clique) e utilizando apenas o código que grava na tabela (Depois da atualização), mas também não deu certo. Pena!


Se der, segue:
http://dl.dropbox.com/u/81000360/Database%20vendas.rar

De quais campos esta a falar?

Uma dica.. não precisa esconder os rótulos...

Clique no Rótulo, pressione a techla shift selecione o campo e os associe, assim so precisa esconder a caixa texto e consequentemente ja esconde os rótulos.

De detalhes sobre quais campos deseja esconder.

Cumprimentos.

Então, os campos estão desvinculados de propósito, porque se reparar, quando clico em salvar ele bloqueia os campos, e assim muda a cor (bloqueado), meu cliente (Meu pai) não quer que mude de cor os rótulos, por isso os desvinculei... (Não sei o por que...rsrs)

Os campos que falo são os campos: CPF e CNPJ (estão sobrepostos), quando um aparece o outro some/esconde.

Ok?

Private Sub ModEscolha_AfterUpdate()
    Select Case ModEscolha
    Case 1
    If IsNull(Me.txtTipo) = True Or Me.txtTipo = "" Or Me.txtTipo = "Pessoa Jurídica" Then
        Me.txtTipo = "Pessoa Física"
    End If
        Me.CPF.Visible = True
        Me.CNPJ.Visible = False
        Me.InscriçãoMunicipal.Visible = False
        Me.RotuloIMunicipal.Visible = False
        Me.RotuloCNPJ.Visible = False
        Me.RotuloCPF.Visible = True
        Me![CPF].InputMask = "000\.000\.000\-00;;_"
    Case 2
   If IsNull(Me.txtTipo) = True Or Me.txtTipo = "" Or Me.txtTipo = "Pessoa Física" Then
        Me.txtTipo = "Pessoa Jurídica"
    End If
        Me.CNPJ.Visible = True
        Me.CPF.Visible = False
        Me.InscriçãoMunicipal.Visible = True
        Me.RotuloIMunicipal.Visible = True
        Me.RotuloCPF.Visible = False
        Me.RotuloCNPJ.Visible = True
        Me![CNPJ].InputMask = "00\.000\.000/0000\-00;;_"
End Select
End Sub

E nos eventos da listbox:


Private Sub Lista65_AfterUpdate()
' Localizar o registo que corresponde ao controle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Id_Cliente] = " & Str(Nz(Me![Lista65], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Call ModEscolha_AfterUpdate
End Sub


Cumprimentos.

Maravilha PILOTO.

Isso mesmo que eu precisava.

Mas para variar... Realmente o dado é gravado na tabela e fica tudo da forma que queríamos.

Porém, existe um problema, que quando clico no botão próximo/next os registros são criados infinitamente quando chega no último, inclui o código Me.AllowAdditions = False, até resolve o problema para esse campo, mas existe outros desdobramentos. O correto seria que não gerasse o ID (Código do Cliente).

Teria alguma dica/solução? Tentei colocar o campo nome como requerido para não criar novos registros,
mas por isso ocorreu tantos erros que desisti.

Segue: http://dl.dropbox.com/u/81000360/Database%20vendas.rar

Você disse:

Maravilha PILOTO.

Isso mesmo que eu precisava.

Então Tópico resolvido amigão.
Nova Dúvida... Novo Tópico... Clique no botão resolvido e até a próxima.

Cumprimentos.

Desculpa, carinha.

Logo após postar anteriomente, fui fuçar e concluir tudo.

Para retiar essas chatiações eu coloquei algumas mensagens e já era. Tudo OK!!!

Não tenho palavras para agradecer. Tópico concluído e mais um amigo.

Valeu PILOTO, você é fera!!!

O Fórum agradece o retorno.