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

时间:2018-09-05 13:12:38

标签: ms-access

我要完成的工作:我有一个报告,该报告从表单上的按钮以及在该表单上选择的信息中获取。我需要的是一个代码,该代码将允许报告根据从表单上的打印报告按钮选择的信息来更改标题。因此从本质上来说,我有三个下拉列表字段。当我在前两个字段中进行选择时,我想要一个仅列出该信息的报告,然后单击“打印报告”按钮,即可正常工作。我想要做的是,当我点击打印报告按钮时,它将根据从表单中进行的选择打开带有特定标题的报告。例如,在表单上,​​我从下拉列表中选择分支,然后从下拉列表中选择组织。当我点击打印报告按钮时,我希望该报告以分支和组织的标题打开。我希望每次更改选择时都能更改它。从本质上将信息从表单更新为报告的标题或标题。有什么建议么?我找到了我认为可以使用的代码,但是在调整信息时无法使它正常工作。我对编码和访问世界还很陌生,希望对您有所帮助。 这是我尝试使用的代码:我试图弄清楚如何添加拍摄的快照照片,但不知道如何。这是我正在尝试使用的代码,我通过在OpenReport命令的“ OpenArgs”参数中传递Label.Caption的新文本并使用Open Event for Report安装新的Caption来解决此问题。效果很好!

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

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

我试图对其进行调整以使其与我的作品兼容,但不能。这不是我所需要的信息,但是我认为通过调整此代码,可以使每次在表单中选择不同的信息时,报表上的标题/标题框都可以更改。

1 个答案:

答案 0 :(得分:0)

经过测试,这对我有用:

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