コンパイルエラーVBAアクセス

Question

Option Compare Database 

Sub RunTest() 
    Call autoexec 
End Sub 


Function autoexec() 
On Error GoTo autoexec_Err 
    DoCmd.SetWarnings False 
    DoCmd.OpenQuery "delete alerttest", acViewNormal, acEdit 
    DoCmd.OpenQuery "alerttestquery", acViewNormal, acEdit 
    DoCmd.OpenQuery "alerttestdatequery", acViewNormal, acEdit 
    DoCmd.OpenQuery "namequery", acViewNormal, acEdit 
    DoCmd.OpenQuery "timediffquery", acViewNormal, acEdit 
    DoCmd.OpenTable "alerttest", acViewNormal, acEdit 
autoexec_Exit: 
    Exit Function 

autoexec_Err: 
    MsgBox Error$ 
    Resume autoexec_Exit 

    Application.OnTime Now + TimeValue("00:00:10"), "RunTest" 

End Function 

私は理由を尋ねることができますApplication.OnTimeにコンパイルエラーを取得しますか？

Answer 1

Application.OnTimeはExcel VBAのみに存在するため、

フォームをOnTimerイベントに設定する場合は、TimerIntervalプロパティを10000 msに設定する必要があります。

フォームは必要に応じて非表示にすることができます。