如何基于DLookup查询条件格式化子窗体控件并解决运行时2471错误？

错误原因分析 #

你遇到的运行时错误2471，主要由两个问题导致：

• 控件引用冗余：在子窗体的On Current事件中，无需通过完整窗体路径引用组合框，直接用Me.cboPN即可，跨窗体引用容易因焦点或路径错误触发异常。
• 数据类型未匹配：如果零件号（SOPN）是文本类型，DLookup的条件表达式未给值加单引号，导致SQL语法错误。

修复后的VBA代码方案 #

根据SOPN的数据类型选择对应代码，替换原On Current事件中的代码：

若SOPN为文本类型 #

Private Sub Form_Current()
    Dim currentPN As Variant
    currentPN = Me.cboPN.Value
    
    ' 处理空值场景
    If IsNull(currentPN) Then
        Me.cboPN.BackColor = RGB(255, 255, 255)
        Exit Sub
    End If
    
    ' 文本值需加单引号，同时转义内部单引号避免语法错误
    If DLookup("PN", "qryCheckSOPN", "SOPN='" & Replace(currentPN, "'", "''") & "'") Is Null Then
        Me.cboPN.BackColor = RGB(255, 0, 0)
    Else
        Me.cboPN.BackColor = RGB(255, 255, 255)
    End If
End Sub

若SOPN为数字类型 #

Private Sub Form_Current()
    Dim currentPN As Variant
    currentPN = Me.cboPN.Value
    
    If IsNull(currentPN) Then
        Me.cboPN.BackColor = RGB(255, 255, 255)
        Exit Sub
    End If
    
    ' 数字值无需加引号
    If DLookup("PN", "qryCheckSOPN", "SOPN=" & currentPN) Is Null Then
        Me.cboPN.BackColor = RGB(255, 0, 0)
    Else
        Me.cboPN.BackColor = RGB(255, 255, 255)
    End If
End Sub

更稳定的条件格式方案（推荐） #

连续窗体中使用VBA的On Current事件可能存在滚动时部分记录格式未更新的问题，推荐用条件格式实现，无需编写代码：

1. 打开子窗体设计视图，选中cboPN组合框。
2. 右键选择「条件格式」，添加新条件：
   • 条件类型选「表达式」
   • 文本类型SOPN输入表达式：IsNull(DLookup("PN", "qryCheckSOPN", "SOPN='" & [cboPN] & "'"))
   • 数字类型SOPN输入表达式：IsNull(DLookup("PN", "qryCheckSOPN", "SOPN=" & [cboPN]))
   • 设置背景色为红色（RGB(255, 0, 0)）
3. 可添加默认条件（否则），设置背景色为白色，保存后测试即可。

内容的提问来源于stack exchange，提问作者Noel de la Rosa