Galera, Boa Noite
Preciso de uma ideia, quando salvo uma data de textbox, ocorre um problema de inversão, porém, só com datas antigas. Por exemplo, hoje é dia 14/05, todas a data superiores a de hoje, não vão inverter, porém, se eu coloco dia 13/05, essa data já inverte, já virão algo assim?
Agradeço pela ajuda
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Data invertida textbox (Resolvido)
Data invertida textbox (Resolvido)
Editado pela última vez por adhuters em Qua Mai 23, 2018 7:46 pm, em um total de 1 vez.
- robson.kaypper
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Abr 16, 2018 11:41 am
Re: Data invertida textbox
@adhuters bom dia.
Veja se isso te serve:
Textbox1 = Format(Textbox1.Value, "##/##/####")
Veja se isso te serve:
Textbox1 = Format(Textbox1.Value, "##/##/####")
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qui Fev 21, 2019 1:59 pm
Re: Data invertida textbox
Boa tarde, não estou conseguindo mesmo usando os esclarecimentos acima. Tenho a TextBox abaixo, e continua invertendo, teriam como corrigir para me ajudar.
Att.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.TextBox1.Text) = False And Me.TextBox1.Text <> Empty Then
MsgBox ("A Data Digitada não é Válida")
Me.TextBox1.SetFocus
End If
End Sub
Att.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.TextBox1.Text) = False And Me.TextBox1.Text <> Empty Then
MsgBox ("A Data Digitada não é Válida")
Me.TextBox1.SetFocus
End If
End Sub
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Data invertida textbox (Resolvido)
A rotina existente em "Private Sub TextBox1_Exit" apenas verifica se e uma data valida.
Sugiro que abra seu proprio tópico disponibiliando seu modelo para uma melhor avaliação
Sugiro que abra seu proprio tópico disponibiliando seu modelo para uma melhor avaliação