我有一个名为testForm的表单,其中包含一个名为txtUnitID的文本框和一个cmdOpenTestReport按钮。 该按钮的代码是:
Private Sub cmdOpenTestReport_Click()
DoCmd.OpenReport reportname:="testReport", view:=acViewPreview
End Sub
testReport的记录来源是
SELECT * from tblTest WHERE UnitID = [txtUnitID]
我的报告中还有一个名为txtUnitID的文本框,其中我想要testForm的值!txtUnitID
如何将testForm!txtUnitID的值传递给testReport的记录源查询以及testReport!txtUnitID?
我尝试过像这样设置Me.txtUnitID的值:
Private Sub Report_Open(Cancel As Integer)
Me.txtUnitID = 1
End Sub
但我认为这不起作用,因为报告此时尚未公开。
答案 0 :(得分:0)
从任何地方引用表单上的TextBox(RecordSource of report或VBA代码):
Forms!testForm!txtUnitID