Access VBA中INSERT INTO SELECT SQL报错：查询值与目标字段数量不匹配

错误原因 #

你的SQL语句存在两个核心问题：

• 字段数量不匹配：目标表TransactionHistory指定了13个字段，但VALUES子句结构错误——你把返回10个字段的子查询当成单个值传入，导致实际提供的值总数（1个TransactionNum + 1个错误的子查询块 + 1个DateTimeToday + 1个TransactionType）远少于13个，触发报错。
• 子查询用法错误：VALUES里不能直接放返回多字段的子查询，这种场景应该用INSERT...SELECT语法组合固定值和查询结果。

修正后的SQL语句 #

直接用INSERT...SELECT替代INSERT...VALUES，把固定值和BusPassengers的查询结果按目标表字段顺序拼接：

INSERT INTO TransactionHistory (
    [TransactionNumber]
    ,[UniqueID]
    ,[Replica_UniqueID]
    ,[FullName]
    ,[BusName]
    ,[PlateNumber]
    ,[Location]
    ,[Destination]
    ,[Price]
    ,[TimeOut]
    ,[DateOut]
    ,[DateTimeOfTransaction]
    ,[TypeOfTransaction]
)
SELECT 
    " & TransactionNum & " AS TransactionNumber,
    UniqueID,
    Replica_UniqueID,
    FullName,
    BusName,
    PlateNumber,
    Location,
    Destination,
    Paid AS Price, -- 对应目标表的Price字段
    TimeOfDeparture AS TimeOut, -- 对应TimeOut字段
    DateOfDeparture AS DateOut, -- 对应DateOut字段
    '" & DateTimeToday & "' AS DateTimeOfTransaction,
    '" & TransactionType & "' AS TypeOfTransaction
FROM BusPassengers
WHERE BusName = '" & BusName & "'

关键注意事项 #

• 确保BusPassengers的Paid与TransactionHistory的Price、TimeOfDeparture与TimeOut、DateOfDeparture与DateOut字段类型匹配，避免类型转换错误。
• 必须使用参数化查询，不要直接拼接字符串到SQL语句中，这会引发SQL注入风险，还能规避日期、字符串格式导致的语法问题。

内容的提问来源于stack exchange，提问作者Automie Is Here