MS Access Insert Into语句类型不匹配问题排查求助

问题描述 #

需将tblSCSPartNumbering表的3个字段插入到Tbl_BOM_Requirments表中，匹配条件为PrtNmber_LinkField = [SCS Part Number]且ID = [ID]，但执行时始终报类型不匹配错误，原VBA代码如下：

Private Sub RequiredMaterialPrtNum_AfterUpdate()

Dim db As DAO.Database
Dim MrTestical As String
Dim SCSprtNum As String
Dim strSQL As String
Dim ScsId As String


MrTestical = Forms![RFQNewPartV2]![SCS Part Number]
SCSprtNum = Forms![RFQNewPartV2]![SCS Part Number]
ScsId = Me.ID

[PrtNmber_LinkField] = MrTestical

Set db = CurrentDb


 strSQL = "INSERT INTO Tbl_BOM_Requirments ([MstrBomPlySize],[MstrBomPlyQty],[ReqrdQty]) " & vbCrLf & _
"SELECT tblSCSPartNumbering.[PrtPlySizeMSTR],[PrtPlyCountMSTR],[PrtRqurdQtyMSTR]" & vbCrLf & _
"FROM tblSCSPartNumbering " & vbCrLf & _
"WHERE (tbl_BOM_Requirments.PrtNmber_LinkField) = """ & SCSprtNum & "" And (tbl_BOM_Requirments.ID) = """ & ScsId & """"""""
 db.Execute strSQL
     
End Sub

问题排查与修正 #

1. WHERE子句逻辑错误 #

INSERT...SELECT语句中，WHERE条件应筛选源表tblSCSPartNumbering的记录，而非目标表Tbl_BOM_Requirments——目标表此时未插入数据，关联目标表会导致逻辑混乱，也是类型不匹配的潜在诱因。

2. 字符串拼接引号错误 #

原SQL中引号拼接混乱，""" & SCSprtNum & "" And部分未正确闭合字符串引号，导致SQL语法错误，间接引发类型不匹配提示。

3. 数据类型不匹配 #

ScsId被定义为String类型，但Access中ID字段通常为自动编号/长整型，用字符串拼接会导致数字与字符串类型不匹配，需将ScsId改为对应数字类型。

修正后的代码 #

Private Sub RequiredMaterialPrtNum_AfterUpdate()
    Dim db As DAO.Database
    Dim SCSprtNum As String
    Dim strSQL As String
    Dim ScsId As Long ' 改为长整型，匹配ID字段类型

    ' 合并冗余赋值
    SCSprtNum = Forms![RFQNewPartV2]![SCS Part Number]
    ScsId = Me.ID
    [PrtNmber_LinkField] = SCSprtNum

    Set db = CurrentDb

    ' 修正WHERE子句（筛选源表）、引号拼接、数据类型处理
    strSQL = "INSERT INTO Tbl_BOM_Requirments ([MstrBomPlySize],[MstrBomPlyQty],[ReqrdQty]) " & vbCrLf & _
             "SELECT tblSCSPartNumbering.[PrtPlySizeMSTR], tblSCSPartNumbering.[PrtPlyCountMSTR], tblSCSPartNumbering.[PrtRqurdQtyMSTR]" & vbCrLf & _
             "FROM tblSCSPartNumbering " & vbCrLf & _
             "WHERE tblSCSPartNumbering.[对应匹配字段] = """ & SCSprtNum & """ AND tblSCSPartNumbering.[对应ID字段] = " & ScsId
    ' 注意：将[对应匹配字段]和[对应ID字段]替换为tblSCSPartNumbering表中与目标表匹配的实际字段名
    
    db.Execute strSQL, dbFailOnError ' 添加dbFailOnError便于捕获具体错误
End Sub

额外注意事项 #

• 务必将代码中的[对应匹配字段]和[对应ID字段]替换为tblSCSPartNumbering表中实际用于匹配的字段名（原代码错误使用目标表字段，需改为源表对应字段）。
• 添加dbFailOnError参数，执行时会抛出具体错误信息，便于进一步排查。
• 若SCS Part Number是数字类型，需去掉字符串引号，直接拼接数字。

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