[Resolvido]CPF e CNPJ em campo único com rotina validadora

No endereço do site
https://www.maximoaccess.com/t785-resolvidocpf-e-cnpj-no-mesmo-campo-access-2003
tem duas informações sobre o CNPJ/CPF. Tentei juntar s duas.. e além da salada.. rsrs.
Não deu certo.

Criei um grupo de opções e fiz assim:

Private Sub OpContribuinte_BeforeUpdate(Cancel As Integer)
Me.CGC_CPF = ""
   If Me.OpContribuinte = 1 Then
      Me.CGC_CPF.InputMask = "999,999,999-99"
   Else
      Me.CGC_CPF.InputMask = "##,###,###/####-##"
   End If
   Me.CGC_CPF.SetFocus
End Sub


depois....

Private Sub CGC_CPF_BeforeUpdate(Cancel As Integer)
   Select Case Me.OpContribuinte
          Case 1 'CPF
                 Call DVCPF(Me.CGC_CPF)
                                 If Me.CGC_CPF = "11111111111" Or Me.CGC_CPF = "22222222222" Or Me.CGC_CPF = "33333333333" _
                       Or Me.CGC_CPF = "44444444444" Or Me.CGC_CPF = "55555555555" Or Me.CGC_CPF = "66666666666" _
                       Or Me.CGC_CPF = "77777777777" Or Me.CGC_CPF = "88888888888" Or Me.CGC_CPF = "99999999999" Then
                       MsgBox "O CPF é INVÁLIDO! Digite-o novamente.", vbCritical, " InfoBasic Smart System"
                       Exit Sub
                          End If
                   If Me.CGC_CPF.Value <> fCPF(Me.CGC_CPF) Then
                       MsgBox "CPF Invalido, introduza novamente...", vbInformation
                       Me.Undo
                               Cancel = True
                           Else
                       MsgBox "CPF válido."
                       End If
          Case 2 'CGC
                 Call DVCGC(Me.CGC_CPF)
                                   If Me.CGC_CPF.Value <> fCNPJ(Me.CGC_CPF) Then
                                   MsgBox "CNPJ Invalido, introduza novamente...", vbInformation
                                   Me.Undo
                                           Cancel = True
                                       Else
                                   MsgBox "CNPJ válido."
                                       Me.CGC_CPF.InputMask = "00\.000\.000\/0000\-00"
                                   End If
   End Select
End Sub

Alguma sugestão de como criar um campo só com a validação inclusa?
Obrigado

Mylton,
veja o exemplo anexo se te ajuda. Espero que sim!

Bom dia.
Já havia visto essa rotina.
O que desejava era unir em um campo só o cpf e o cnpj associado com uma rotina para verificar se é verdadeiro.

Não entendi.

Boa noite
tentarei ser mais claro
Os exemplos sao bons isolados.
Contudo... desejaria num num campo só a opcao de CPF e CNPJ, somada a rotina neste campo para validar ou náo este CPF/CNPJ.
Obrigado

Veja se é assim que você precisa. Juntei o exemplo do Jpaulo + O Modulo Validador + umas adaptações minhas.

oi Fábio.
Obrigado.
Estou no trabalho e aqui não consigo acessar o access.
Quando chegar em casa mais tarde vejo e respondo.
Obrigado.

Fabio....
Era isso mesmo.
Obrigado

Bacana, bons estudos

Olá Consulta de CNPJ no site da Receita sem digitar Captcha com Excel VBA

https://www.youtube.com/watch?v=R7sgTXS1Ggo