Validar textbox
Hola experto un saludo. Quisiera saber como hago para validar un textbox para que solo acepte datos tipo fecha(2004/5/21).
Gracias por tu atención, espero tu pronta respuesta.
Gracias por tu atención, espero tu pronta respuesta.
1 respuesta
Respuesta de tavopz
1
Debe ser porque tienes el TextBox sobre un formulario, en ese caso, puedes usar el evento "TextBox1_AfterUpdate", así:
Private Sub TextBox1_AfterUpdate()
x1 = Mid(TextBox1.Text, 5, 1)
x2 = Mid(TextBox1.Text, 8, 1)
If x1 <> "/" Or x2 <> "/" Then
MsgBox ("Error de formato: aaaa/mm/dd")
TextBox1.SetFocus
End If
End Sub
Private Sub TextBox1_AfterUpdate()
x1 = Mid(TextBox1.Text, 5, 1)
x2 = Mid(TextBox1.Text, 8, 1)
If x1 <> "/" Or x2 <> "/" Then
MsgBox ("Error de formato: aaaa/mm/dd")
TextBox1.SetFocus
End If
End Sub
Mil gracias por tu ayuda
Esto se puede hacer, pero mediante código, ya que este tipo de objetos no tienen la opción de establecer máscaras que faciliten la asignación de formatos.
Para el formato de fecha que dices "aaaa/mm/dd" podrías usar un código como el siguiente en el evento LostFocus del objeto TextBox:
==========
Private Sub TextBox1_LostFocus()
x1 = Mid(TextBox1.Text, 5, 1)
x2 = Mid(TextBox1.Text, 8, 1)
If x1 <> "/" Or x2 <> "/" Then
MsgBox ("Error de formato: aaaa/mm/dd")
TextBox1.Activate
End If
End Sub
========
Este código no dejaría continuar hasta que no se ajuste el formato de la fecha.
Para el formato de fecha que dices "aaaa/mm/dd" podrías usar un código como el siguiente en el evento LostFocus del objeto TextBox:
==========
Private Sub TextBox1_LostFocus()
x1 = Mid(TextBox1.Text, 5, 1)
x2 = Mid(TextBox1.Text, 8, 1)
If x1 <> "/" Or x2 <> "/" Then
MsgBox ("Error de formato: aaaa/mm/dd")
TextBox1.Activate
End If
End Sub
========
Este código no dejaría continuar hasta que no se ajuste el formato de la fecha.
