[Resolvido]Comando Cpf/Cnpj

Bom Dia

Estou usando um comando que altera de CPF para CNPJ.
quando seleciono dá blz e tal, porém quando eu retorno ao cadastro ele volta sempre como se o campo fosse apenas de CNPJ.

Eu gostaria de saber se tem coo ele ficar gravado permanente.

Segue o código.

Código:

Private Sub TIPO_PESSOA_AfterUpdate()
If TIPO_PESSOA.Value = 0 Then
    TxtCpf_Cnpj.InputMask = "000\.000\.000\-00"
    TxtRazaoSocial.Tag = ""
ElseIf TIPO_PESSOA.Value = 1 Then
    TxtCpf_Cnpj.InputMask = "00\.000\.000/0000\-00"
    TxtRazaoSocial.Tag = "Razão Social"
End If
End Sub


Tenham um excelente dia!

Bom dia.
Existe um campo na sua tabela onde armazena este valor de seleção?

Se não, crie um, caso contrário, coloque este mesmo código no evento No Atual do seu form que funciona.

Bom Dia

Existe sim um campo.

Porém quando eu cadastro o fornecedor ele funciona.
só que quando eu volto para consultar, o fornecedor que é CPF 000.000.000-00 fica com o formato do CNPJ.
na mascara padrão eu não coloquei nada, pois estava para CNPJ 00.000.000/0000-00

Então, teste como expliquei que funciona.

Sim eu já fiz o que foi explicado antes de lhe responder.
Porém não deu certo, continua do mesmo jeito.

Bem, deveria funcionar.
Tem como postar esta parte?

Segue o Meu BD

Contas a Pagar

Entra no Menu é a primeira opção do Menu
Cadastro Credores

Veja se é isso.

Contas a Pagar

Era isto sim,

Muito Obrigado pela ajuda.

Fiz da forma que eu havia dito antes.

Que bom que serviu.

Faltou o resolvido e não esqueça do clicar no Joinha: