如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！

cyber-bobo · 发表于 2004-3-31 07:50:00

如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！如file001,file002,file003....或用当前时间为文件名。请版主指教！！！

Ajoe · 发表于 2004-3-31 19:34:00

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

Benjamin_luk · 发表于 2004-3-31 22:21:00

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:00

myName = Now()&"报表名称"
这行用来定义文件名,可以加后缀如 *.SNP,

cyber-bobo · 发表于 2004-3-31 23:21:00

语句是这样写的

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

cyber-bobo · 发表于 2004-3-31 23:46:00

找到原因了,是因为文件名上不能包含":"这个冒号,请教高手如何解决呢?

Ajoe · 发表于 2004-4-1 01:00:00

试试把时间格式为：Format(Now(),"yyyymmdd")

tank007 · 发表于 2004-4-1 01:12:00

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:00

myName = Format(Now(),"YYYYDDMMHHMMSS") &"报表名称"

DGGLOBEXIE · 发表于 2008-5-14 19:16:10

如何控控制在预览报表的版面,按打印按钮后才自动生成一个快照文件,并且文件名称自动递增！請指教.!!!

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

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

为何出现如下错误信息!

本帖子中包含更多资源

如何解决?

如何控控制在预览报表的版面,按打印按钮后才自动生成一个快照文件,請指教

群介绍
主题无相 (随机显示版	同地区群块其他地区)