Access VBA中AND逻辑运算符未返回预期结果的问题排查

问题根源分析 #

你遇到的分支执行错误，大概率是两个原因：

1. Null判断方式错误：VBA中不能直接用= Null判断控件是否为空，因为Null与任何值比较都会返回Null，会被VBA视为False，导致条件判断失效。
2. 判断顺序不符合递进逻辑：如果原代码先检查Wrap Color的状态，而非优先判断Finish Number，会导致空值场景下分支跳转错误。

修复后的VBA代码（严格遵循递进逻辑） #

Private Sub Cmbo_FinishNumber_JobTicket_AfterUpdate()
    ' 先清空描述字段，避免残留旧值
    Me.Finish_Description = ""
    
    ' 递进判断逻辑：优先取Finish Number，其次Wrap Color，最后Foil Color
    If Not IsNull(Me.Cmbo_FinishNumber_JobTicket) Then
        Me.Finish_Description = Me.Cmbo_FinishNumber_JobTicket
    ElseIf Not IsNull(Me.Wrap_Color1) Then
        Me.Finish_Description = Me.Wrap_Color1
        MsgBox "Wrap Color"
    ElseIf Not IsNull(Me.Foil_Color1) Then
        Me.Finish_Description = Me.Foil_Color1
        MsgBox "Foil Color"
    Else
        ' 处理三个字段全为空的边界场景
        MsgBox "所有颜色字段均为空"
    End If
End Sub

关键修复点说明 #

• 使用IsNull()函数准确判断控件是否为Null，这是VBA中处理空值的标准方式。
• 判断顺序严格按照需求：先检查Finish Number是否有效，再依次检查Wrap Color、Foil Color，确保递进逻辑的优先级正确。
• 先重置Finish_Description的内容，避免之前的旧值干扰结果。

简化实现方案（用Nz函数减少代码量） #

如果不想写多层If判断，可以用VBA的Nz()函数直接实现递进取值，该函数会返回第一个非Null的参数：

Private Sub Cmbo_FinishNumber_JobTicket_AfterUpdate()
    ' 一步完成递进赋值：优先取Finish Number，无值则取Wrap Color，再无则取Foil Color
    Me.Finish_Description = Nz(Me.Cmbo_FinishNumber_JobTicket, Nz(Me.Wrap_Color1, Me.Foil_Color1))
    
    ' 对应提示框逻辑
    If IsNull(Me.Cmbo_FinishNumber_JobTicket) Then
        If IsNull(Me.Wrap_Color1) Then
            If Not IsNull(Me.Foil_Color1) Then
                MsgBox "Foil Color"
            Else
                MsgBox "所有颜色字段均为空"
            End If
        Else
            MsgBox "Wrap Color"
        End If
    End If
End Sub

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