多条件DLookup实现求助：Access数据库表单重复值校验异常

原代码问题分析 #

1. DLookup语法错误：条件表达式写法错误，正确的多条件关联需要同时匹配CategoryName和CatTypeID，且不应包含多余的WHERE关键字
2. 逻辑判断错误：DLookup返回的是匹配字段的具体值，而非记录数量，用>0进行判断不严谨，应改用DCount统计符合条件的记录数

修正后的代码 #

如果是新增记录专用（无需排除当前编辑记录）：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' 统计同CatTypeID下同名CategoryName的记录数
    If DCount("*", "tblSystemCategory", "[CategoryName] = '" & Me.CategoryName & "' AND [CatTypeID] = " & Me.CatTypeID) > 0 Then
        MsgBox "该类别名称在当前类别类型下已存在，无法重复添加"
        Cancel = True ' 取消更新操作
        Me.Undo ' 撤销输入内容
    End If
End Sub

如果需要支持编辑记录（避免编辑时误判当前记录为重复）：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strCriteria As String
    
    ' 基础条件：同CatTypeID下同名CategoryName
    strCriteria = "[CategoryName] = '" & Me.CategoryName & "' AND [CatTypeID] = " & Me.CatTypeID
    ' 如果是编辑现有记录，排除当前记录的ID
    If Not Me.NewRecord Then
        strCriteria = strCriteria & " AND [CategoryID] <> " & Me.CategoryID
    End If
    
    If DCount("*", "tblSystemCategory", strCriteria) > 0 Then
        MsgBox "该类别名称在当前类别类型下已存在，无法重复添加"
        Cancel = True
        Me.Undo
    End If
End Sub

代码说明 #

• 使用DCount替代DLookup，直接统计符合条件的记录数量，判断逻辑更准确
• 条件表达式同时关联CategoryName和CatTypeID，确保仅在同一类别类型下检测重复
• 编辑场景下排除当前记录ID，避免误判正在编辑的原有记录为重复
• 通过Cancel = True正式取消表单更新操作，比单纯Undo更严谨

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