MS Access，刷新表单中嵌入的报告

Question

我在包含文本框和按钮的表单中嵌入了一份报告。

我的愿望是更新报表上的过滤器并在表单中重新查询和刷新报表。我对在访问中使用 VBA 不是很熟悉，所以我很可能完全不了解我尝试这样做的方式。

点击 generateExhib 按钮时触发的事件如下。

作为子表单/子报表嵌入的报表名为 TagReport。

    Private Sub GenerateExhib_Click()



    If (generatePrintedExhib.Value = False) Then
        Me.TagReport.Application.DoCmd.SetFilter WhereCondition:="[Exhibitor ID] =" + ExhibitorNumber.Value + " AND [UDEntry-CheckBox1] = false"
    Else
        Me.TagReport.Application.DoCmd.SetFilter WhereCondition:="[Exhibitor ID] =" + ExhibitorNumber.Value
    End If


    Me.TagReport.Report.Application.DoCmd.Requery
    Me.TagReport.Report.Application.DoCmd.RefreshRecord


End Sub

Answer 1

我创建了一个带有嵌入式报告的小测试表单、一个包含要过滤的值的组合框和一个刷新按钮。在按钮的单击事件中，我添加了以下代码：

Private Sub cmdRefresh_Click()
    Dim filter As String

    filter = "CardCode = '" & Me.cmbFilter.Value & "'"

    '"subform_rpt" is the specific name of the embedded report. 
    DoCmd.ApplyFilter "Filter", filter, "subform_rpt"

End Sub

对我来说效果很好。我希望这将有所帮助。