Validar fecha

Cordial Saludo
Quisiera preguntarle si este el código para validar que sea texto y no numérico COMO HAGO PARA VALIDAR FECHAS.
Gracias por su amable respuesta y colaboración.
Private Sub TextBox2_Change()
'no numérico
If IsNumeric(TextBox2.Text) And _
TextBox2.Text <> "" Then
MsgBox "Este Campo es solo texto"
TextBox2.Text = ""
TextBox2.SetFocus
End If
End Sub

1 respuesta

Respuesta
1
Introducí estos ajustes:
Private Sub TextBox2_AfterUpdate()
If Not IsDate(TextBox2.Text) Then
MsgBox "Este Campo debe ser fecha"
TextBox2.Text = ""
TextBox2.SetFocus
End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas