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

Question

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

我的愿望是更新报表上的筛选器，重新查询并刷新表单中的报表。我不太熟悉在access中使用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

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