Office中国论坛/Access中国论坛

标题: 预览报表和导出excle显示子窗体筛选后的数据 [打印本页]

作者: fller00 时间: 2006-4-29 02:45
标题: 预览报表和导出excle显示子窗体筛选后的数据
请大家帮忙看一下我的预览和导出的语句错在哪里呢？想让预览报表和导出excle这两个命令显示的是子窗体筛选后的数据。我用了两种方法，都不能实现，这个问题困扰了偶好久啦。

刘晓军的建立参数查询，根据查询建报表和子窗体的例子我看了，方法有些弊端，还是没有用那个方法，偶诸般尝试，更加混乱了。。。。。。。。

[attach]17458[/attach]

作者: zx994398 时间: 2006-5-1 18:47
你的数据库事件已经很好了，稍作调整

1.报表事件：docmd.openreport "报表名",acViewPreview, , Me.子窗体名.Form.Filter

2.用excle导出

我的方法是参照报表事件：（写的时候有提示，应该看得懂）

docmd.openform "子窗体名",acNormal, , Me.物业收费明细表子窗体.Form.Filter（打开筛选后的子窗体）

DoCmd.OutputTo acOutputForm, "子窗体名", "*.elx"（不要copy，里面有参数要加的，比如导出的路径，是否自动运行exl文件等）

DoCmd.Close（关闭子窗体）

试试吧？

作者: sdzpsf2008 时间: 2006-6-3 01:00
我也正遇到此类问题

作者: zyz218 时间: 2007-3-13 20:11
GOOD!!!这样更好：

Private Sub cmdout_Click()
On Error GoTo Err_cmdout_Click

DoCmd.OpenForm "infodisplay_sub", acNormal, , infodisplay_sub.Form.Filter
Forms!infodisplay_sub.Visible = False
DoCmd.OutputTo acOutputForm, "infodisplay_sub", , , True
DoCmd.Close

Exit_cmdout_Click:
Exit Sub
Err_cmdout_Click:
MsgBox Err.Description
Resume Exit_cmdout_Click
End Sub

[此贴子已经被作者于2007-3-13 13:23:11编辑过]

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