[Resolvido]CPF/CNPJ na mesma TextBox

Sou iniciante em Access e estou com dificuldades em colocar uma máscara de entrada de cpf e cnpj na mesma textbox. Preciso colocar uma groupBox com dois botões de opção Pessoa Física e Pessoa Jurídica. Ao marcar uma das opções preciso que a texBox receba a máscara. Se alguém puder me ajudar fico grato. Gostaria de saber também se posso colocar a máscara na tabela.

Opa, Utilize a propriedade InputMask da sua TextBox

Vai ficar mais ou menos assim

Código:

If ValorGrupoOpcao=1 then
     SuaTextBox.InputMask = "000\.000\.000\-00" ' Mascara para CPF
Else
     SuaTextBox.InputMask = "00\.000\.000\/0000\-00" ' Mascara para CNPJ
End If

Faça as adaptações para o seu projeto

Bom dia LiveBrain!
Obrigado por ajudar. Coloco o código em qual evento de qual controle? Gostaria de saber se posso armazenar o campo com máscara na tabela e se é recomendado, como fazer. Estou utilizando o Access 2010.

Pode colocar no evento após atualizar da sua groupBox

Quanto ao armazenamento, eu vejo assim

Se vc vai armazenar o valor da sua groupBox eu armazenaria somente os números
Se não for armazenar a groupBox, então é necessário armazenar a máscara pra saber quando é cnpj ou cpf

Amigo Live Brain
Fiz como você orientou, mas não deu certo. O que seria ValorGrupoOpcao? Dá uma olhada no código e me fala o que está errado. O nome do meu grupo de opções é Quadro15, minha txt é txtCpfCnpj. o botão pessoa física da caixa grupo de opções é Opção18 e pessoa jurídica é Opção20. Nas propriedades não existe opcao, nem option nem chekked. O único valor que existe é defaultValue, mas também não deu certo. Como faço para te mandar o banco de teste como anexo?

Private Sub Quadro15_AfterUpdate()
If Me.Quadro15.Value = 1 Then
Me.txtCpfCnpj.InputMask = "000\.000\.000\-00"
Else
Me.txtCpfCnpj.InputMask = "00\.000\.000\/0000\-00"
End If
End Sub

Ok, faça o seguinte

1) Na sua tabela, crie um Campo TipoPessoa no formato Numero
2) no seu formulário, o Quadro15 vc deixa a fonte do controle no seu campo TipoPessoa
3) deixe o Quadro15 com o valor padrão 0
4) a Opção18 com o valor padrão 1 e a opção20 com valor padrão 2

dessa forma o If que vc colocou deve funcionar

Veja aqui

[ ]'s

Amigo Live Brain!
Deu certo ao cadastrar novo registro. Porém, ao navegar as máscaras não aparecem. Para aparecerem eu tenho que clicar na opção que está desmarcada e clicar novamente na opção correta e mesmo assim ao navegar fica a máscara que cliquei por último em todos os registros. O que posso fazer para resolver?
PS.: Mais uma vez obrigado pela sua atenção.

De uma olhada neste topico.

https://www.maximoaccess.com/t785-resolvidocpf-e-cnpj-no-mesmo-campo-access-2003

Boa tarde!
Obrigado a todos que estão ajudando. A solução apresentada pelos outros amigos utiliza duas textBox e não uma. O amigo Live Brain apresenta uma solução na mesma textBox. O que está faltando é somente ajustar para os valores aparecerem formatados ao navegar e também na tabela.

Brother copia o código abaixo para o evento No Atual do formulário :

Código:

If ValorGrupoOpcao=1 then
    SuaTextBox.InputMask = "000\.000\.000\-00" ' Mascara para CPF
Else
    SuaTextBox.InputMask = "00\.000\.000\/0000\-00" ' Mascara para CNPJ
End If

Abraços

Edelson

Gostamos de ajudar!

Mas, gostamos também da atenção de quem nos pede ajuda.

Você escreveu:
"A solução apresentada pelos outros amigos utiliza duas textBox e não uma"

Então, olhe novamente meu post (mensagem 7) e confira.

Boa tarde a todos!
Vocês são "OS CARAS". Se puderem me ajudar com mais uma coisinha, fico GRATO. Preciso que a tabela também fique formatada para, ao criar uma consulta baseada na tabela, eu tenha um resultado formatado. E me tirem uma dúvida. Terei dificuldade em validar o cpf/cnpj com o formato ou isso não interfere?

Gostaria de pedir desculpas ao Amigo Noobezinho. Sua solução também está perfeita. É que eu sou novato e tô curtindo o Access a pouco tempo. Acredito que se estiverem dispostos a me ajudar vou encher muito o saco de vocês. Ah! só lembrando, preciso da máscara também na tabela.

Amigos. Percebi hoje outra coisa que preciso resolver. O campo tipoPessoa na tabela está armazenando 1 e 2, gostaria que armazenasse Pessoa Física e Pessoa Jurídica. Existe uma forma de fazer sem ter que criar outro campo? Ah! Lembrando que preciso também armazenar na tabela o campo formatado com a máscara. Se alguém tiver uma solução ficarei "GRATO". Novamente peço que sejam pacientes pois sou novato em Access e programação.

Edelson

Não precisa gravar o tipo de pessoa na tabela, ele serve somente para escolher entre CPF e CNPJ.

Se mesmo assim desejar fazer isso, mude o campo na tabela de caixa de texto para caixa de combinação.
Clique com o bt direito e escolha caixa de combinação.
Na folha de propriedade, na propriedade origem da linha, deve ficar assim:
1;"Pessoa física;2;Pessoa jurídica
Na aba todas, em numero de colunas = 2
tamanho das colunas: 0;cm 2,5cm

É isso

Noobezinho
Mais uma vez agradeço pela sua disponibilidade em ajudar. Fiz como você orientou. Porém na tabela não existe aba todas. Somente aba Geral e Pesquisa, coloquei origem da linha da forma que você orientou, numero de colunas 2, mas não tem tamanho da colunas. Continua aparecendo 1 e 2 na tabela. Observei também que se eu alterar para caixa de combinação não atualiza ao navegar. Aproveitando a oportunidade ainda não consegui resolver o problema da máscara na tabela, mudei o formato como você orientou e continua armazenando sem formatação. Vou criar outro campo tipoPessoa para armazenar Pessoa Física ou Jurídica. Porém continuo precisando de armazenar o formato com máscara na tabela. Tentei Anexar o arquivo para você dar uma olhada. O tamanho do arquivo é 100 Kb, porém está dando erro de tamanho ultrapassado.
PS.: Fiz as alterações nas propriedades do formulário, mas também não deu certo. Mais uma vez peço desculpas. É que realmente sou iniciante, mas gostei muito do Access. Peço que seja paciente. Um grande abraço.

Olá Edelson,

Veja este exemplo do Noob:

https://www.maximoaccess.com/t19664p5-resolvidocampos-sim-e-nao#145367

Boa tarde amigo Good Guy.
Obrigado pela ajuda. Dei uma olhada nesta solução, mas está com o mesmo problema. Não atualiza o campo ao navegar e na tabela também não apresenta formatado.

Bem Edelson,

Bem então o problema persiste. Você saberia trabalhar com TableDefs? Creio que a solução para o seu problema está aí. Veja o tópico abaixo respondido pelo Alexandre Neves, excelente programador de Portugal. Tente adaptar à sua necessidade.

https://www.maximoaccess.com/t13061-resolvidocomo-modificar-a-mascara-de-entrada-de-um-campo-da-tabela-via-vba

Veja o código final para você adaptar:

Código:


Sub AlteraMascaraDeCampo(sMascara As String)
'código criado por Alexandre Neves, do Fórum MaximoAccess
'em 2013-05-07 para good guy
'o código pode ser utilizado livremente, desde que mencionado este cabeçalho
On Error GoTo TrataErro
Dim Bd As DAO.Database, Tbl As DAO.TableDef, Cmp As DAO.Field, Prp As DAO.Property
Dim Entrada As String

Entrada = Nz(InputBox("Digite ORDEMDESERVICO:", "Aviso"))
sMascara = Nz(InputBox("Defina a máscara de entrada para este campo(" & Entrada & ").Ex: 000000-0: ", "Controle de OS"))
Set Bd = CurrentDb
Set Tbl = Bd.TableDefs("tbl_OS")
Set Cmp = Tbl.Fields(Entrada)
Set Prp = Cmp.CreateProperty("InputMask", dbText, sMascara & ";0;_")
Continua:
Cmp.Properties.Append Prp

Bd.TableDefs.Refresh

Set Cmp = Nothing
Set Tbl = Nothing
Set Bd = Nothing
Exit Sub
TrataErro:
If Err.Number = 3367 Then Cmp.Properties.Delete ("InputMask"): GoTo Continua
End Sub

Aqui está um exemplo:


Download do arquivo

[ ] 's

Amigo Good Guy!
Agradeço sua disponibilidade em ajudar. Mas sou iniciante em Access/VBA. Não entendi absolutamente nada do código. Se alguém pudesse me ajudar a colocar a máscara cpf/cnpj na tabela já me ajudaria. Os outros amigos já me ajudaram a entender como colocar a máscara no formulário. O último link que o amigo Noobezinho deixou me remete para uma página que não acontece nada. Mais uma vez peço desculpas, acho que sou realmente o pior novato que já acessou este post. Mas agradeço a todos pela ajuda. Vou tentar estudar um pouco mais.

Maninho

Vai la no mega que tem um arquivo exemplo.

ta funfando normal.

Aliás, sempre faço teste nos links antes de postar.

Amigo Noobezinho!
Como vou ao mega? E mais uma vez tenho que ter a humildade de te pedir desculpas, pois a princípio a página não abriu. Mas estou aprendendo com meus erros.

É só clicar no link da mensagem nº 22

"Download do Arquivo"

Aqui está abrindo normalmente, se não abrir pra vc, algo está
impedindo ai no teu computador.

Quero agradecer a todos e especialmente ao Amigo Noobezinho que apresentou a solução final. E mais uma vez peço desculpas a todos por minha falta de conhecimento, mas prometo que vou estudar muito mais e a próxima vez que voltar aqui, vou estar melhor. Um grande abraço a todos que ajudaram e fiquem com DEUS, que ele abençoe abundantemente a inteligência de vocês e suas famílias.

Solucionado!

Eu gostaria de anexar o arquivo final, para quem quiser dar uma olhada, mas ao tentar anexar da a seguinte mensagem "Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)"

Amigo como faço para anexar o arquivo via dropbox?

Amigos!
Segue o link do arquivo finalizado. Obrigado e um abraço a todos.

https://www.dropbox.com/s/vgrbj192lvqrny0/Teste.accdb?dl=0