Problemas con código en cuenta regresiva
Publicado por el_trasgu (6 intervenciones) el 28/01/2014 23:25:14
Hola a todos, tengo el siguiente código, lo busqué por google.
He probado también, cambiando Reloj por Contador.
El caso, es que me aparece el 20. Se cierra el formulario a los 20 segundos, pero no se muestra la cuenta atrás, que sería o que me gustaría que se viera
Alguien me puede dar la solución ?
Muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Me.Reloj = 20
End Sub
Private Sub Form_Timer()
Me.Reloj = Me.Reloj - 1
If Me.Reloj = 0 Then
DoCmd.Close acForm, Me.Name
' DoCmd.OpenForm "nuevo"
End If
DoCmd.Close acForm, Me.Name
End Sub
He probado también, cambiando Reloj por Contador.
El caso, es que me aparece el 20. Se cierra el formulario a los 20 segundos, pero no se muestra la cuenta atrás, que sería o que me gustaría que se viera
Alguien me puede dar la solución ?
Muchas gracias
Valora esta pregunta
0
