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

对我来说非常好。我希望这将有所帮助。

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

1 个答案: