[已解决]在选项组应用中如何使报表显示当前筛选的内容？

liuqi67

如题：在选项组应用中如何使报表显示当前筛选的内容？

我在选项组按钮设置筛选条件，子窗体显示相应的内容；但创建报表后，选择相应的选项组内容但报表内容无法与子窗体筛选的内容同步，点击预览报表内容始终显示全部内容，望各位高手指教，谢谢了！

tmtony

打开报表，在docmd.openreport 的后面的where 参数 传递 筛选条件

liuqi67

tmtony 发表于 2017-5-12 10:44
打开报表，在docmd.openreport 的后面的where 参数 传递 筛选条件

多谢王站的回复！我用的是原刘小军如下的一段代码，在窗体应用中OK，但在选项组应用中却无效，子窗体筛选的内容没有传递给报表，VBA小白，能否帮忙改一下代码或示例，多谢！

Private Sub cmd预览报表_Click()

On Error GoTo Err_cmd预览报表_Click

    Dim stDocName, strWhere As String

    stDocName = "分类统计报表"
    strWhere = Me.最终查询_子窗体.Form.Filter
   
    DoCmd.OpenReport stDocName, acPreview, , strWhere
   
Exit_cmd预览报表_Click:
    Exit Sub

Err_cmd预览报表_Click:
    MsgBox Err.Description
    Resume Exit_cmd预览报表_Click


End Sub

Henry D. Sy

liuqi67 发表于 2017-5-12 11:31
多谢王站的回复！我用的是原刘小军如下的一段代码，在窗体应用中OK，但在选项组应用中却无效，子窗体筛选 ...

liuqi67

Henry D. Sy 发表于 2017-5-12 12:44

感谢Henry D. Sy 版主的回复！

Henry D. Sy

liuqi67 发表于 2017-5-12 13:45
感谢Henry D. Sy 版主的回复！

这样简单些！

liuqi67

Henry D. Sy 发表于 2017-5-12 13:55
这样简单些！

的确，解题的方法有多种，又学一招，感谢Henry D. Sy老师的用心指导。