Access同一FBID下重复ProductName时更新子窗体Quantity值的方法

方法1：先更新再判断插入 #

Access不支持ON DUPLICATE KEY UPDATE，可以通过先尝试更新重复记录，再根据更新结果决定是否插入的逻辑实现需求：

Dim updateSQL As String
Dim insertSQL As String
Dim affectedRows As Long

' 1. 构造更新SQL：匹配相同FBID和ProductName，累加Quantity
updateSQL = "UPDATE FBB " & _
            "SET Quantity = Quantity + " & Me.Quantity & " " & _
            "WHERE FBID = " & Me.FBID & " AND ProductName = '" & Replace(Me.ProductName, "'", "''") & "'"

' 执行更新并获取受影响的行数
CurrentDb.Execute updateSQL, dbFailOnError
affectedRows = CurrentDb.RecordsAffected

' 2. 如果没有记录被更新（说明无重复），执行插入
If affectedRows = 0 Then
    insertSQL = "INSERT INTO FBB (FBID, ProductName, Quantity) " & _
                "VALUES (" & Me.FBID & ", '" & Replace(Me.ProductName, "'", "''") & "', " & Me.Quantity & ")"
    CurrentDb.Execute insertSQL, dbFailOnError
End If

方法2：使用DAO记录集（更安全，避免SQL注入） #

直接操作记录集可以更灵活，同时避免拼接字符串带来的SQL注入风险：

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("FBB", dbOpenDynaset)

' 查找是否存在重复记录
rs.FindFirst "FBID = " & Me.FBID & " AND ProductName = '" & Replace(Me.ProductName, "'", "''") & "'"

If rs.NoMatch Then
    ' 无重复，新增记录
    rs.AddNew
    rs!FBID = Me.FBID
    rs!ProductName = Me.ProductName
    rs!Quantity = Me.Quantity
    rs.Update
Else
    ' 有重复，累加Quantity
    rs.Edit
    rs!Quantity = rs!Quantity + Me.Quantity
    rs.Update
End If

rs.Close
Set rs = Nothing

注意事项 #

• 代码中用Replace(Me.ProductName, "'", "''")是为了处理ProductName中包含单引号的情况，避免SQL语法错误。
• 推荐使用方法2的DAO记录集方式，不仅更安全，也更易维护。
• 确保FBB表中FBID和ProductName组合是唯一的逻辑键，可以考虑给这两个字段创建复合索引（不需要唯一约束，但能加快查找速度）。

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