Como poner una cuenta atrás en access
Y todas. Mi pregunta es la siguiente.
Tengo una aplicación en Access y quisiera poner a la vista del usuario una cuenta atrás de forma que cuando esa cuenta llegue a 0 se cierre ese formulario y abra el siguiente formulario así de esta forma el usuario sabrá el tiempo restante para completar las preguntas y una vez finalizado el tiempo se abra automáticamente otro formulario cerrando el actual pero siempre el tiempo a la vista. Por ejemplo 10, 9, 8, ..., 1, 0.
Tengo una aplicación en Access y quisiera poner a la vista del usuario una cuenta atrás de forma que cuando esa cuenta llegue a 0 se cierre ese formulario y abra el siguiente formulario así de esta forma el usuario sabrá el tiempo restante para completar las preguntas y una vez finalizado el tiempo se abra automáticamente otro formulario cerrando el actual pero siempre el tiempo a la vista. Por ejemplo 10, 9, 8, ..., 1, 0.
1 Respuesta
Respuesta de Ulises Torres
1
Muchas gracias por tu ayuda. La he probado y funciona a la perfección.
Ademas he usado este código por si alguien lo necesita:
Option Compare Database
Dim TiempoRestante As Date
Dim Horafinal As Date
Dim Horainicio As Date
Option Explicit
Private Sub Form_Load()
Etiqueta8.Caption = "00 : 00 : 00" 'Numero de segundos, minutos, horas
DoCmd.Restore
Horainicio = Time
'El numero indica los minutos desde los que comenzará
'la cuenta atrás (60 min. = 1 hora)
Horafinal = DateAdd("n", 1, Now)
TimerInterval = 1000
End Sub
Private Sub Form_Timer()
TiempoRestante = Horafinal - Time
Etiqueta8.Caption = Format(TiempoRestante, "nn")
If Etiqueta8.Caption = "00" Then
DoCmd.Close
DoCmd.OpenForm "Nombredelformulario"
End If
End Sub
Ademas he usado este código por si alguien lo necesita:
Option Compare Database
Dim TiempoRestante As Date
Dim Horafinal As Date
Dim Horainicio As Date
Option Explicit
Private Sub Form_Load()
Etiqueta8.Caption = "00 : 00 : 00" 'Numero de segundos, minutos, horas
DoCmd.Restore
Horainicio = Time
'El numero indica los minutos desde los que comenzará
'la cuenta atrás (60 min. = 1 hora)
Horafinal = DateAdd("n", 1, Now)
TimerInterval = 1000
End Sub
Private Sub Form_Timer()
TiempoRestante = Horafinal - Time
Etiqueta8.Caption = Format(TiempoRestante, "nn")
If Etiqueta8.Caption = "00" Then
DoCmd.Close
DoCmd.OpenForm "Nombredelformulario"
End If
End Sub
Bien que te quedo el código.
