打印子表单结果

Question

我在创建用于在 Access 中打印子表单记录的报表时遇到问题。问题是我的表单上有未绑定的子表单，并且此子表单 .Recordsource 基于动态 SQL 字符串。这是我的代码（只是为了更好地理解的示例）：

Private Sub SearchRecords_Click()

Dim SQL As String

On Error Resume Next

SQL = "SELECT * FROM MyTable WHERE 1=1"

If Not IsNull(Txt1) Then
SQL = SQL & " AND MyTableField1 =[Forms]![Form1]![Txt1]"
End If

If Not IsNull(Txt2) Then
SQL = SQL & " AND ((MyTableField2 LIKE ""*" & Txt2 & "*""))"
End If

DoCmd.OpenForm "Form2", acNormal

Forms![Form2]![MySubform].Form.RecordSource = SQL

End Sub

如您所见，此代码用于打开子表单所在的 Form2，并根据用户需要显示来自数据库的结果。现在，我想要的是这个子表单结果也会被打印出来（不是打印屏幕，而是一份报告）。

我已经创建了一个基于 table 的报告，其中包含所有这些必要的记录，并尝试了这个，但它不起作用：

DoCmd.OpenReport "ReportNameHere", acViewPreview, WhereCondition:="[PKFieldNameHere]=" & Me.SubformControlName.Form.ControlNameHere

我该怎么办，我找不到任何我需要的例子，有人可以帮我吗？？

提前致谢！！

Answer 1

找到答案。我只需要将 Load_event 中的 Report 引用到我的子表单的 .Recordsource。抱歉打扰了。

打印子表单结果

Print subform results

ms-access

vba

ms-access-2010