Office中国论坛/Access中国论坛

标题: [已解决]在选项组应用中如何使报表显示当前筛选的内容？ [打印本页]

作者: liuqi67 时间: 2017-5-12 10:42
标题: [已解决]在选项组应用中如何使报表显示当前筛选的内容？
本帖最后由 liuqi67 于 2017-5-12 13:48 编辑

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

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

[attach]61211[/attach]

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

作者: liuqi67 时间: 2017-5-12 11:31

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 时间: 2017-5-12 12:44

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

[attach]61212[/attach]

作者: liuqi67 时间: 2017-5-12 13:45

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

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

作者: Henry D. Sy 时间: 2017-5-12 13:55

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

[attach]61214[/attach][attach]61215[/attach]

这样简单些！

作者: liuqi67 时间: 2017-5-13 13:41

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)