设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12
返回列表 发新帖
楼主: yanwei82123300
打印 上一主题 下一主题

[报表] 报表导出后的文件名的自动获取

[复制链接]
11#
 楼主| 发表于 2012-1-13 08:12:39 | 只看该作者
谢谢帮助,问题已经解决是版本的问题2003 ok 2007不通过!!
12#
发表于 2012-1-13 16:36:16 | 只看该作者
导出pdf时,判断list4是不是为空。
13#
发表于 2012-2-7 15:25:56 | 只看该作者
要是只生成有条件的数据
而不是全部
怎么办呀
14#
 楼主| 发表于 2012-2-7 15:46:02 | 只看该作者
数据源,加条件
15#
发表于 2012-2-7 17:14:56 | 只看该作者
Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
    filename = "D:\temp.xls"
Else
    filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub
在那个位置??
16#
发表于 2012-2-7 17:15:10 | 只看该作者
Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
    filename = "D:\temp.xls"
Else
    filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub
在那个位置??
17#
发表于 2012-2-7 17:16:29 | 只看该作者
水平比较低
见谅
18#
 楼主| 发表于 2012-2-7 19:53:12 | 只看该作者
acReport, "rptMO",  的数据源在哪里?如果是查询,就在查询中加条件
19#
发表于 2012-2-8 08:18:03 | 只看该作者
如果不是查询呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 20:49 , Processed in 0.099389 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表