MS Access表单验证：新增记录时校验SerialNumber的唯一IsActive激活规则

直接用表级验证规则无法实现跨记录的判断逻辑，推荐通过表单的VBA事件来处理，步骤如下：

1. 打开表单的设计视图，按F7打开VBA编辑器。
2. 在表单的BeforeUpdate事件中插入以下代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.IsActive = True Then
        Dim activeCount As Integer
        ' 替换"你的表名"为实际表名，"ID"为表的主键字段名
        activeCount = DCount("*", "你的表名", "SerialNumber = '" & Me.SerialNumber & "' AND IsActive = True AND ID <> " & Nz(Me.ID, 0))
        
        If activeCount > 0 Then
            MsgBox "该SerialNumber已有激活记录，无法新增激活状态的记录！", vbExclamation, "提示"
            Cancel = True
        End If
    End If
End Sub

代码说明 #

• 仅当用户将当前记录的IsActive设为True时才触发检查
• DCount函数统计同SerialNumber下已激活的记录数，通过主键ID排除当前正在编辑的新记录（新记录ID为空，Nz函数将其转为0，避免干扰统计）
• 如果存在已激活记录，弹出提示并取消当前的保存操作

如果尝试用表级验证规则，由于其只能针对单条记录的字段值判断，无法实现跨记录的统计逻辑，因此不推荐。

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