Microsoft Accessで、タイマーを指定して「●時間」後、処理をに実行します

タスクスケジューラを使用せず
Microsoft Accessで、タイマーを指定して「●時間」後
処理をに実行します。
休日等に、実行ボタンを押したい場合、下記のコードを使用して
「１２時間後」等で指定して、実行します。

実行方法
ScheduleTaskをcallして実行してください。
●●●の部分にcallしたい、モジュール名を入力して下さい。

Dim executeTime As Date

Public Sub ScheduleTask()
    ' ユーザーに何時間後に実行するか尋ねる
    Dim hoursLater As Double
    hoursLater = InputBox("何時間後に実行しますか？", "スケジュール設定")

    ' 実行時刻を計算
    executeTime = Now + TimeValue(hoursLater & ":00:00")

    ' タイマーを設定（ここでは1分ごとにチェックする例）
    Me.TimerInterval = 60000  ' 1分 = 60,000ミリ秒
End Sub

Private Sub Form_Timer()
    ' 現在時刻が実行時刻を過ぎているかチェック
    If Now >= executeTime Then


        ' 実行したい処理を記述

        Call ●●●


        ' タイマーを停止
        Me.TimerInterval = 0
    End If
End Sub