如何在Access表中允许多个空记录且避免UserID重复？

这个问题我之前帮不少用户处理过，Access里空值的唯一约束确实有点反直觉，不过有两个非常靠谱的解决方案：

方案一：创建忽略Null的唯一索引（推荐，无代码） #

这是最简洁的数据库层面解决方案，直接从根源保证数据规则：

• 打开你的设备借还表的设计视图
• 点击「字段」选项卡中的「索引」按钮，打开索引管理窗口
• 新建一条索引：
  • 索引名称可以设为Unique_Active_UserID
  • 字段名称选择UserID
  • 把「唯一」属性设为「是」
  • 关键一步：将「忽略Nulls」属性设为「是」

设置完成后，Access只会对非空的UserID执行唯一校验——同一个UserID不能同时出现在两条未归还（UserID非空）的记录里，而归还时设为空的记录不会被判定为重复，完全匹配你的需求。

方案二：表单VBA代码验证（灵活可控） #

如果需要结合更多自定义逻辑（比如关联设备状态、借出时间等），可以在表单的BeforeUpdate事件里写校验代码：

1. 打开借还表单的设计视图
2. 右键表单空白区域，选择「事件生成器」进入VBA编辑器
3. 粘贴以下代码（记得替换占位符）：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim targetUserID As String
    Dim duplicateCount As Integer
    
    ' 获取当前表单的UserID，空值转为空字符串
    targetUserID = Nz(Me.UserID.Value, "")
    
    ' 仅当UserID非空时执行校验
    If targetUserID <> "" Then
        If Me.NewRecord Then
            ' 新增记录时，统计已有相同UserID的未归还设备数
            duplicateCount = DCount("*", "你的设备表名", "UserID = '" & targetUserID & "'")
        Else
            ' 编辑记录时，排除当前自身记录（假设表主键为ID）
            duplicateCount = DCount("*", "你的设备表名", "UserID = '" & targetUserID & "' AND ID <> " & Me.ID.Value)
        End If
        
        ' 如果存在重复则阻止保存
        If duplicateCount > 0 Then
            MsgBox "该用户已有未归还的设备，无法再次借出！", vbExclamation
            Cancel = True ' 取消本次保存操作
            Me.UserID.SetFocus ' 定位到UserID字段方便修改
        End If
    End If
End Sub

• 把代码里的你的设备表名换成实际的表名称，如果主键不是ID也要对应修改
• 这个逻辑会在用户保存记录前自动校验，确保同一个UserID不会同时绑定两台未归还设备，归还时设为空则不会触发校验。

两种方案各有优势：方案一简单高效，由数据库底层保证数据完整性；方案二更灵活，能扩展更多业务规则。你可以根据自己的需求选择~

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