[Resolvido]Cpf e Cnpj no mesmo campo : Access 2003

Boa tarde , estou criando um sistema no Access 2003 para cadastro de fornecedores e clientes e estou com dificuldades , pois gostaria de utilizar um campo só para receber a entrada de cpf e cnpj , como proceder tanto na tabela quanto no formulário , desde já , fica aqui meus agradecimentos.

Rubens
03/09/10
12:39hs

Olá Rubens seja bem vindo ao fórum;

Amigão veja estes exemplos da sala Repositório de Exemplos;

http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/grupo-de-opcoes-cpf-ou-cnpj-t327.htm

http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/valida-cpf-ou-cnpj-t286.htm

JPaulo, obrigado pelas dicas , mas eu consegui resolver este problema usando um grupo de opções e duas caixas de seleção, com o seguinte código no campo CPFCNPJ ( se não estou enganado , foi você que postou ):

Private Sub Quadro30_AfterUpdate()
If Me.Quadro30 = 1 Then
Me.CPFCNPJ.InputMask = "###\.###\.###\-##"
Else
Me.CPFCNPJ.InputMask = "##\.###\.###\/####\-##"
End If
End Sub
Só que na tabela o CPF e o CNPJ estão saindo sem formatação e ainda não achei o problema , se puder me ajudar ,

abraços.

Rubens.

Se o amigo olhar o exemplo no primeiro link que lhe passei, vai ver que o campo que recebe o CPF ou CNPJ está como texto para poder receber a formatação da máscara, e está a assim na moldura;


Private Sub ModEscolha_AfterUpdate()
Select Case ModEscolha
Case 1
Me.txtCPF.Visible = True
Me.txtCNPJ.Visible = False
Me![txtCPF].InputMask = "999.999.999/99;0;_"
Case 2
Me.txtCNPJ.Visible = True
Me.txtCPF.Visible = False
Me![txtCNPJ].InputMask = "999.999.999/9999-99;0;_"
End Select
End Sub

JPaulo, desculpe a minha falta de atenção , agora o problema está resolvido , valeu , muito obrigado.

Rubens 09/09/10
07:18hs

Tranquilo amigão, obrigado pelo retorno.