Access使用Addnew批量添加记录时触发无依据的重复记录报错

我需要实现批量添加连续日期的记录，同时复制EventID、DayType和Period字段的值。这些字段均非表中唯一字段，但系统持续提示重复记录，新记录并未添加到表中，实际表内并无重复数据。

表tblEventDays拥有自增唯一ID字段（名为ID）。代码昨日正常运行且未做修改，调试时错误指向rsEventDayGroup.Update语句，修改查询语句为直接选择表也无法解决问题。

相关代码： #

Public Sub Create_Click()

    Dim rsEventDayGroup  As DAO.Recordset
    Dim NextDate As Date

    Set rsEventDayGroup = CurrentDb.OpenRecordset("Select * From tblEventDays")

    NextDate = Me!Start.Value
    While DateDiff("d", NextDate, Me!End.Value) >= 0
            rsEventDayGroup.AddNew
                rsEventDayGroup!Start.Value = NextDate
                rsEventDayGroup!EventID.Value = Forms!frmEvents.Controls!ID.Value
                rsEventDayGroup!DayType.Value = Me!DayType.Value
                rsEventDayGroup!Period.Value = Me!Period.Value
            rsEventDayGroup.Update
        NextDate = NextDate + 1
    Wend
    rsEventDayGroup.Close

    Set rsEventDayGroup = Nothing

End Sub

核心排查与修复方案 #

1. 检查复合唯一索引
   单个字段无唯一约束，但表可能存在复合唯一索引（比如Start+EventID+DayType+Period的组合）。打开表设计视图，切换到「索引」面板，查看是否有包含这些字段的组合索引——这种情况下，相同组合的记录会触发重复键错误，哪怕自增ID不同。若存在此类索引，可根据业务需求调整或删除。

2. 清理日期的时间部分
   如果Me!Start.Value包含时间戳（比如从窗体控件获取的是yyyy-mm-dd hh:mm:ss格式），即使显示为日期，实际存储的时间值可能导致插入时的隐性重复。修改NextDate的初始化代码，强制转为纯日期：

   NextDate = DateValue(Me!Start.Value)
   

3. 改用SQL批量插入替代DAO记录集
   DAO记录集的Update操作可能受窗体绑定或隐性约束影响，直接用INSERT INTO语句更稳定高效，还能避免记录集操作的潜在问题：

   Public Sub Create_Click()
       Dim NextDate As Date
       Dim strSQL As String
       
       ' 强制转为纯日期，避免时间戳干扰
       NextDate = DateValue(Me!Start.Value)
       
       While DateDiff("d", NextDate, Me!End.Value) >= 0
           ' 构造SQL插入语句，转义单引号避免语法错误
           strSQL = "INSERT INTO tblEventDays (Start, EventID, DayType, Period) " & _
                    "VALUES (#" & Format(NextDate, "yyyy-mm-dd") & "#, " & _
                    Forms!frmEvents!ID & ", '" & Replace(Me!DayType, "'", "''") & "', '" & Replace(Me!Period, "'", "''") & "')"
           
           ' 执行SQL，开启错误捕获确保插入失败时抛出明确错误
           CurrentDb.Execute strSQL, dbFailOnError
           
           NextDate = NextDate + 1
       Wend
   End Sub
   

4. 验证控件取值合法性
   确认Forms!frmEvents!ID、Me!DayType、Me!Period的取值是否符合字段要求：

   • 检查是否存在多余空格或不可见字符
   • 确认EventID是有效数值，而非空值或文本

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