MS Access 2016：防止同一Issue ID下重复录入Breach ID

要实现的需求是：同一个Issue ID不能重复关联相同的Breach ID，但允许不同Issue关联同一个Breach ID。直接给Breach_ID字段设“不允许重复”会导致全局无法重复使用，不符合要求，以下提供两种解决方法：

方法一：修正VBA代码 #

你原有的代码存在两个关键错误：

• 条件里[Breach_ID]= #既没引用当前输入的Breach_ID值，还错误用了日期分隔符#（Breach_ID一般是数字或文本类型）
• 没考虑Breach_ID的数据类型对SQL条件的影响

按数据类型修正后的代码： #

若Breach_ID是数字类型：

Private Sub Breach_ID_BeforeUpdate(Cancel As Integer)
    ' 统计当前Issue下已关联该Breach的记录数
    If DCount("*", "Breach", "[Issue_ID] = " & Me.[Issue_ID] & " AND [Breach_ID] = " & Me.[Breach_ID]) > 0 Then
        MsgBox "这个问题已经关联过这条违规记录了，请重新输入。", vbInformation, "重复关联！"
        Cancel = True ' 取消当前更新操作
        Me.Breach_ID.Undo ' 清空输入的重复内容
    End If
End Sub

若Breach_ID是文本类型：

文本值需要用单引号包裹，避免SQL语法错误：

Private Sub Breach_ID_BeforeUpdate(Cancel As Integer)
    If DCount("*", "Breach", "[Issue_ID] = " & Me.[Issue_ID] & " AND [Breach_ID] = '" & Me.[Breach_ID] & "'") > 0 Then
        MsgBox "这个问题已经关联过这条违规记录了，请重新输入。", vbInformation, "重复关联！"
        Cancel = True
        Me.Breach_ID.Undo
    End If
End Sub

代码说明： #

• DCount("*", "Breach", 条件)：统计Breach表中符合条件的记录数量
• Me.[Issue_ID]/Me.[Breach_ID]：直接取当前窗体里用户正在输入的对应值
• Cancel = True：阻止字段的更新操作
• Me.Breach_ID.Undo：把用户输入的重复值清空

方法二：表级复合唯一约束（更稳妥） #

除了VBA，还可以直接在Breach表上设置复合唯一索引，从底层限制Issue_ID和Breach_ID的组合不能重复，不用依赖VBA也能生效：

1. 打开Breach表的设计视图
2. 点击顶部菜单栏的「设计」→「索引」（或右键表设计区域选「索引」）
3. 在弹出的索引窗口中：
   • 索引名称：随便起个名字，比如Unique_Issue_Breach
   • 字段名称：依次选择Issue_ID和Breach_ID
   • 唯一：选择「是」
4. 保存表结构即可

这种方式下，只要用户输入重复的Issue+Breach组合，Access会自动弹出错误提示，比VBA更可靠，还能防止有人直接编辑数据表造成的重复。

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