Access中跨列表框提交记录时重复记录与数量递增失效问题求助

看起来你在实现跨列表框的记录提交+数量增减逻辑时碰到了复合键判断失效、重复记录的问题，我帮你梳理下代码里的关键问题，再给出修正后的版本：

先说说现有代码里的几个核心问题 #

• 拼写错误：db.OPenRecordset里的OPen是拼写错误，DAO的正确方法名是OpenRecordset，这个会直接导致运行报错。
• 复合键判断缺失：你的DLookup只检查了PartID，没结合新增的Storage字段（也就是你说的复合键），所以即使同一PartID来自不同存储源，或者同一源的重复提交，都没法正确判断是否已存在。
• 循环逻辑混乱：
  • 找到匹配记录更新后没有退出循环，会继续遍历后续记录，触发else分支重复添加记录；
  • 没找到匹配时，在循环内部执行AddNew，会导致每遍历一条不匹配的记录就新增一次重复项；
  • Exit loop是语法错误，VBA里退出Do循环应该用Exit Do。
• 冗余变量：你定义了wv和InvPartsTbl两个记录集，但代码里完全没用到，既占资源又容易混淆。

修正后的完整代码 #

Private Sub wvListBox_DblClick(Cancel As Integer)
    Dim db As DAO.Database
    Dim cp As DAO.Recordset
    Dim pStrge As String
    Dim ID_wv As Integer
    Dim isRecordFound As Boolean ' 标记是否找到匹配记录

    Set db = CurrentDb
    Set cp = db.OpenRecordset("committedPartsTbl") ' 修正拼写错误
    pStrge = "Wrecked Part"
    isRecordFound = False ' 初始化标记

    With Me.wvListBox
        ID_wv = .Column(0)
        
        ' 复合键判断：同时检查PartID和Storage
        If Not IsNull(DLookup("ID", "committedPartsTbl", "PartID =" & ID_wv & " AND Storage = '" & pStrge & "'")) Then
            ' 遍历查找匹配的复合键记录
            Do While Not cp.EOF
                If cp!Storage = pStrge And cp!PartID = ID_wv Then
                    cp.Edit
                    cp!Quantity = cp!Quantity + 1
                    cp.Update
                    isRecordFound = True
                    Exit Do ' 找到后立即退出循环，避免重复操作
                End If
                cp.MoveNext
            Loop
        End If

        ' 如果遍历完没找到匹配记录，再新增
        If Not isRecordFound Then
            cp.AddNew
            cp!PartID = .Column(0)
            cp!PartName = .Column(1)
            cp!Source = .Column(2)
            cp!Quantity = 1
            cp!Guarantor = .Column(3)
            cp!Storage = pStrge
            cp!StorageDate = .Column(5)
            cp!Description = .Column(6)
            cp.Update
        End If
    End With

    ' 释放资源，避免内存泄漏
    cp.Close
    db.Close
    Set cp = Nothing
    Set db = Nothing
End Sub

关键修改说明 #

1. 复合键校验：DLookup和循环判断都同时结合了PartID和Storage，完全匹配你的复合键逻辑，确保同一来源的同PartID记录才会触发数量递增。
2. 循环逻辑优化：用isRecordFound标记是否找到匹配项，遍历完整个记录集后再决定是否新增，避免循环内重复添加。
3. 语法修正：修复了OpenRecordset的拼写和Exit Do的语法错误。
4. 资源清理：添加了记录集和数据库对象的关闭与释放，避免Access内存泄漏。

另外，建议你给ivListBox的双击事件也套用同样的逻辑，只需要把pStrge改成对应的存储值（比如"Inventory Part"之类的）就可以了。

备注：内容来源于stack exchange，提问作者Jeffery Tengen