Office中国论坛/Access中国论坛

标题: 如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！ [打印本页]

作者: cyber-bobo 时间: 2004-3-31 07:50
标题: 如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！
如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！如file001,file002,file003....或用当前时间为文件名。请版主指教！！！

作者: Ajoe 时间: 2004-3-31 19:34
应该可以实现的，实现快照可以用：输出为Word文件格式，具体代码怎么写，我也不会（或者可以用宏），呵呵。
请高手解答吧，我也想学学哦！

作者: Benjamin_luk 时间: 2004-3-31 22:21
1.在报表中[ON OPEN]增加代码:
Dim myName as string
myName = Now()&"报表名称"
DoCmd.OutputTo acReport, "报表名称", "SnapshotFormat(*.snp)", "C:\...\" & myName, False, ""

C:\....\ 为文件存放路径

作者: Benjamin_luk 时间: 2004-3-31 22:23
myName = Now()&"报表名称"
这行用来定义文件名,可以加后缀如 *.SNP,

作者: cyber-bobo 时间: 2004-3-31 23:21
标题: 为何出现如下错误信息!
语句是这样写的

im myName As String
myName = Now() & "查询3.snp"
DoCmd.OutputTo acReport, "查询3", "SnapshotFormat(*.snp)", "C:\windows\desktop\" & myName, False, ""[attach]4097[/attach]

作者: cyber-bobo 时间: 2004-3-31 23:46
标题: 如何解决?
找到原因了,是因为文件名上不能包含":"这个冒号,请教高手如何解决呢?

作者: Ajoe 时间: 2004-4-1 01:00
试试把时间格式为：Format(Now(),"yyyymmdd")

作者: tank007 时间: 2004-4-1 01:12
myName = Now() & "查询3.snp"
myname=replace(myname,":","-")
'将 ":" 替换成 "-"
DoCmd.OutputTo acReport, "查询3", "SnapshotFormat(*.snp)", "C:\windows\desktop\" & myName, False, ""

作者: Benjamin_luk 时间: 2004-4-1 01:12
myName = Format(Now(),"YYYYDDMMHHMMSS") &"报表名称"

作者: DGGLOBEXIE 时间: 2008-5-14 19:16
标题: 如何控控制在预览报表的版面,按打印按钮后才自动生成一个快照文件,請指教
如何控控制在预览报表的版面,按打印按钮后才自动生成一个快照文件,并且文件名称自动递增！請指教.!!!

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