Здравствуйте. Есть 2таблицы в БД на аксесс:
1)ЕждеОтчет(НомерОтчета -счетчик, ключевое; ТабНомер - целое; ЧасовВОтчете - число)
2)ЕжТрудозатрата(Код-счетчик,ключевое;Назначение - число; ВремяНаДокумент - одинарное с плавающей точкой,Дата - дата, Отчет - число, внешний ключ из таблицы Ежедотчет).
Решаю такую задачу: надо удалить все записи из первой таблицы(ЕжедОтчет), у которых нет подчиненных записей в таблице "ЕжТрудозатрата". Пытался сделать так:

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT ЕжедОтчет.НомерОтчета, ЕжедОтчет.ТабНомер" _
& " FROM ЕжедОтчет LEFT JOIN ЕжТрудозатрата ON ЕжедОтчет.НомерОтчета = ЕжТрудозатрата.Отчет" _
& " WHERE (((ЕжТрудозатрата.Отчет) Is Null))")
CurrentDb.Execute ("Delete * From ЕжедОтчет Where НомерОтчета=" & rst.Fields(0))

Сделал этот код в нажатии на кнопку на форме. ничего не происходит...в чем ошибка? В отладчике проверял переменную rst - пишет rst=Nothing.Запрос - рабочий, я делал его в конструкторе запросов, запускал -все работало и код этого запроса написал в рекордсет rst

http://www.sql.ru/forum/1091249/udalenie-iz-tablicy-zapisey-ne-imeushhih-podchinennyh-v-drugoy-tablice