Access VBA执行Update语句时触发Error 3073错误求助

Error 3073属于SQL语法错误，你的代码核心问题出在WHERE子句的字符串拼接上，引号与变量的组合逻辑混乱，导致生成的SQL语句不符合语法规范。

错误点定位 #

原代码的WHERE子句：

" WHERE StockLink= ' & Me.idtxt.'"

这里的引号未正确闭合，变量连接逻辑错误，最终生成的SQL语句是残缺且无效的。

修正方案 #

方案1：修正字符串拼接（临时应急） #

根据StockLink的数据类型调整写法：

• 若StockLink是数值类型（如整数）：

CurrentDb.Execute "UPDATE dbo_Stock " & _
                  " SET StockLink = " & Me.idtxt & _
                  ", Code = '" & Me.codetxt & "'" & _
                  ", Details = '" & Me.dettxt & "'" & _
                  " WHERE StockLink = " & Me.idtxt

• 若StockLink是文本类型：

CurrentDb.Execute "UPDATE dbo_Stock " & _
                  " SET StockLink = '" & Me.idtxt & "'" & _
                  ", Code = '" & Me.codetxt & "'" & _
                  ", Details = '" & Me.dettxt & "'" & _
                  " WHERE StockLink = '" & Me.idtxt & "'"

方案2：使用参数化查询（推荐，规避SQL注入与语法问题） #

直接拼接用户输入不仅易出语法错误，还存在SQL注入风险，参数化查询是更安全可靠的写法：

Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("", _
    "UPDATE dbo_Stock " & _
    " SET StockLink = @StockLink, Code = @Code, Details = @Details " & _
    " WHERE StockLink = @OriginalStockLink")

' 绑定参数值
qd.Parameters("@StockLink") = Me.idtxt
qd.Parameters("@Code") = Me.codetxt
qd.Parameters("@Details") = Me.dettxt
qd.Parameters("@OriginalStockLink") = Me.idtxt

' 执行更新（出错时抛出详细错误）
qd.Execute dbFailOnError
Set qd = Nothing

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