MS Access窗体VBA延时需求：开关板On Load事件消息框延迟弹出设置

嘿，这个需求很好实现！直接用Sleep函数会卡住整个Access界面，体验太差，所以更推荐用Application.OnTime方法来做异步延时——这样用户在等待弹窗的过程中还能正常操作开关板，不会被卡死。

下面是具体的实现步骤：

1. 把提醒弹窗的逻辑抽成单独的过程 #

首先，把你原来写在Form_Load里的统计+弹窗代码，单独放到一个公共子过程里，方便后续延时调用：

Sub ShowOverdueReminder()
    Dim overdueCount As Integer
    
    ' 这里替换成你原来统计逾期25天订单数量的代码
    ' 示例：假设你的订单表叫"客户订单"，结清状态字段是"是否结清"
    overdueCount = DCount("*", "客户订单", "付款截止日期 < Date() - 25 AND 是否结清 = False")
    
    If overdueCount > 0 Then
        Dim userChoice As Integer
        userChoice = MsgBox("有" & overdueCount & "笔逾期25天未结清的款项，是否现在查看？", vbYesNo + vbInformation, "逾期提醒")
        
        If userChoice = vbYes Then
            ' 这里替换成你点击"是"后要执行的操作，比如打开逾期订单列表表单
            DoCmd.OpenForm "逾期订单明细"
        End If
    End If
End Sub

2. 修改开关板的Form_Load事件，添加延时调用 #

在开关板的表单代码模块里，修改Form_Load事件，用Application.OnTime指定多久后执行上面的提醒过程。比如下面的代码是延迟5秒弹窗：

' 在表单模块的最顶部（声明区域）定义变量，保存计划执行的时间
Private scheduledReminderTime As Date

Private Sub Form_Load()
    ' 设置延迟时间：当前时间 + 5秒（可以改成你需要的时长，比如"00:00:10"就是10秒）
    scheduledReminderTime = Now() + TimeValue("00:00:05")
    ' 计划执行提醒过程
    Application.OnTime scheduledReminderTime, "ShowOverdueReminder"
End Sub

3. 添加取消延时的逻辑（可选但推荐） #

如果用户在延时期间关闭了开关板，我们需要取消之前计划的弹窗任务，避免开关板关了之后还弹出消息框。添加Form_Unload事件：

Private Sub Form_Unload(Cancel As Integer)
    ' 取消计划的提醒任务
    On Error Resume Next ' 防止任务已经执行过导致报错
    Application.OnTime scheduledReminderTime, "ShowOverdueReminder", , False
    On Error GoTo 0
End Sub

为什么不用Sleep？ #

Sleep函数是同步阻塞的，调用后整个Access界面会卡住，直到延时结束，用户没法做任何操作——体验非常糟糕。而Application.OnTime是异步执行的，延时期间用户可以正常操作开关板，到时间才会触发弹窗，这才是更友好的实现方式。

内容的提问来源于stack exchange，提问作者Cbrady