Ejecutar un Query periodicamente (Access)

[asterisco]

Private Sub Proceso_Click()
'Author: AsterizKo
'Obs.: Solo debes cabecearte en como solucionar el problema
'que vas a tener cuando sean las 11 de la noche y el reloj pase a 0
'yo lo habría hecho pero me dio sueño Zzzzz Saludos desde Chile.
' Ah! esto lo debes poner en el evento Al Hacer Click de un Boton que se llame Proceso.


Dim Hora_Ini As Double
Dim Hora_Fin As Double
Dim Path As Variant
Dim Base As Database

Path = CurrentDb.Name 'rescata la ruta de tu base de datos.
Set Base = DBEngine.Workspaces(0).OpenDatabase(Path, False, False)

Hora_Ini = Hour(Time)
Hora_Fin = Hora_Ini + 2 'Puedes variar el intervalo.

Do While Hora_Ini = Hora_Fin 'Ojo esto te deja en un Loop Infinito debes romperlo con Ctrl+Pause

Do While Hora_Ini <= Hora_Fin
Hora_Ini = Hour(Time)
Loop

Base.Execute "SELECT tus campos" _
& " FROM tu tabla" _
& " Where condiciones;"

Hora_Ini = Hour(Time)
Hora_Fin = Hora_Ini + 2 'Si cambias el ntervalo arriba acá también debes hacerlo.

Loop

End Sub