Расписание могу генерировать по 15 минут, могу по 30 минут. Но если уже есть назначение с началом, кратным не получасу, а 15 минутам - то генерировать по 30 минут нельзя - будут упущения... Как проверить на кратность - туплю что-то...

Set rst1 = CurrentDb.OpenRecordset("Select * from Shed_doc where Дата = " & Format(Me.Дата, "mm-dd-yyyy") & " ", DAO.dbOpenDynaset)

With rst1
Do Until .EOF
If Format(rst1!ВремяНачало, "hh:mm") / #12:15:00 AM# = 2 Or 4 Or 6 Or 6 Then MsgBox ("15 min"): Exit Do
If Format(rst1!ВремяНачало, "mm") = #12:30:00 AM# Then MsgBox ("15 min"): Exit Do
If Format(rst1!ВремяКонец, "mm") = #12:15:00 AM# Then MsgBox ("15 min"): Exit Do
If Format(rst1!ВремяКонец, "mm") = #12:45:00 AM# Then MsgBox ("15 min"): Exit Do
.MoveNext
Loop
.Close
End With
Set rst1 = Nothing

http://www.sql.ru/forum/1084781/kratnost-vremeni-nachala-ili-dlitelnosti-intervalu