|
|
Postada em 19/08/2007 23:06 hs
Oi. Alguém pode me ajudar? Tenho uma textbox onde só podem ser digitados números de 0 a 9. Essa textbox recebe tanto numero de CPF (11 dígitos) quanto CGC (14 dígitos). Formatei a textbox, no evento <LostFocus> para transformar os números na identificação do contribuinte, seja ele pessoa física ou jurídica: Private Sub txtCPF_LostFocus()
If Len(txtCPF) = 11 Then
txtCPF = Format(txtCPF, "###"".""###"".""###-##")
Else
txtCPF = Format(txtCPF, "##"".""###"".""###""/""####-##")
End If
End Sub Funciona direitinho. Contudo, se o CPF começar com zero (ex.: 040.222.333-55), ao tabular para fora, aparece: 40.222.333-55. Ou seja, come o zero inicial. O mesmo acontece com o CPF 002.555.777-88 (fica 2.555.777-88). Como fazer para aparecer os zeros iniciais, ao tabular para a próxima textbox? Agradeço a colaboração. |
|
|
|
|
|
|
|
Postada em 19/08/2007 23:34 hs
Colega, já tem códigos prontos na seção dicas, aqui está um: já formata e valida o CPF para vc. at+ |
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/08/2007 09:48 hs
Chico, se o seu caso apenas for de formatação, eu utilizo nos meus programas a seguinte forma
TxtCnpj.Text = Format(TxtCnpj.Text, "@@.@@@.@@@/@@@@-@@")
TxtRg.Text = Format(TxtRg.Text, "@@.@@@.@@@-@")
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 20/08/2007 14:59 hs
Bom, aparentemente ele ta tratando o text como numero ou seja come os zeros a esquerda. para forçar o zero a esquerda eu costumo usar o seguinte codigo. format(text1.text, "0000") nesse exemplo se fosse digitado "1" ele retornaria "0001" tenta usar esse principio |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/08/2007 10:26 hs
Private Sub txtCPF_LostFocus()
If Len(txtCPF) = 11 Then
txtCPF = Format(txtCPF, "000"".""000"".""000-00")
Else
txtCPF = Format(txtCPF, "00"".""000"".""000""/""0000-00")
End If
End Sub |
|
|
|
|
|
Postada em 21/08/2007 12:51 hs
Valeu moçada. Foram de grande ajuda... Um dia, quem sabe, retribuo a gentileza... Chico. |
|
|
|
