Тайм-аут на Recordset со связанными столами

Question

Dim rt As DAO.Recordset 

strSQL = "SELECT DISTINCT A.OBJ FROM " 
strSQL = strSQL & "(SELECT VARBL AS OBJ FROM AGR_1252 WHERE AGR_NAME = '" _ 
    & AGR & "') A LEFT JOIN " 
strSQL = strSQL _ 
    & "(SELECT DISTINCT CONF_USOBT_C_ORG.ORG_OBJECT AS OBJ FROM Role_Content, CONF_USOBT_C_ORG " 
strSQL = strSQL & "WHERE Role_Content.AGR_NAME = '" _ 
    & AGR & "' AND Role_Content.TCode = [CONF_USOBT_C_ORG].[Name] AND Role_Content.TCode <> '" & tc & "') B " 
strSQL = strSQL & "ON A.OBJ = B.OBJ WHERE B.OBJ Is Null" 

Set rt = CurrentDb.OpenRecordset(strSQL) 

    Do While Not rt.EOF 

     DoCmd.RunSQL "DELETE FROM AGR_1252 WHERE AGR_NAME = '" & AGR & "' AND VARBL = '" & rt("OBJ") & "'" ', False 

rt.MoveNext 

    Loop 

rt.Close 
Set rt = Nothing 

У меня есть код, указанный выше. Я не знаю, почему, но это дает мне ошибку во время цикла while. Я не знаю, если это из-за Recordset, но таблица блокируется после того, как он выберет firts Delete.

Существует другой способ выбора записей без использования RecordSet?

Заранее спасибо.

Answer 1

Я думаю, что вы можете искать что-то на линии:

DELETE FROM AGR_1252 
WHERE AGR_NAME = Agr 
AND Varbl Not In (
    SELECT c.ORG_OBJECT 
    FROM Role_Content r 
    INNER JOIN CONF_USOBT_C_ORG c 
    ON r.TCode =c.[Name] 
    WHERE r.AGR_NAME Is Null)