I have used this in Excel. Excel must be active for this
to work. That is, this lives in an Excel macro that must
be active. Maybe it will work in Access.
Const timeToRun= "02:00:01" 'Time this will run each day
Dim runWhen As Double
runWhen = TimeValue(timeToRun)'When the processing sub
will run
' Each call to this only schedules the procedure once, so
need to call repeatedly
Sub StartTimer()
Application.OnTime earliesttime:=runWhen,
procedure:="processFiles" 'the sub that you want to run
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=runWhen,
procedure:="processFiles", Schedule:=False
End Sub