Question

access 如何实现以组合框的内容为条件 以命令按钮打开报表。报表显示筛选





Answer 1

假设组合框名为“Combo1”，DOWNLOAD按钮名为“Command1”，报表名是“ReportList”

添加下列命令按钮打开事件过程即可：

Private Sub Command1_Click()
    If IsNull(Me.Combo1) Then
        MsgBox "请选择一个Report ID"
        Combo1.SetFocus
        Exit Sub
    End If
    DoCmd.OpenReport "ReportList", acViewPreview, , "[Report ID_Task]='" & Combo1.Value & "'"  '这里是打开报表预览视图,直接打印参数改为acViewNormal即可
End Sub

代码以测试通过，如果楼主运行发现问题(因为有些细节需要根据实际情况做调整，这里一言难尽）请追问，我再帮您处理

运行效果示范

未筛选的报表

根据组合框项目筛选后打开的报表

追问

非常感谢~~~想继续追问下。 如果我想点击命令按钮 想生成excel或者PDF格式的文件，不需要打印。我该如何改代码。

追答

这可是得寸进尺哈！

直接用代码输出为PDF比较麻烦，我就不提供了（建议网上下载PDF打印机并安装，然后将报表打印成PDF，这样很方便的）。

ACCESS将报表导出为excel则很方便，下面是解决方案,几行代码搞定：

Private Sub Command2_Click()
'报表导出为EXCEL文件保存到D盘根目录
DoCmd.OutputTo acOutputReport, "ReportList", acFormatXLS, "D:\ReportList.xls"
End Sub

追问

你高手有大量嘛~~~谢谢哈！

我只需要一个命令按钮，能够打开当然REPORT, 并以PDF格式文件生成到邮件里去。

这样就很方面到可以发邮件了。该怎么实现~~~

追答

抱歉，这个方案很有价值。还是你自己研究吧，弄明白后您就可以卖钱了

祝您成功

Answer 2

Private Sub Command2_Click()
'报表导出为EXCEL文件保存到D盘根目录
DoCmd.OutputTo acOutputReport, "ReportList", acFormatPDF, "D:\ReportList.pdf"
End Sub

Answer 3

命令按钮打