Hoy os traigo un código para usar un temporizador en un formulario de Microsoft Access. Algo muy útil si queremos darle un acabado profesional a nuestro programa.
Para ello, he creado un sencillo ejemplo con dos formularios; uno principal, que se abre al iniciar el programa, y otro que muestra un aviso cuando cerramos el primero.
Pero antes de continuar, os dejo el código que hay que implementar en el botón Cerrar,
Private Sub Comando1_Click()
'Al pulsar el botón Cerrar, abrimos el formulario Aviso
DoCmd.OpenForm "Aviso"
Dim tiempoInicio As Double
tiempoInicio = Timer
'Esperamos 5 segundos
Do While Timer < tiempoInicio + 5
DoEvents
Loop
'Cerramos ambos formularios
DoCmd.Close acForm, "Aviso"
DoCmd.Close acForm, "Principal"
End Sub
En el ejemplo, si pulsamos el botón Cerrar, vemos cómo se abre el formulario aviso, pidiéndonos que esperemos 5 segundos.
Y, transcurridos los 5 segundos, ambos formularios se cierran.
Espero que con este ejemplo hayas aprendido a usar un temporizador en un formulario de Microsoft Access. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios