VALIDAR 5 DIGITOS

MARCELOFAZAN 09/09/2010 21:46:58
#352565
como validar , ou mesmo preencher os 0000 a esquerda

exemplo digitar 5 transformar para 00005 um campo digitado no text1

Obrigado
Marcelo Fazan
GERARDA 09/09/2010 23:00:00
#352570
usa o format no lostfocus do text1


Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, [Ô]00000[Ô])
End Sub
VBSHAR 10/09/2010 08:26:31
#352585 Resposta escolhida
Bom dia


eu uso assim:

  

Function FZeros(Texto As String, NumZeros As Integer) As String
    [ô]NumZeros --> DEFINE O NUMERO DE ZEROS A ESQUERDA
    FZeros = Right(String(NumZeros, [Ô]0[Ô]) & Texto, NumZeros)
End Function
[ô]NO LOSTFOCUS DO CAMPO VOCE COLOCA ASSIM
Private Sub Text1_LostFocus()
    Text1.Text = FZeros(Text1.Text, 5)
End Sub
WILLVIDAL 10/09/2010 09:04:17
#352589
dim n as string
n = 5
n= format(n,[Ô]0000#[Ô])
msgbox n
MARCELOFAZAN 10/09/2010 10:15:31
#352594
Olá Gerarda, Will e Vbshar

fiz uma modificada pq ja tinha uma validacao pronta no valid e como age antes do lost focus entao fiz a seguinte alteracao passando para o valid


Private Sub Text6_Validate(Cancel As Boolean)
Text6.Text = FZeros(Text6.Text, 5)
If Text6.Text = [Ô]00000[Ô] Then [ô]Se estiver em branco
MsgBox [Ô]Informe o Código Corretamente!!![Ô], vbInformation, [Ô]Código[Ô]
Text6.SetFocus
Cancel = True
End If
End Sub

Vlw Galera

Abraços
Tópico encerrado , respostas não são mais permitidas
Voltar