UPDATE Предикторы_локал 
 INNER JOIN Предиктор_резервирование_фильтр 
 ON Предикторы_локал.Код = Предиктор_резервирование_фильтр.Код 
SET Предикторы_локал.Зарезервировал = [TempVars]![Телемаркетолог], 
 Предикторы_локал.[Дата резервации] = Date()+Time();

SELECT TOP 1 Предиктор_резервирование_выборка.*
FROM Предиктор_резервирование_выборка;

SELECT Предикторы_локал.Код
FROM (Предикторы_локал 
 LEFT JOIN Предикторы_звонки_локал ON Предикторы_локал.Код = Предикторы_звонки_локал.Предиктор) 
  LEFT JOIN (Предикторы_отложенные_локал
   LEFT JOIN Сессии_активные ON Предикторы_отложенные_локал.Сотрудник = Сессии_активные.Сотрудник)  
 ON Предикторы_локал.Код = Предикторы_отложенные_локал.Предиктор
WHERE 
(
 ((Предикторы_отложенные_локал.Код_локал) Is Null) 
 AND ((Предикторы_звонки_локал.Код) Is Null) 
 AND ((Предикторы_локал.[Дата резервации])<DateAdd("n",-30,Date()+Time()) 
  Or (Предикторы_локал.[Дата резервации]) Is Null) 
 AND ((Предикторы_локал.Экспорт)=False)
) 
OR 
(
 ((Предикторы_локал.[Дата резервации])<DateAdd("n",-5,Date()+Time()) 
  Or (Предикторы_локал.[Дата резервации]) Is Null) 
 AND ((Предикторы_локал.Экспорт)=False) 
 AND ((Предикторы_отложенные_локал.[Отложенаня дата])<(Date()+Time())) 
 AND ((Предикторы_отложенные_локал.Сотрудник)=[TempVars]![Телемаркетолог]) 
 AND ((Предикторы_отложенные_локал.Звонок_рез_локал) Is Null)
) 
OR 
(
 ((Предикторы_локал.[Дата резервации])<DateAdd("n",-5,Date()+Time()) 
  Or (Предикторы_локал.[Дата резервации]) Is Null) 
 AND ((Предикторы_локал.Экспорт)=False) 
 AND ((Предикторы_отложенные_локал.[Отложенаня дата])<(Date()+Time())) 
 AND ((Предикторы_отложенные_локал.Звонок_рез_локал) Is Null) 
 AND ((Сессии_активные.Код) Is Null)
)
ORDER BY 
 Предикторы_отложенные_локал.Код_локал DESC , 
 [Предикторы_локал]![Речевой модуль]=[TempVars]![РМ], 
 Предикторы_локал.Приоритет, Предикторы_локал.[Срок отработки], 
 Предикторы_локал.Код;

((Предикторы_локал.[Дата резервации])<DateAdd("n",-5,Date()+Time()) 
  Or (Предикторы_локал.[Дата резервации]) Is Null)

DBEngine.Idle dbRefreshCache

ws.CommitTrans dbForceOSFlush

Set rs = db.OpenRecordset(TableName, dbOpenTable, dbDenyRead Or dbDenyWrite)

DBEngine.SetOption dbLockDelay, 90 + Rnd * 60