Access中组合框与SQL搭配时出现INSERT INTO语句语法错误（错误3134）

嘿，我来帮你搞定这个Access的INSERT语法错误（错误码3134）问题！先看你的代码，最可能的元凶是Access的保留字冲突，还有几个潜在的语法坑，我给你一步步拆解：

1. 最紧急的问题：保留字Level #

Level是Access的内置保留字，直接把它作为字段名写在SQL里会导致数据库解析语句时出错。你需要把字段名用方括号括起来，改成[Level]。

这是你原语句里的字段列表部分，修改后应该是：

INSERT INTO Results (Student_ID, Class_ID, Test_Type, Student_Score, Total_Score, [Level])

2. 其他潜在的语法坑 #

即使修复了保留字问题，下面这些情况也可能触发同样的错误：

• 空值导致的语法断裂：如果你的数值控件（比如txtStudentScore）是空的，拼接出来的SQL会出现, ,这种无效结构，Access无法识别。
• 字符串中的单引号：如果cboTestType.Column(1)或cboTeacher.Column(2)里有像O'Malley这样带单引号的内容，会直接打断SQL的引号结构，导致语法错误。
• 数据类型不匹配：如果Student_ID或Class_ID是文本类型，你现在没加单引号会导致类型错误；反之如果是数值类型，加了引号也会出错。

3. 修复方案 #

方案一：临时修复字符串拼接（快速验证） #

给保留字加方括号，同时用Nz处理空值，用Replace转义单引号：

Private Sub addResult_Click()
    Dim strSQL As String
    strSQL = "INSERT INTO Results (Student_ID, Class_ID, Test_Type, Student_Score, Total_Score, [Level]) " & _
             "VALUES (" & Nz(Me.cboStudents.Column(0), 0) & ", " & Nz(Me.cboTeacher.Column(0), 0) & ", " & _
             "'" & Replace(Me.cboTestType.Column(1), "'", "''") & "', " & Nz(Me.txtStudentScore.Value, 0) & ", " & _
             Nz(Me.txtTotalScore.Value, 0) & ", '" & Replace(Me.cboTeacher.Column(2), "'", "''") & "')"
    CurrentDb.Execute strSQL
End Sub

方案二：推荐使用参数化查询（彻底解决） #

字符串拼接的方式很容易踩坑，参数化查询既能避免所有语法问题，还能提高安全性（虽然Access注入风险低，但好习惯很重要）：

Private Sub addResult_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    
    Set db = CurrentDb
    ' 用?作为参数占位符，不用管引号和保留字
    strSQL = "INSERT INTO Results (Student_ID, Class_ID, Test_Type, Student_Score, Total_Score, [Level]) " & _
             "VALUES (?, ?, ?, ?, ?, ?)"
    
    Set qdf = db.CreateQueryDef("", strSQL)
    ' 按顺序给参数赋值，Nz处理空值避免报错
    qdf.Parameters(0) = Nz(Me.cboStudents.Column(0), 0)
    qdf.Parameters(1) = Nz(Me.cboTeacher.Column(0), 0)
    qdf.Parameters(2) = Nz(Me.cboTestType.Column(1), "")
    qdf.Parameters(3) = Nz(Me.txtStudentScore.Value, 0)
    qdf.Parameters(4) = Nz(Me.txtTotalScore.Value, 0)
    qdf.Parameters(5) = Nz(Me.cboTeacher.Column(2), "")
    
    qdf.Execute dbFailOnError ' 执行时如果出错会抛出明确错误信息
    Set qdf = Nothing
    Set db = Nothing
End Sub

先试把Level改成[Level]，如果还是报错，再检查空值和单引号的情况，最稳妥的是直接用参数化查询。

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