Remover máscara de um textbox

Olá pessoal, saudações!

Criei um formulário onde uma das informações de entrada será o número do CPF ou CNPJ (que será no mesmo campo). Criei o seguinte código para identificação e entrada da máscara:

Private Sub CPF_CPNJ_Proprietário_AfterUpdate()

If Len(CPF_CPNJ_Proprietário) = 11 Then

CPF_CPNJ_Proprietário.InputMask = "000\.000\.000\-00" 'Máscara do CPF

ElseIf Len(CPF_CPNJ_Proprietário) = 14 Then

CPF_CPNJ_Proprietário.InputMask = "00\.000\.000\/0000-00" 'Máscara do CNPJ

Else

MsgBox "CPF ou CNPJ inválido!"

End If

End Sub

Quando digitado qualquer número que contenha números diferentes de 11 e 14 a mensagem "CPF ou CNPJ inválido!" é exibida, até aqui ok!

No entanto, quando entro com 11 caracteres a máscara de CPF é gravada no Textbox o que está correto, porém se eu apagar o número a máscara continua gravada e isso impossibilita a entrada no caso de um número com 14 caracteres não permitindo entrar com CNPJ. O contrário também acontece. Caso digite 14 caracteres ao abrir o formulário a máscara do CNPJ é gravada e ao apagar a informação ela permanece gravada não permitindo entrar com um número de CPF.

Já pesquisei, mas não encontrei um função que pudesse implementar no código para apagar a máscara assim que todos os caracteres forem deletados.

Estou aprendendo a programar na marra! Pode parecer simples, mas estou apanhando.

Vocês poderiam me ajudar???

abraços,

Vanderley M. Silva

boa noite Vanderley de uma olhada neste link para ver se te ajuda abraço Nogaro

https://www.maximoaccess.com/t24736-configuracao-de-campo-tabela

Vc cria uma combo com as opçoes PF - Pessoa Física e PJ - Pessoa Jurídica, antes do campo CPF_CPNJ_Proprietário.

Assim no evento após atualizar do campo CPF_CPNJ_Proprietário, será aplicada a máscara de acordo com a opção escolhida na combo, por exemplo:

Antes, altere os nomes do campo e da combo.

Código:

Private Sub SeuCampo_AfterUpdate()


Select Case SuaCombo.Column(2)

Case "1"

    SeuCampo.InputMask = "00\.000\.000\/0000\-00"
    CNPJ_Rótulo.Visible = True
    CPF_Rótulo.Visible = False
   

Case "2"

    SeuCampo.InputMask = "000\.000\.000\-00"
    CPF_Rótulo.Visible = True
    CNPJ_Rótulo.Visible = False

Case Else

    SeuCampo.InputMask = " "
    CPF_Rótulo.Visible = False
    CNPJ_Rótulo.Visible = False


End Select

End Sub

Não esquecendo também de incluir esse código no evento NoAtual do seu form.

Vc também melhorar a depuração do CPF/CNPJ, através de código que verifica se é válido um CPF ou CNPJ.

Esse código é livre vc encontra com facilidade aqui no próprio forum.


Abraços,

Então pessoal,

a opção de criar um combo ou seja selecionar o tipo se CPF ou CNPJ eu implementei (e está funcionando perfeitamente!!!) em um outro formulário do mesmo projeto. Inclusive com orientações do Nogaro e do Gilberlanio os quais agradeço muito.

Cleverson, muito obrigado seu código passou a fazer parte do meu acervo.

No entanto nesse formulário especificamente que estou trabalhando gostaria que essa operação ocorresse internamente sem opção de escolha pelo usuário. Na verdade o que preciso é apagar a máscara que ficou gravada no campo, necessito limpar oTextbox. Existe alguma função para apagar a máscara do campo???

Abraços,

Vanderley M. Silva

boa noite amigo Vanderley
você pode colocar ao sair do campo ou em um botão ou ao abrir o form tem varias maneiras de colocar este .
Me.seucampo= Null
abraço Nogaro

boa noite Vanderley alterei seu aplicativo conforme precisa

ao digitar cpf e for cnpj ao clicar no próprio campo para mudar de cpf para cnpj que automáticamente limpa a mascara , é só digitar o cnpj ou vice-versa !
abraço Nogaro !

este é o link pode baixar e testar

https://goo.gl/mhygHY