FORMANTANDO E DESFORMATANDO O CNPJ

USUARIO.EXCLUIDOS 17/04/2007 11:12:58
#212247
pessoal eu tenho um campo cnpj. então quando eu carrego a tela o campo cnpj precisa estar formatado. quando eu colocar o cursor ou clicar no campo o cnpj precisa ficar desformatado. e quando eu der tab pra ir a outro campo o cnpj precisa voltar a ficar formatado.

e quando eu for gravar esse cnpj eu primeiro preciso desformatar e gravar apenas os numeros.

como faço isso?
VBAPRENDE 17/04/2007 11:55:35
#212256 Resposta escolhida
Acho que isso ajuda
VBAPRENDE 17/04/2007 11:56:14
#212257
Desculpa Esqueci de mandar o arquivo
USUARIO.EXCLUIDOS 17/04/2007 14:00:13
#212289
naumn tem .zip naum? rsrs
VBAPRENDE 17/04/2007 14:15:27
#212291
Afffff, baixa o rar.
USUARIO.EXCLUIDOS 17/04/2007 14:21:45
#212297
o problema é q uso textbox e naum maskledit
VBAPRENDE 17/04/2007 15:04:56
#212321
Amigo você deve dar uma lidinha no codigo pois duas ou tres linha que vc mudar funcionario pra um textbox.


LEI O CÓDIGO BEM !!!
WHELLNET 17/04/2007 19:05:21
#212408
Simples olha
No GotFocus
Private Sub txt_cnpj_GotFocus()
txt_cnpj.text = replace(txt_cnpj.text, "/", "")
txt_cnpj.text = replace(txt_cnpj.text, ".", "")
txt_cnpj.text = replace(txt_cnpj.text, "-", "")


No LostFocus vc formata novamente
Private Sub txt_cnpj_LostFocus()
txt_cnpj.text = Format(txt_cnpj.text, "@@.@@@.@@@/@@@@-@@")
Tópico encerrado , respostas não são mais permitidas
Voltar