MS Access表单日期对比更新RISK字段逻辑实现求助

问题排查 #

你之前的代码存在两个核心问题：

1. DateDiff参数错误："w"返回的是两个日期之间的工作日天数，而非自然周数，这会导致周差计算完全偏离预期。
2. 逻辑表达式语法错误：VBA不支持<52 and >1这种连续比较写法，正确格式应为diff > 1 And diff < 52，同时你没处理TargetDate早于CreationDate的异常场景。

修正后的完整代码（绑定Importance字段的AfterUpdate事件） #

Private Sub Importance_AfterUpdate()
    Dim diffDays As Long
    Dim diffWeeks As Double
    Dim diffMonths As Integer
    
    ' 仅当Importance为"是"时执行风险判断
    If Me.Importance = "是" Then
        ' 处理空值或TargetDate早于CreationDate的情况
        If IsNull(Me.CreationDate) Or IsNull(Me.TargetDate) Or Me.TargetDate < Me.CreationDate Then
            Me.RISK = "LOW"
            Exit Sub
        End If
        
        ' 计算三种维度的日期差值
        diffDays = DateDiff("d", Me.CreationDate, Me.TargetDate) ' 总天数
        diffWeeks = diffDays / 7 ' 自然周数（避免DateDiff("ww")的周起始偏差）
        diffMonths = DateDiff("m", Me.CreationDate, Me.TargetDate) ' 月份差
        
        ' 按规则匹配RISK等级
        Select Case True
            Case diffWeeks < 1
                Me.RISK = "EMERGENCY"
            Case diffWeeks >= 1 And diffWeeks <= 52
                Me.RISK = "HIGH"
            Case diffMonths >= 12 And diffMonths <= 24
                Me.RISK = "Medium"
            Case Else
                Me.RISK = "LOW"
        End Select
    Else
        ' 若Importance不为"是"，清空RISK字段（或设为你需要的默认值）
        Me.RISK = ""
    End If
End Sub

关键细节说明 #

• 用天数算周数更精准：DateDiff("ww")会根据系统设置的周起始日（比如周日/周一）计算周数，可能出现偏差；用总天数除以7能得到更符合直觉的自然周差。
• 异常场景前置处理：空日期、TargetDate早于CreationDate的情况直接归为LOW，避免后续计算报错。
• 月份差直接用DateDiff("m")：需求里的“12个月至24个月”用月份差判断最准确，不需要通过周数转换。

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