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

Question

我一直在研究自行执行删除当前数据库文件的代码的方法。我遇到了一个代码片段here，它完全符合Excel的要求，但这似乎并没有很好地转化为Access。

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

Access中似乎没有.ChangeFileAccess模式，所以我没有比这更进一步。

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

Answer 1

我也会警惕通过邮件发送一个开放且正在运行的Access数据库。

我的解决方法是：

Launch an external vbs
DoCmd.Quit

并在vbs中：

• 等待循环，直到.ldb / .laccdb文件消失（即数据库是 闭）
• 发送附带db的邮件
• 删除db

Answer 2

这是不可能的。您将收到 Permission Denied 错误 - 原因。