Option Compare Database
Option Explicit

Private Declare Function SetTimer Lib "user32" (ByVal Hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal Hwnd As Long, ByVal nIDEvent As Long) As Long
Private Const Interval& = 1000

Public Function StartDo()
     TimerProc 0, 0, 0, 0
End Function

Public Function EndDo()
     KillTimer Access.Application.hWndAccessApp, 0
End Function

Private Sub TimerProc(ByVal Hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    On Error GoTo 1
    KillTimer Access.Application.hWndAccessApp, 0
    SetTimer Access.Application.hWndAccessApp, 0, Interval, AddressOf TimerProc
    Call process_files
    Exit Sub
1:
    Debug.Print Err.Number, Err.Description
    EndDo
End Sub