如何使用自执行代码杀死CurrentDB

Question

我一直在研究自行执行删除当前数据库文件的代码的方法.我在这里遇到了一个与Excel完全相同的代码片段,但这似乎并没有很好地转化为Access.

 Sub KillMeExcel()
 With ThisWorkbook
    .Saved = True
    .ChangeFileAccess Mode:=xlReadOnly
    Kill .FullName
    .Close False
 End With
 End Sub

似乎没有.ChangeFileAccessMode in Access,所以我没有比这更进一步.

是否可以使用VBA代码删除当前数据库？

Answer 1

我也会警惕通过邮件发送一个打开并运行的Access数据库.

我的解决方法是:

Launch an external vbs
DoCmd.Quit

在vbs中:

• 等待循环,直到.ldb/.laccdb文件消失(即数据库已关闭)
• 发送带有附加数据库的邮件
• 删除数据库

Answer 2

这是不可能的.出于某种原因,您将收到" 权限被拒绝"错误.