Que no se salga del campo hasta que sea válido
Publicado por El_Mayk (8 intervenciones) el 09/10/2006 23:26:31
Que tal!
Espero puedan ayudarme.
Tengo un campo en un formulario el cual no debe ser mayor a otro y requiere de su validación en tiempo de ejecución.
Se trata de un registro de actividades que tiene fecha de apertura del registro y fecha de cierre.
Donde por supuesto la fecha de cierre no debe ser mayor a la fecha de apertura de dicho registro.
Tengo el siguiente código:
Private Sub fecha_cierre_LostFocus()
If (fecha_cierre.Value <> "") Then
If (fecha_cierre.Value < fecha_apertura.Value) Then
MsgBox ("La fecha de cierre deber ser mayor o igual a la de apertura")
fecha_cierre.SetFocus
End If
End If
End Sub
La pregunta es ¿Cómo hago para que no se salga del campo (fecha cierre) hasta que ponga un valor mayor o igual a la fecha de apertura, o bien, que deje el campo en blanco?
Ya que así como está, si se sale del campo y parece que el SetFocus no funciona.
De antemano muchas gracias por la ayuda.
Espero puedan ayudarme.
Tengo un campo en un formulario el cual no debe ser mayor a otro y requiere de su validación en tiempo de ejecución.
Se trata de un registro de actividades que tiene fecha de apertura del registro y fecha de cierre.
Donde por supuesto la fecha de cierre no debe ser mayor a la fecha de apertura de dicho registro.
Tengo el siguiente código:
Private Sub fecha_cierre_LostFocus()
If (fecha_cierre.Value <> "") Then
If (fecha_cierre.Value < fecha_apertura.Value) Then
MsgBox ("La fecha de cierre deber ser mayor o igual a la de apertura")
fecha_cierre.SetFocus
End If
End If
End Sub
La pregunta es ¿Cómo hago para que no se salga del campo (fecha cierre) hasta que ponga un valor mayor o igual a la fecha de apertura, o bien, que deje el campo en blanco?
Ya que así como está, si se sale del campo y parece que el SetFocus no funciona.
De antemano muchas gracias por la ayuda.
Valora esta pregunta
0