Ms access MS Access,刷新嵌入表单中的报表

Ms access MS Access,刷新嵌入表单中的报表,ms-access,vba,ms-access-2013,Ms Access,Vba,Ms Access 2013,我有一个内嵌在表单中的报告,其中包含一个文本框和一个按钮 我希望更新报告中的过滤器,并在表单中重新查询和刷新报告。我不太熟悉在access中使用VBA,因此我可能完全不了解如何尝试这样做 单击generateExhib按钮时激发的事件如下所示 作为子窗体/子报表嵌入的报表名为TagReport Private Sub GenerateExhib_Click() If (generatePrintedExhib.Value = False) Then Me.T

我有一个内嵌在表单中的报告,其中包含一个文本框和一个按钮

我希望更新报告中的过滤器,并在表单中重新查询和刷新报告。我不太熟悉在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

我创建了一个带有嵌入式报告的小测试表单,一个包含要筛选的值的组合框,以及一个刷新按钮。在按钮的单击事件中,我添加了以下代码:

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

这对我很管用。我希望这会有所帮助

另外,如果您是新来的,如果此答案解决了您的问题,请单击它旁边的复选标记将其标记为答案。如果你觉得它有帮助,至少投票吧。不确定它是罪魁祸首,所以我将把它作为一个评论发布,但为什么你要经历我的整个繁琐的过程。TagReport.Report.Application.DoCmd.Requery,而不仅仅是我。TagReport.Requery?