Access查询中批量插入时Number类型ID字段递增的实现问题

问题原因 #

你用DMax('[fieldName]', '[tableName]') + 1的方式失败，是因为在追加查询中，DMax只会执行一次，所有待插入的记录都会取同一个最大ID值加1，导致ID重复（如果ID是主键），所以只有第一条记录能成功插入，后续因主键冲突被拒绝。

解决方案 #

方案1：用Access SQL追加查询（适合从现有数据源批量插入） #

如果待插入的记录来自另一个表/查询，可通过生成连续行号的方式，结合当前最大ID计算每条记录的唯一ID。

适用于Access 2010及以上版本（支持ROW_NUMBER()函数）

INSERT INTO 目标表名 (ID, 字段1, 字段2)
SELECT 
    (SELECT Nz(DMax('ID', '目标表名'), 0)) + ROW_NUMBER() OVER (ORDER BY 数据源表名.排序字段) AS 新ID,
    数据源表名.字段1,
    数据源表名.字段2
FROM 数据源表名;

• Nz(DMax(...), 0)是为了处理目标表为空的情况，避免出现Null值
• ORDER BY后的字段用于确保行号连续，可根据实际需求选择排序字段

适用于旧版Access（不支持ROW_NUMBER()）

用子查询生成行号：

INSERT INTO 目标表名 (ID, 字段1, 字段2)
SELECT 
    (SELECT Nz(DMax('ID', '目标表名'), 0)) + (SELECT COUNT(*) FROM 数据源表名 t2 WHERE t2.排序字段 <= t1.排序字段) AS 新ID,
    t1.字段1,
    t1.字段2
FROM 数据源表名 t1;

方案2：用VBA代码批量插入（灵活度更高） #

如果需要手动控制插入内容，或者数据源逻辑复杂，用VBA循环插入更可靠，同时避免ID重复问题。

从现有数据源批量插入

Sub 批量插入记录()
    Dim db As DAO.Database
    Dim rsSource As DAO.Recordset
    Dim maxID As Long
    Dim currentID As Long
    
    Set db = CurrentDb()
    ' 获取目标表当前最大ID，空表时设为0
    maxID = Nz(DMax("ID", "目标表名"), 0)
    currentID = maxID
    
    ' 打开待插入的数据源（可替换为你的查询/表名）
    Set rsSource = db.OpenRecordset("SELECT 字段1, 字段2 FROM 数据源表名")
    
    If Not rsSource.EOF Then
        rsSource.MoveFirst
        Do While Not rsSource.EOF
            currentID = currentID + 1
            ' 处理文本字段的单引号，避免SQL语法错误
            Dim safeField1 As String
            safeField1 = Replace(rsSource!字段1, "'", "''")
            
            ' 执行插入
            db.Execute "INSERT INTO 目标表名 (ID, 字段1, 字段2) VALUES (" & currentID & ", '" & safeField1 & "', " & rsSource!字段2 & ")"
            ' 移动到下一条源记录（这步很重要，否则会重复插入第一条）
            rsSource.MoveNext
        Loop
    End If
    
    rsSource.Close
    Set rsSource = Nothing
    Set db = Nothing
    MsgBox "批量插入完成"
End Sub

手动指定插入数量

如果是固定条数的插入，可直接用循环生成ID：

Sub 插入指定条数记录()
    Dim db As DAO.Database
    Dim maxID As Long
    Dim insertCount As Integer
    Dim i As Integer
    
    insertCount = 10 ' 要插入的记录数
    Set db = CurrentDb()
    maxID = Nz(DMax("ID", "目标表名"), 0)
    
    For i = 1 To insertCount
        db.Execute "INSERT INTO 目标表名 (ID, 字段1) VALUES (" & (maxID + i) & ", '自动生成记录" & i & "')"
    Next i
    
    Set db = Nothing
    MsgBox insertCount & "条记录插入完成"
End Sub

注意事项 #

• 如果ID字段是主键，必须确保生成的ID唯一，上述方案均基于当前最大ID递增，避免冲突
• 文本字段插入时要处理单引号，否则会触发SQL语法错误
• 批量插入前建议备份数据，避免操作失误导致数据丢失

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