Ошибка 3021

[Arega]

У меня две таблицы - «sh» и «h» . В обе таблицах есть поле h_kod. Нужно удалить те записи из таблицы «h» , значения поля h_kod которых не имеется в таблице «sh». Я написала код, но при запуске дает ошибку 3021.

Подскажите пожалуйста в чем ошибка.

Set rstDao_sh = CurrentDb.OpenRecordset("sh")
Set rstDao_h = CurrentDb.OpenRecordset("h")
Do Until rstDao_h.EOF
rstDao_sh.MoveFirst
Do Until ((rstDao_sh.EOF) And (rstDao_h.Fields("h_kod").Value <> rstDao_sh.Fields("h_kod").Value))
rstDao_sh.MoveNext
Loop
If rstDao_sh.EOF Then
rstDao_h.Delete
rstDao_h.MovePrev
End If
rstDao_h.MoveNext
Loop
rstDao_sh.close
rstDao_h.close
Set rstDao_sh = Nothing
Set rstDao_h = Nothing

[Arega]

Set rstDao_sh = CurrentDb.OpenRecordset("sh")
Set rstDao_h = CurrentDb.OpenRecordset("h")

Dim test As Boolean

Do Until rstDao_h.EOF

rstDao_sh.MoveFirst
test = True

Do Until rstDao_sh.EOF Or test = False

If rstDao_sh!h_kod = rstDao_h!h_kod Then
test = False
End If

rstDao_sh.MoveNext

Loop

If test = True Then
rstDao_h.Delete
End If

rstDao_h.MoveNext

Loop

rstDao_sh.Close
rstDao_h.Close

Set rstDao_h = Nothing
Set rstDao_sh = Nothing

[Teslenko_EA]

Здравствуйте Arega.
если Ваша задача состоит именно в "кодописании" то возможно и оправдано выполнение подобных упражнений.
Хотя для удобочитаемости выкладываемый код необходимо заключайте в тэги [соde] ... [/соde]
(для этого на панели инструментов и расположена кнопка - #)
допускаю, Вы впервые на форуме и могли этого не знать, но занятие "много-строчным кодингом" и разбор
его ошибок, если задача решается одной строкой, считаю не только неправильным, но и бесполезным занятием.
Но это только моё мнение, Ваше право поступать как считаете нужным, а конструкция может быть такой:

CurrentDb.Execute("DELETE FROM h WHERE h_kod NOT IN(SELECT h_kod FROM sh)")

Успехов Вам.
Евгений.

[Arega]

Надо же... всего одна строка... и результат такой же...

Спасибо за помощь, Евгений

Вы правы, я впервые на форуме... Спасибо за советы, буду учесть их !