访问数据库的自动备份

Question

所以我做了一个名为autoexec的宏来调用函数备份 这是功能：

Dim Source As String
Dim Target As String
Source = CurrentDb.Name
Target = CurrentProject.Path
Target = Target & Format(Date, "dd-mm") & "   "
Target = Target & Format(Time, "hh-mm") & ".accdb"
Call FileCopy(Source, Target, True)

然而，它总是说有无效的参数数量或无效的属性赋值 我该怎么办？

Answer 1

  

现在它说运行时错误70权限被拒绝

这样做是因为你不能这样做。

您无法从内部复制文件。