Access数据库新增记录时重复值错误的排查与解决

问题背景 #

我有一个包含两张表的数据库，两张表均将AccountID设为主键且存在关联关系（相关表结构截图：Image1、Image2、Image3；DonationsTable截图、HOAFeesTable截图，HOAFeesTable中为测试数据）。我开发了一个表单，通过以下VBA代码实现对HOAFeesTable的操作：当选中的AccountID已存在时编辑对应记录，不存在则新增记录。

现有VBA代码 #

Option Compare Database

Private Sub btnAddRecord_Click()
    'Declare variables
    Dim db As DAO.Database
    Dim rst As Recordset
    Dim intID As Integer
    
    'Set the current database
    Set db = Application.CurrentDb
    
    'Set the recordset
    Set rst = db.OpenRecordset("tblHOAFees", dbOpenDynaset)
    
    'Set value for variable
    intID = lstAccountID.Value
    
    'Finds the Account ID selected on the form
    With rst
    rst.FindFirst "AccountID=" & intID
    
    'If the record has not yet been added to the form adds a new record
    If .NoMatch Then
            rst.AddNew
            rst!AccountID = intID
            rst!HOAID = txtHOAID.Value
            rst!Location = txtLocation.Value
            rst!House = chkHouse.Value
            rst!Rooms = txtRooms.Value
            rst!SquareFeet = txtSquareFeet.Value
            rst!HOAFees = txtHOAFees.Value
            rst.Update
    'If the Account ID is already in the form edits the record
    Else
            rst.Edit
            rst!AccountID = intID
            rst!HOAID = txtHOAID.Value
            rst!Location = txtLocation.Value
            rst!House = chkHouse.Value
            rst!Rooms = txtRooms.Value
            rst!SquareFeet = txtSquareFeet.Value
            rst!HOAFees = txtHOAFees.Value
            rst.Update
    End If
    End With
    

    'Closes the recordset
    rst.Close
    Set rst = Nothing
    Set db = Nothing
    

End Sub

遇到的问题 #

编辑现有记录时无异常，但新增记录后关闭表单会弹出错误提示**“您请求的表更改未成功，因为会创建重复值”**，但实际该记录已成功添加至表中。尝试移除HOAFeesTable的主键但问题依旧，且DonationsTable的主键必须保留不能修改，请问如何消除该错误提示？

解决方法 #

1. 排查表单绑定导致的重复提交 #

这是最可能的核心原因：如果表单本身绑定了tblHOAFees，当你在表单控件中输入内容后，表单的绑定记录集会自动处于“待新增”状态；此时你用VBA手动插入了一条记录，关闭表单时，绑定记录集还会尝试提交这条未完成的记录，导致重复值冲突。

解决步骤：

• 打开表单设计视图，检查RecordSource属性：如果它指向tblHOAFees，可以选择两种处理方式：
  • 方式一：将RecordSource设为空，让表单完全通过VBA处理数据交互（推荐，彻底避免绑定冲突）。
  • 方式二：在VBA代码执行完新增/编辑后，取消表单的脏状态，避免重复提交：
    在代码中rst.Close之前添加：

    ' 取消表单的未保存更改
    If Me.Dirty Then
        Me.Undo
    End If
    ' 刷新列表控件，显示最新数据
    lstAccountID.Requery
    

2. 优化VBA代码逻辑 #

修正代码中不规范的写法，同时确保记录集操作的完整性：

Option Compare Database

Private Sub btnAddRecord_Click()
    Dim db As DAO.Database
    Dim rst As Recordset
    Dim intID As Integer
    
    Set db = Application.CurrentDb
    Set rst = db.OpenRecordset("tblHOAFees", dbOpenDynaset)
    intID = lstAccountID.Value
    
    With rst
        ' 规范使用With块内的对象引用
        .FindFirst "AccountID=" & intID
        If .NoMatch Then
            .AddNew
            !AccountID = intID
            !HOAID = txtHOAID.Value
            !Location = txtLocation.Value
            !House = chkHouse.Value
            !Rooms = txtRooms.Value
            !SquareFeet = txtSquareFeet.Value
            !HOAFees = txtHOAFees.Value
            .Update
        Else
            .Edit
            !AccountID = intID
            !HOAID = txtHOAID.Value
            !Location = txtLocation.Value
            !House = chkHouse.Value
            !Rooms = txtRooms.Value
            !SquareFeet = txtSquareFeet.Value
            !HOAFees = txtHOAFees.Value
            .Update
        End If
    End With
    
    ' 处理表单绑定的脏状态
    If Me.Dirty Then
        Me.Undo
    End If
    ' 刷新列表控件
    lstAccountID.Requery
    
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

3. 检查表关联与主键设计 #

虽然你移除HOAFeesTable主键后问题依旧，但仍需确认：

• 两张表的关联类型：如果是一对一关联，HOAFeesTable的AccountID作为主键是合理的；但如果是一对多关联（一个Account对应多条HOA费用记录），HOAFeesTable的主键应该是单独的自增ID，AccountID作为外键即可——这种设计问题可能隐性引发冲突，但结合你的情况，优先解决表单绑定问题。

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