Office中国论坛/Access中国论坛

标题: [求助]自动备份 [打印本页]

作者: boatcao 时间: 2005-10-12 01:08
标题: [求助]自动备份
自己作了个数据库，放在公司公共盘上，有没有办法做到，每次打开都自动备份数据库。请各位大侠不吝赐教。

作者: LucasLynn 时间: 2005-10-12 01:33
每次打开数据库，Access都会执行一个名为AutoExec的宏（如果存在的话）

作者: wanshan 时间: 2005-10-12 05:59
以前做过一个自动备份的工具，看看是否对你有所帮助：http://www.office-cn.net/forum.php?mod=viewthread&tid=21579

作者: nxjswt 时间: 2005-10-12 06:21
加入到form load事件过程Dim a, b, c, fs

b = Format(Now, "yyyymmddhhmm")

a = CurrentProject.Path

c = a & "\backup\bak位记帐前" & b & ".mdb"

Set fs = CreateObject("Scripting.FileSystemObject")

fs.copyfile a & "\hs.mdb", a & ".\backup\bak记帐前" & b & ".mdb"

MsgBox "本系统已自动备份至" & c

作者: sunwrsun 时间: 2009-7-30 15:21

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