Access VBA中SQL INSERT主键自增异常：重复组合无法新增记录求助

核心问题 #

1. 错误手动管理AutoNumber主键：ResultId是AutoNumber类型主键，Access会自动为新记录分配唯一值，手动生成intResultID不仅多余，还可能因并发操作或空表场景导致主键冲突/赋值错误。
2. 未声明变量导致静默错误：代码中strDescription未声明，且未开启Option Explicit，执行时会触发运行时错误，但因On Error GoTo Error_Routine未做错误提示，导致代码中断后无反馈，看起来像"无法新增记录"。
3. 空记录集处理逻辑缺陷：当StudentResult表为空时，rst!ResultId会直接报错，导致后续插入逻辑无法执行。

修复步骤 #

• 移除所有手动生成ResultId的代码，INSERT语句中不再指定该字段，由Access自动维护。
• 在模块顶部添加Option Explicit强制变量声明，避免未定义变量的静默错误。
• 完善错误处理逻辑，捕获并显示错误信息，方便调试。
• 优化变量赋值与插入语句的写法，避免类型拼接错误。

修改后的完整代码 #

Option Explicit

Private Sub btnAddInfo_Click()
    On Error GoTo Error_Routine
    
    'Declare variables
    Dim intStudentID As Integer
    Dim intTestID As Integer
    Dim dblMark As Double
    ' 移除intResultID，不再手动管理AutoNumber主键
    
    'Declare database
    Dim db As DAO.Database
    ' 不再需要查询最大ResultId的记录集
    
    'Set the database
    Set db = CurrentDb
    
    'Assigns value to variables
    intStudentID = Forms!frmAdd!lstStudentID
    ' 移除未使用的strDescription变量
    dblMark = Forms!frmAdd!txtMark.Value ' 明确指定表单控件路径
    intTestID = Forms!frmAdd!lstTest
    
    'Checks that Student ID has been selected
    If Not IsNull(intStudentID) Then ' 直接检查变量而非控件，避免控件引用错误
        'Inserts new test record into StudentResult table
        ' 移除ResultId字段，由Access自动生成
        db.Execute "INSERT INTO StudentResult (StudentId, TestId, Mark) VALUES " _
            & "(" & intStudentID & ", " & intTestID & ", " & dblMark & ");", dbFailOnError
    End If
    
    'Clears fields
    Forms!frmAdd!txtMark.Value = ""
    Forms!frmAdd!lstStudentID.Value = ""
    Forms!frmAdd!lblExistingStudent.Caption = "Existing Student Name:"
    
Exit_Routine:
    'Closes database
    Set db = Nothing
    Exit Sub

Error_Routine:
    MsgBox "操作失败：" & Err.Description & "（错误代码：" & Err.Number & "）", vbCritical
    Resume Exit_Routine
End Sub

额外说明 #

• 使用dbFailOnError参数：确保INSERT操作失败时触发错误，便于捕获问题。
• 明确控件路径：直接通过Forms!frmAdd!控件名引用，避免因焦点变化导致的控件引用错误。
• 允许重复的StudentId+TestId组合：因为主键是唯一的ResultId，同一学生同一测试的重考记录会生成新的ResultId，完全符合业务需求。

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