Коллеги, добрый день!
Подскажите пожалуйста, как в многопользовательском режиме реализовать отправку письма только 1 раз (от любого пользователя)
Столкнулся с тем, что письмо было отправлено 2 раза, т.е. дважды (одновременно) отработала процедура CreateMsgInOutlook_everyday
На постоянно открытой форме (таймер = 30 секунд) сделал вот такую проц-ру:

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

Буду благодарен за любую помощь!

http://www.sql.ru/forum/1229089/kak-v-mnogopolzovatelskom-rezhime-realizovat-otpravku-pisma-tolko-1-raz