Funciona si digito, no lo hace con macro o código
Publicado por Rafi (71 intervenciones) el 21/02/2017 08:02:53
Hola y muchas gracias de nuevo al foro. Este código que os pongo abajo funciona perfectamente, pero curiosamente cuando llega la hora de cerrar la base de datos no lo hace. Si que lo hace si digito a mano la hora. Algo está mal y seguramente se deberá al formato de fechas que es un galimatías. ¿Podéis decirme que falla?
Bueno lo que hago es comparar dos textbox y cuando coinciden sus horas cierra la base de datos usando el evento al Cronómetro.
Bueno lo que hago es comparar dos textbox y cuando coinciden sus horas cierra la base de datos usando el evento al Cronómetro.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TxtContraseña_LostFocus()
If Not IsNull(txt_hora) Then
If Format(txt_hora, "HH:mm:ss") >= Format(#7:00:00 AM#, "HH:mm:ss") And Format(txt_hora, "HH:mm:ss") <= Format(#3:00:00 PM#, "HH:mm:ss") Then
Me.txt_apagar = Format("03:05:00", "hh:mm:ss PM")
ElseIf Format(txt_hora, "HH:mm:ss") >= Format(#3:00:00 PM#, "HH:mm:ss") And Format(txt_hora, "HH:mm:ss") <= Format(#11:00:00 PM#, "HH:mm:ss") Then
Me.txt_apagar = Format("22:45:00", "hh:mm:ss PM")
Else
'Lo dejo sin nada y me da las horas restantes
(Me.Horas, "HH:mm:ss") <= Format(#7:00:00 PM#, "HH:mm:ss") Then
Me.txt_apagar = Format("07:05:00", "hh:mm:ss AM")
End If
Else
End If
End Sub
Valora esta pregunta


0