Private Sub Form_Timer()

Dim xlog As Boolean
Dim MyTimeBegin
Dim MyTimeEnd
MyTimeBegin = TimeSerial(12, 1, 0)
MyTimeEnd = TimeSerial(12, 2, 0)

Dim MyTimeBegin2
Dim MyTimeEnd2
MyTimeBegin2 = TimeSerial(12, 3, 0)
MyTimeEnd2 = TimeSerial(12, 4, 0)

xlog = DLookup("XXX", "tbl_Timer", "ID = 1")

If xlog = False And Time >= MyTimeBegin And Time < MyTimeEnd Then

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Timer SET tbl_Timer.XXX = True WHERE tbl_Timer.ID=1;"
    DoCmd.SetWarnings True
    

    Call CreateMsgInOutlook_everyday(True)

End If


If xlog = True And Time >= MyTimeBegin2 And Time < MyTimeEnd2 Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Timer SET tbl_Timer.XXX = False WHERE tbl_Timer.ID=1;"
    DoCmd.SetWarnings True
End If
End Sub

If Time >= MyTimeBegin And Time < MyTimeEnd Then
    
    Dim PauseTime, Start
    PauseTime = Rnd(1) * 5 ' Задает длительность паузы
    Start = Timer   ' Задает начало паузы.
    Do While Timer < Start + PauseTime
        DoEvents    
    Loop
    
End If