Добавление родительской формы Запись на основе значения в подчиненной форме с несколькими записями

Question

У меня есть запрос на добавление, который запускается при событии нажатия кнопки родительской формы.

Запрос добавляет текущую запись только в том случае, если текстовое поле в форме формы соответствует определенным критериям.Похоже, что запрос работает так, как задумано, за исключением того, что критерии оцениваются только в первой записи формы.

Как получить критерии для поиска во всех текущих записях формы и добавления записи, если критерии выполнены?

-Полная форма: Primary_frm -Sub Форма: Review_sfrm -Поля оценивается: Review_sfrm.Desc -Table добавляется к: Editied_records_tbl

Запрос ниже (имена таблиц и полей были изменены):

 INSERT INTO Edited_records_tbl
    SELECT Record_number 
    FROM Records_tbl
    WHERE ID =Forms!Primary_frm!Review_sfrm.Form.ID and Forms!Primary_frm!Review_sfrm.Form.Desc = "xxxx";

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

Answer 1

В Access элементы управления подчиненной формы генерируются только для одной записи за раз.Это означает, что вам нужно перебрать подчиненную форму, чтобы добавить все записи.

Вы можете использовать следующий код из главной формы.

Dim rs As DAO.Recordset
With Me.Review_sfrm.Form
   DoCmd.SetWarnings False
   Set rs = .RecordsetClone 'Get underlying subform records
   rs.MoveFirst 'Start at first record
   Do Until rs.EOF 'Until last record
       .Bookmark = rs.Bookmark 'Navigate to current record
       DoCmd.OpenQuery "MyQuery"
       rs.MoveNext 'Next record
    Loop
End With
DoCmd.SetWarnings True