Access运行时错误2447：Insert into表操作无效运算符报错求助

错误根因 #

这个错误和SQL拼接逻辑无关，是VBA解析Me.控件名引用时失败导致的——只要Me.（或!）后面跟随的控件名不存在、拼写错误、引用路径不对，就会直接触发该错误，错误发生在SQL语句拼接之前，所以逐行检查SQL语法找不到问题。

排查步骤 #

当前代码只校验了m_1、u_1两个控件，但SQL拼接时一共引用了6个窗体控件，逐个核对以下控件的实际名称，90%的场景是拼写错误：

• Me.A_1：确认窗体上是否存在该名称的控件，有没有命名为其他名称（比如A1、Application_ID）
• Me.Clock_ID：确认控件名是否匹配，有没有简写为ClockID
• Me.Assinged_by：重点核对拼写——代码里写的是Assinged（少一个s，正确拼写为Assigned），如果窗体控件按正确拼写命名，这里就会引用失败
• Me.Request_number：确认控件是否存在，有没有命名为RequestNo等其他名称
  如果以上控件都存在，检查控件是否放在子窗体中：子窗体内的控件不能直接用Me.控件名引用，需要写成Me.子窗体容器控件名.Form.控件名的格式。

修复后代码 #

先把所有控件取值逻辑单独拆分，哪行取值报错就能直接定位到问题控件，同时补全空值校验、单引号转义、日期格式适配的问题：

Dim strA1 As String, strM1 As String, strU1 As String, strClock As String
Dim strAssignBy As String, strReqNo As String
' 提前逐行取控件值，报错可直接定位问题控件，Nz函数自动将Null值转为空串
strM1 = Nz(Me.m_1, "")
strU1 = Nz(Me.u_1, "")
strA1 = Nz(Me.A_1, "")
strClock = Nz(Me.Clock_ID, "")
strAssignBy = Nz(Me.Assinged_by, "")
strReqNo = Nz(Me.Request_number, "")

' 补全所有字段的非空校验
If strM1 = "" Or strU1 = "" Or strA1 = "" Or strClock = "" Or strAssignBy = "" Or strReqNo = "" Then
    MsgBox "Please add all needed info"
Else
    Dim sqls As String
    ' Access SQL日期类型用#包裹，统一格式化避免区域设置问题；文本值替换单引号避免语法错误
    sqls = "INSERT INTO User_access (Application_ID, Modul_ID, username_ID, Clock_ID, Assinged_date, Assinged_by, Request_number) " & _
           "VALUES('" & Replace(strA1, "'", "''") & "', '" & Replace(strM1, "'", "''") & "', '" & Replace(strU1, "'", "''") & "', '" & Replace(strClock, "'", "''") & "', " & _
           "#" & Format(Date, "yyyy-mm-dd") & "#, '" & Replace(strAssignBy, "'", "''") & "', '" & Replace(strReqNo, "'", "''") & "');"
    DoCmd.SetWarnings False ' 可选：关闭插入确认弹窗
    DoCmd.RunSQL sqls
    DoCmd.SetWarnings True ' 执行完务必重新打开警告
End If

额外注意事项 #

• 不要用IsNull(xxx) Or xxx = ""的写法判断空值，直接用Nz(xxx, "") = ""即可覆盖Null和空串两种场景
• 拼接Access SQL时，日期/时间类型的值必须用#包裹，不能用文本类型的单引号，建议统一格式化为yyyy-mm-dd格式，避免因系统短日期格式不同导致日期识别错误
• 所有文本类型值拼接前要把内容里的单引号替换为两个单引号，否则输入内容包含单引号时（比如姓名O'Conner）会触发SQL语法错误

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