MS Access中INSERT INTO无法插入变量值问题求助

问题原因 #

你的INSERT SQL语句是硬编码的字符串，其中的RqPrtNum和RqPrtLnk被Access识别为参数占位符，而非VBA变量。SQL执行上下文与VBA变量上下文相互独立，Access无法识别字符串中的变量名，因此弹出输入框要求手动提供参数值。

解决方法 #

提供两种可靠的解决方式，按需选择：

方式1：字符串拼接（简单直接） #

将VBA变量的值直接嵌入SQL字符串中。注意：如果字段是文本类型，变量值需要用单引号包裹；若变量包含单引号，需先转义（将'替换为''）：

' 转义单引号（可选，若变量可能包含单引号则必须）
Dim safeRqPrtNum As String
Dim safeRqPrtLnk As String
safeRqPrtNum = Replace(RqPrtNum, "'", "''")
safeRqPrtLnk = Replace(RqPrtLnk, "'", "''")

' 执行插入
DoCmd.RunSQL "INSERT INTO Tbl_BOM_Requirments ([RequiredMaterialPrtNum],[PrtNmber_LinkField]) VALUES('" & safeRqPrtNum & "', '" & safeRqPrtLnk & "')"

方式2：参数化查询（安全推荐） #

使用参数化查询可以避免SQL注入风险，无需处理字符串转义，是生产环境的首选方案：

Dim qdf As QueryDef
' 创建临时查询定义
Set qdf = db.CreateQueryDef("", "INSERT INTO Tbl_BOM_Requirments ([RequiredMaterialPrtNum],[PrtNmber_LinkField]) VALUES(@PrtNum, @PrtLnk)")

' 绑定参数值
qdf.Parameters("@PrtNum") = RqPrtNum
qdf.Parameters("@PrtLnk") = RqPrtLnk

' 执行查询，dbFailOnError确保出错时抛出提示
qdf.Execute dbFailOnError

' 释放对象
Set qdf = Nothing

额外优化 #

原代码中Do Until rs.EOF循环内的If Not rs.EOF Then判断是多余的，可以直接移除，简化代码逻辑。

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