Question

我有一个附加查询，该查询在父表单上按钮的on click事件上运行。

仅当子表单中的文本字段满足特定条件时，查询才会追加当前记录。除了仅在第一个子表单记录上评估条件以外，该查询似乎按预期的方式运行。

如果符合条件，我如何获得标准来搜索所有当前子表单记录并追加记录？

-父母表格：Primary_frm -子表格：Review_sfrm -正在评估的字段：Review_sfrm.Desc -表格附加到：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

根据具有多个记录的子表单中的值追加父表单记录

1 个答案: