Access VBA Insert Into语句语法错误求助：列表框选中项写入数字字段

咱们直接拆解你遇到的语法问题，主要是SQL拼接的细节没处理到位，以下是具体分析和修正方案：

核心错误点解析 #

1. 带空格的字段名未加标识符包裹
   Access SQL里，字段名包含空格（比如Components ID）时，必须用方括号[]把整个字段名括起来，不然数据库会把它当成两个独立的标识符，直接触发语法错误。你原来的(Components ID)要改成([Components ID])。

2. SQL语句拼接的空格缺失
   你的代码拼接后，(Components ID)和Values会连在一起（变成(Components ID)Values(...)），SQL引擎根本识别不了这种写法，必须在Values前面加一个空格，也就是写成" VALUES("。

3. ListBox.Column索引的正确性
   要确认Me.listComponents1.Column(X)里的X是对应数字值的列索引（Access的Column索引是从0开始的），而且因为目标字段是数字类型，不需要给值加引号，直接拼接就行。

修正后的代码示例 #

Dim varItem As Variant
Dim strSQL As String

For Each varItem In Me.listComponents1.ItemsSelected
    ' 注意字段名的方括号、Values前的空格，以及Column索引（假设数字值在第1列，索引为0）
    strSQL = "INSERT INTO tblMasterData " & _
             "([Components ID]) " & _
             "VALUES(" & Me.listComponents1.Column(0, varItem) & ")"
    ' 执行SQL，dbFailOnError可以帮你捕获执行时的其他错误
    CurrentDb.Execute strSQL, dbFailOnError
Next varItem

更安全的优化方案 #

为了避免后续再出现拼接类的语法问题，同时防范SQL注入风险，推荐使用参数化查询：

Dim varItem As Variant
Dim qdf As QueryDef
Dim strSQL As String

' 定义带参数的SQL模板
strSQL = "INSERT INTO tblMasterData ([Components ID]) VALUES (?)"

For Each varItem In Me.listComponents1.ItemsSelected
    Set qdf = CurrentDb.CreateQueryDef("", strSQL)
    ' 给参数赋值，自动适配数字类型
    qdf.Parameters(0) = Me.listComponents1.Column(0, varItem)
    qdf.Execute dbFailOnError
    Set qdf = Nothing
Next varItem

这种方式不需要手动拼接字符串，能彻底规避因格式、特殊字符引发的语法问题，也更安全。

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