Access VB代码无法运行：编译失败代码段求助

你的这段Access VBA代码编译/运行失败的核心原因是直接把VBA变量lngRecordsAdded嵌入到了SQL字符串中——Access的SQL解析器会把它当成字段名或字符串常量，而不是你定义的变量值，自然会报错。

下面给你两种可行的解决办法，优先推荐第一种更安全的方式：

方法1：使用参数查询（推荐，防SQL注入+避免语法坑） #

参数查询是处理VBA与SQL交互的最佳实践，既安全又能避开字符串拼接的各种麻烦：

Dim qdf As QueryDef
' 创建临时查询定义，带参数占位符
Set qdf = CurrentDb.CreateQueryDef("", _
    "UPDATE InspEvent SET SpecsLoaded = [pRecords] WHERE EventId = [pEventId];")

' 给参数赋值
qdf.Parameters("[pRecords]") = lngRecordsAdded
qdf.Parameters("[pEventId]") = Forms!frmInspEvent!txtEventId.Value

' 执行查询，dbFailOnError会在出错时抛出明确错误
qdf.Execute dbFailOnError

' 清理对象
Set qdf = Nothing

方法2：正确拼接字符串（适合简单场景） #

如果一定要用字符串拼接的方式，需要把变量值直接插入到SQL语句中，注意数值型变量不用加引号，文本型变量需要加单引号：

当EventId是数值类型时： #

DoCmd.RunSQL "UPDATE InspEvent " & _
    "SET InspEvent.SpecsLoaded = " & lngRecordsAdded & " " & _
    "WHERE InspEvent.EventId = " & Forms!frmInspEvent!txtEventId & ";"

当EventId是文本类型时： #

DoCmd.RunSQL "UPDATE InspEvent " & _
    "SET InspEvent.SpecsLoaded = " & lngRecordsAdded & " " & _
    "WHERE InspEvent.EventId = '" & Forms!frmInspEvent!txtEventId & "';"

额外排查技巧 #

如果还是有问题，可以先把拼接后的SQL打印出来，直接在Access查询里测试，快速定位语法错误：

Dim strSQL As String
strSQL = "UPDATE InspEvent " & _
    "SET InspEvent.SpecsLoaded = " & lngRecordsAdded & " " & _
    "WHERE InspEvent.EventId = " & Forms!frmInspEvent!txtEventId & ";"
Debug.Print strSQL ' 按Ctrl+G打开立即窗口查看完整SQL语句
DoCmd.RunSQL strSQL

另外还要确认：

• lngRecordsAdded已经被正确赋值，不是未定义或空值
• 表单frmInspEvent处于打开状态，且txtEventId控件有有效内容

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