[Resolvido] Formato de textbox

[gabrieldb 5]

Boa Tarde pessoal, eu aki mais uma vez rsrs....

È o seguinte eu tenho um formulário que tem campos como Cep, Telefone e CNPJ.

Nos campos telefones e cep eu consegui arrumar e quando o usuario digita direto ele muda o formato

ex: Tel. 0000-0000 Cep 00000-000

Os códigos são esse:

Private Sub txtCep_LostFocus()
If Len(txtCep.Text) = 8 Then
	txtCep.Text = Format(txtCep.Text, "00000-000")
End If
End Sub

Private Sub txtFone_LostFocus()
If Len(txtFone.Text) = 8 Then
	txtFone.Text = Format(txtFone.Text, "0000-0000")
End If
End Sub

O meu problema é com o campo CNPJ eu fiz baseado nisso ai mais qndo termina de digitar ao invés de mudar o formato ele calcula os números digitados alguem pode me ajudar a arrumar isso ?

 

Ps: Já tentei usar maskedbox mais tive problemas com o BD.

 

Valeu pessoal!

[lcs_sp 0]

Olá,

 

Não entendi direito, qual o problema com a gravação no database ? da um replace antes de gravar no banco ex:

 

campo.text=replace(replace(campo.text,".",""),"-","")

 

se naum for isso tenta dar uma melhorada na pergunta

 

flw

[gabrieldb 5]

Olá,

 

Não entendi direito, qual o problema com a gravação no database ? da um replace antes de gravar no banco ex:

 

campo.text=replace(replace(campo.text,".",""),"-","")

 

se naum for isso tenta dar uma melhorada na pergunta

 

flw

Então o problema não é no database e sim no formato do caixa de texto tipo quando a pessoa digitar direto o CNPJ sem pontos e traços ele assumir esse formato > "xx.xxx.xxx/xxxx-xx" entendeu ?

[lcs_sp 0]

Tente desta forma:

 

 

Ao carregar o formulario configure a mascara para

MaskEdBox1.Mask = "##.###.###/####-##"

[gabrieldb 5]

Então mais eu não quero usar maskedbox...queria igual eu fiz pro telefone e pro cep mais quando eu tento esse código ao invés de mudar o formato ele calcula os números digitados.

 

Private Sub txtCep_LostFocus()
If Len(txtCep.Text) = 8 Then
	txtCep.Text = Format(txtCep.Text, "00000-000")
End If
End Sub

Private Sub txtFone_LostFocus()
If Len(txtFone.Text) = 8 Then
	txtFone.Text = Format(txtFone.Text, "0000-0000")
End If
End Sub

[lcs_sp 0]

Gariel tente isto:

 

 

txt_cnpj.Text = Replace(Replace(Replace(txt_cnpj.Text, ".", ""), "/", ""), "-", "")

 

If Len(txt_cnpj.Text) = 14 Then

txt_cnpj.Text = Mid(txt_cnpj.Text, 1, 2) & "." & Mid(txt_cnpj.Text, 3, 3) & _

"." & Mid(txt_cnpj.Text, 6, 3) & "/" & Mid(txt_cnpj.Text, 9, 4) & _

"-" & Mid(txt_cnpj.Text, 13, 2)

End If

[gabrieldb 5]

Gariel tente isto:

 

 

txt_cnpj.Text = Replace(Replace(Replace(txt_cnpj.Text, ".", ""), "/", ""), "-", "")

 

If Len(txt_cnpj.Text) = 14 Then

txt_cnpj.Text = Mid(txt_cnpj.Text, 1, 2) & "." & Mid(txt_cnpj.Text, 3, 3) & _

"." & Mid(txt_cnpj.Text, 6, 3) & "/" & Mid(txt_cnpj.Text, 9, 4) & _

"-" & Mid(txt_cnpj.Text, 13, 2)

End If

Valeu lcs_sp era isso mesmo que eu queria...brigadão cara

abraço!