TextBox con formato hora

05/06/2008 - 03:31 por Manuel | Informe spam
Tengo este textBox de hora (time) pero necesito que si se intoduce la
hora inadecuadamente, no se vaya de este campo, hasta tanto no se
arregle. ¿Qué debo hacer?

Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "One hour incorrect has entered. Please, the same rejoins.",
vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
Exit Sub
End If
End Sub

Otra pregunta: ¿Cómo poner los formatos de hora que deseo?
 

Leer las respuestas

#1 Héctor Miguel
05/06/2008 - 03:54 | Informe spam
hola, Manuel !

1) agrega una instruccion ANTES del "Exit Sub" con solo la siguiente linea:
Cancel = True

2) y... los formatos de hora que deseas son... (cuales ?)
(y en donde los necesitas "poner" ?)

saludos,
hector.

__ 1 __
Tengo este textBox de hora (time) pero necesito que si se intoduce la hora inadecuadamente
no se vaya de este campo, hasta tanto no se arregle. Que debo hacer?

Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "One hour incorrect has entered. Please, the same rejoins.", vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
Exit Sub
End If
End Sub



__ 2 __
Otra pregunta: Como poner los formatos de hora que deseo?

Preguntas similares