对报表的访问权限中的标签或文本框进行编码

Question

>我正在尝试完成的任务：我构建了一个报表，该报表从表单上的按钮和在该表单上选择的信息提供源。我需要的是一个代码，该代码将允许报表根据从窗体上的打印报表按钮中选择的信息更改标题标题。所以基本上在我的表格上，我有三个字段是下拉菜单。当我在前两个字段上进行选择并且我想要一个仅列出该信息的报告时，我点击了显示打印报告的按钮，它工作正常。我希望它做的是，当我点击打印报告按钮时，它将根据从表单中进行选择的内容打开带有特定标题的报告。因此，例如，在我的表单上，我从下拉列表中选择分支，然后从下拉列表中选择一个组织。当我点击打印报告按钮时，我希望该报告以分支和组织的标题打开。我希望每次更改选择时它都能够更改。实质上是将表单中的信息更新为报表的标题或标题。有什么建议吗？我找到了一个我认为可以工作的代码，但是当我调整信息时，我无法使其工作。我对编码和访问世界相当陌生，希望得到任何帮助。 这是我尝试使用的代码：我试图弄清楚如何添加我拍摄的截图照片，但不知道如何添加。这是我尝试使用的代码 我通过在 OpenReport 命令的"OpenArgs"参数中传递 Label.Caption 的新文本来解决问题，并使用报表的 Open 事件来安装新的标题。效果很好！

代码：
>>>在控制表单模块中

Private Sub Command0_Click()
Dim aWhere As String
Dim aStrArg As String
'Select a WHERE statement (from Global List) based on the Radio Box Group
aWhere = aDept(Me.Dpt_Chain.Value)
'Pass a String Argument to the Report to install in the Label
aStrArg = "TEST 22"
'Open the Report and pass it a string ...
DoCmd.OpenReport "Price_1", acViewPreview, , aWhere, acWindowNormal, aStrArg
End Sub

>>>在报告代码中 - 表单打开，标签中带有"TEST 22">

Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Controls("Dpt_Label").Caption = Me.OpenArgs
End If  
End Sub

我试图调整它以与我的一起使用，但不能。 这不是我的信息，但我认为通过调整此代码，每次在我的表单中选择不同的信息时，我都可以使报表上的标题/标题框发生变化。

Answer 1

测试，这对我有用：

Dim strString As String
strString = "Hallllo"
DoCmd.OpenReport "Report1", acViewReport, , , , strString

Private Sub Report_Open(Cancel As Integer)
Me.Controls("Label1").Caption = Me.OpenArgs
End Sub