access vbaのタイマー処理が不安定

###前提・実現したいこと
特定のフォルダを監視し、ファイルの存在を調べ、ファイルがあれば処理をする仕組みを作成しています。
###発生している問題・エラーメッセージ
フォームのタイマーイベントを利用し、監視フォルダにファイルがあれば処理を開始し、処理が終了すると次の監視フォルダを確認するようにしていますが、不定期にタイマーイベントが発生していない事があります。フォームをクリックする事ですぐに監視が始まります。

エラーメッセージ
エラーメッセージは表示されていないようです。

###該当のソースコード

access vba
Private Sub Form_Timer()
     Dim a As String
     Dim b As String
     Dim c As String
     Dim d As String
     Dim e As String
     Dim f As String
     Dim g As String
    'faフォルダをかくにん
    a = Dir(監視パス & "fa\*.*", vbNormal)
    If a <> "" Then
        Me.TimerInterval = 0
        Call file_syori("1")
        Me.TimerInterval = 30000
    End If
  'fｂフォルダをかくにん
    b = Dir(監視パス & "fb\*.*", vbNormal)
    If b <> "" Then
    Me.TimerInterval = 0
        Call file_syori("2")
        Me.TimerInterval = 30000
    End If
    ～以降"g"まで続きます。

###試したこと
バッチファイルでaccessの最大化、最小化を１時間おきに
スクリーンセーバーをオフ、スリープもオフ
別の端末に変更
フォームをクリックするだけで処理が開始されるので、デバック画面やエラーが出なく、発生の規則性見いだせずにいます。
何か情報ありましたらお願いします。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報