joelmix
|
CORONEL FREITAS
SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/02/2010 15:41 hs
Gostaria de Saber como formatar o cep em um textbox e se ele tiver menos de 8 numeros de a mensagem de erro.
|
|
|
|
|
|
Ricardo Sousa
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/02/2010 09:53 hs
faça uma condição
If Len(Text1) < 8 Then
MsgBox "não pode ser menor que 8 digitos, por favor digite 8 digitos.", vbInformation, "Informação"
end if
if Len (text1) > 8 then
MsgBox "não pode ser maior que 8 digitos, por favor digite apenas 8 digitos.", vbInformation, "Informação"
end if
tenta isso ai blz!
|
|
|
|
Joel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/02/2010 14:05 hs
Vlw pela ajuda Ricardo...
ja tinha conseguido ontem e ficou assim, e ficou na mesma logica que vc....
Segue Código...
If tcep.Text = "" Then
Exit Sub
Else
If Len(tcep.Text) <> 8 Then ' conta se o cep for igual a 8 numeros, se for menos ou mais da erro
MsgBox "O CEP esta INCORRETO, VERIFIQUE!", vbCritical, "SoftTrans"
tcep.Text = ""
tcep.SetFocus
Else
tcep.Text = Format(tcep.Text, "00000-000")
End If
End If
Abraços ;)
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/02/2010 15:31 hs
As vezes o usuário pode digitar o traço ("-" ), aí formata assim: tcep.text = Left$(tcep.Text, 5) & "-" & Right$(tcep.Text, 3) vlu// |
|
|
|
