使用VBA断开用户与第三方应用程序使用MS Access的连接

Question

我有一个MS Access数据库（2010），多个用户通过第三方应用程序连接到该数据库。已经要求用户使用数据库关闭应用程序，但大多数用户忘记了。每天有一个夜间工作运行更新数据库。由于数据库繁忙，更新失败。有人可以帮助我使用VBA脚本检查是否有任何用户连接，如果有任何用户则断开连接？

问候

Answer 1

我使用在启动MS Access文件时加载的隐藏表单。 在这个表单上，我使用计时器事件检查：

If Hour(Now()) > 22 Then
   If Minute(Now()) > 50 Then
      Application.Quit
   End If
End If

如果您使用的是AM和PM，则需要更改“If Hour（Now（））＆gt; 22然后”相应地。