[Resolvido]Campos txt CPF e CNPJ

Bom dia ..

Olha eu de novo..

Nos cadastros do meu sistema tenho dois ou mai forms que tem o campo txtCpfCnpj, eu queria saber se tem como quando eu for cadastrar um novo Cliente, fornecedor neste campo, quando for CPF o campo ficar assim ___.___.___-__, e quando for CNPJ ficar assim__.___.___/____-__, mas que seja no mesmo campo não precisando criar dois campo.

desde já Agradeço.

Bom dia.

If Me![TIPO DE PESSOA] = "Pessoa Jurídica" Then
   'CNPJ
   Me![txtCpfCnpj].InputMask = "00\.000\.000\/0000\-00"
Else
     'CPF
   Me![txtCpfCnpj].InputMask = "000\.000\.000\-00"
End If

bom dia Claudio Machado..

Para eu fazer esto script devo criar uma combobox com as duas opções?
Ou criar botões de opções?
Onde aplico este script?
Me desculpe em questão de VBA ainda estou engatinhando.

Obrigado...

teste este modelo

O ideal seria cria um combo com os textos:

Pessoa Jurídica
Pessoa Física

E na caixa de texto txtCpfCnpj no evento Ao Entrar você coloca o código que lhe passei.

Ou fazer como o amigo Matheus postou, da no mesmo.

Abcs.

Obrigado pessoal, deu certo os dois exemplos funcionaram usei um no cadastro de clientes, e outro no de fornecedores.

Abraço..

Boa tarde eu de novo.

Neste tópico ficou tudo bem, só que na hora que eu escolher o tipo de pessoa física ou jurídica, eu queria que o foco fosse direto para o txtcpfCnpj, mas não vai.
Ja tentei colocar o setFocus em todo o Script e me vem esta mensagem:
"Erro em tempo de execução '424': O objeto é obrigatório.

Veja o código:

Código:

Private Sub cpfCnpj_For_Enter()

If Me![CmbTipoDePessoa] = "Pessoa Juridica" Then

'Cnpj
Me![cpfCnpj_For].InputMask = "##\.###\.###\/####\-##"
Else
'Cpf
Me![cpfCnpj_For].InputMask = "###\.###\.###\-##"
    End If
   
   
End Sub

Desde já agradeço.

Evento após atualizar do seu controle que
define se é CPF ou CNPJ:

Me!txtcpfCnpj.SetFocus

Boa tarde Marcelo David...

Sera que sou tão leigo assim?

Seja mais explicito ja tentei no Script todo de novo e não deu certo.

Desde já agradeço a sua ajuda.

No modelo que te enviei após eu clicar na caixa para selecionar a opção ele ja envia o foco para caixa de texto..

Sim acho que vou mudar para o seu modelo.
Obrigado Novamente.

O nome de da sua caixa de texto não é: txtcpfCnpj
Porque no código da máscara está usando: cpfCnpj_For ?

O certo seria:

Me.txtcpfCnpj.SetFocus

Ou

Me.cpfCnpj_For.SetFocus

Se for este o nome da sua caixa de texto.

Entre com este codigo no seu combo:

Código:


If Me![CmbTipoDePessoa] = "Pessoa Juridica" Then
   'CNPJ
   Me![txtCpfCnpj].InputMask = "00\.000\.000\/0000\-00"
Else
     'CPF
   Me![txtCpfCnpj].InputMask = "000\.000\.000\-00"
End If

Me.txtCpfCnpj.SetFocus



Não Funcionou não sei porque.

Ok pessoal consegui resolver aqui.

Optei pelo modelo do colega matheuspereira, porque no outro não deu certo mesmo.

Obrigado.

Ok, de qualquer forma o fórum agradece o retorno.
Abraço.

Samuel Ribeiro escreveu:Sera que sou tão leigo assim?

Realmente não sei amigo.

Bom que resolveu.

Boa noite.