Access表单中根据日期自动设置Yes/No复选框状态问题

核心问题点 #

1. 事件绑定错误：你绑定了Active控件（yesnobox）的AfterUpdate事件，这会导致用户手动修改Active时，代码立刻强制覆盖设置，所以出现「无法勾选/取消」的锁死状态——正确的触发事件应该是**「Paus until」日期字段的AfterUpdate**，只有日期变化才需要自动调整Active状态。
2. 逻辑判断完全颠倒：你的需求是「未来日期→取消Active」，但代码里写的是targetDatum >= TodayDatum时设Active=True，和需求完全相反。
3. 未处理空值：如果用户没填写「Paus until」日期，直接赋值给Date类型变量会触发报错。

修正后的代码 #

打开表单设计视图，找到「Paus until」对应的控件（确保控件名和字段名一致，若控件名不同请替换为实际名称），绑定它的AfterUpdate事件，代码如下：

Private Sub Paus_until_AfterUpdate()
    Dim targetDatum As Variant '用Variant类型兼容空值
    Dim TodayDatum As Date
    
    TodayDatum = Date()
    targetDatum = Me.Paus_until.Value
    
    '处理日期为空的情况（可根据需求调整默认值）
    If IsNull(targetDatum) Then
        Me.Active = True '空值时默认保持激活，若要取消可改为False
    Else
        '逻辑修正：当天或过去日期→激活；未来日期→取消激活
        Me.Active = (targetDatum <= TodayDatum)
    End If
End Sub

额外优化建议 #

如果需要表单加载时也自动根据当前日期设置Active状态，可以把核心逻辑抽成独立函数，在Form_Load事件里调用：

Private Sub Form_Load()
    UpdateActiveStatus
End Sub

Private Sub Paus_until_AfterUpdate()
    UpdateActiveStatus
End Sub

Private Sub UpdateActiveStatus()
    Dim targetDatum As Variant
    Dim TodayDatum As Date
    
    TodayDatum = Date()
    targetDatum = Me.Paus_until.Value
    
    If IsNull(targetDatum) Then
        Me.Active = True
    Else
        Me.Active = (targetDatum <= TodayDatum)
    End If
End Sub

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