Проблема с формированием отчета

[Swatch]

Доброе время суток!!! Подскажите пожалуйста, как можно решить следующую проблему с формированием отчета.
У меня в основной форме есть подчиненная, которая содержит большой обьем записей, источник- таблица. Я по кнопке формирую отчет, где выводятся только те записи, у которых в подчиненной форме проставлен флажок в поле "отметка". Их я пишу в другую таблицу, которая и служит источником данных для отчета. Проблема в том, что когда я запускаю формирование отчета в первый раз, все работает. Но если закрыть его и в форме отметить другие записи, то отчет выйдет уже пустым. Пробовала и refresh, и requery, и repaint. Но может быть не там ставила эти команды?
Private Sub Prosmotr_Click()
Dim spdet, rstDet As Recordset
Me.КР_СписокДеталей.Form.Requery
Set spdet = Me.КР_СписокДеталей.Form.RecordsetC lone
DoCmd.RunSQL "delete * from КР_Детали"
Set dbs = CurrentDb
Set rstDet = dbs.OpenRecordset("КР_Детали")
Do Until spdet.EOF
If spdet!Отметка = True Then
rstDet.AddNew
rstDet!IDKR = Me!NomKR
rstDet!PutDet = spdet!Путь
rstDet!ObozDet = spdet!Обозначение
rstDet!NaimDet = spdet!Наименование
rstDet!Marshrut = spdet!Маршрут
rstDet!NormaNTD = spdet!НормаНТД
rstDet!Kolvo = spdet!Колво
rstDet.Update
End If
spdet.MoveNext
Loop
rstDet.Close
DoCmd.OpenReport "КР_КартаРазрешенияТМЦ", acViewPreview
End Sub

[Teslenko_EA]

Здравствуйте Swatch.
не вникая в конструкцию, мне кажется если в код добавить

Set dbs = CurrentDb
Set rstDet = dbs.OpenRecordset("КР_Детали")

me.Recordset.MoveFirst
 rstDet.MoveFirst

отчёт не будет "выходить пустым"

И ещё, конструкция выглядела бы значительно лучше если бы заполнялась таблица "КР_Детали" не перебором рекордсета, а выполнением одной строки SQL конструкции.

Евгений.