[求助]自动备份

boatcao

自己作了个数据库，放在公司公共盘上，有没有办法做到，每次打开都自动备份数据库。请各位大侠不吝赐教。

LucasLynn

每次打开数据库，Access都会执行一个名为AutoExec的宏（如果存在的话）

wanshan

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

nxjswt

加入到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