如何在 MS Access 应用程序中每周的特定时间之间运行我的 VBA 代码

Question

我有一个用于多用户环境的 MS Access 应用程序。我想在每个星期四的 15:00 到 16:00 之间进行维护。在这一点上，我有两个问题需要考虑。

第一，可能在15:00之前进入应用的用户。
第二，将在15:00-16之间进入的用户： 00

对于第二种情况，我需要阻止我的用户访问 MS Access 应用程序。为此，我在初始表单的加载事件中编写了以下代码。

Private Sub Form_Load()
MsgBox "Between 15.00 and 16.00 on Thursdays access is not available due to maintenance", vbOKOnly*  
DoCmd.CloseDatabase
End Sub

它以我想要的方式工作。现在唯一要做的就是限制它在我描述的特定时间之间工作。如何将时间参数集成到我的代码中？

对于第一种情况，对于系统中的所有用户，无论他们身在何处，关闭数据库功能都应该起作用，并且应用程序应该自动关闭。

Answer 1

检查时间段：

Dim T As Date
T = Time()
If Weekday(Date()) = 5 And T >= #3:00:00 PM# And T <= #4:00:00 PM# Then

强制数据库关闭有损坏数据的风险，但我认为可以做到。这是一个常见的话题，应该能找到很多例子。