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

Posted 2023-04-12

【中文标题】使用 VBA 断开用户与第三方应用程序使用 MS Access 的连接

【英文标题】：Using VBA to disconnect users from using MS Access by third party applications

【发布时间】：2017-01-12 01:29:05

【问题描述】：

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

问候

【问题讨论】：

Force all users to disconnect from 2010 Access backend database的可能重复

【参考方案1】：

我使用在启动 MS Access 文件时加载的隐藏表单。 在此表单上，我使用计时器事件检查如下内容：

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

如果您使用 AM 和 PM，则需要相应地更改“If Hour(Now()) > 22 Then”。