vba - 运行时错误 3075 缺少运算符

Question

当我使用 ms access 2007 时，它运行良好。我切换到 ms access 2010，现在它不起作用。

 DoCmd.RunSQL ("INSERT INTO Pending_Orders (Customer, ItemNumber, Description,   Qty, [Order #], Temp, ShipDate) VALUES (" & _
  "'" & Replace(rst!Customer, "'", "''") & "','" & rst![Item #] & "','" & rst!Description & "'," & rst!Qty & ",'" & rst![Order #] & "'," & NextTemp & ",#" & rst![Ship Date] & "#)")

我现在收到这个错误。

它可能是什么？

Answer 1

我建议您将上面代码中的单引号替换为双引号，这是像 Paul O'Connor 这样的名字的常见问题。还可以使用 CurrentDb.Execute 而不是 DoCmd.RunSQL。使用 currentBD，您可以抑制烦人的消息并查看更多信息。最后，始终使用字符串来获取 SQL 查询，这样调试会容易得多。

尝试以下操作，

strSQL = "INSERT INTO Pending_Orders (Customer, ItemNumber, Description, Qty, [Order #], " & _
         "Temp, ShipDate) VALUES (" & Chr(34) & rst!Customer & Chr(34) & _
         ", " & Chr(34) & rst![Item #] & Chr(34) & _
         ", " & Chr(34) & rst!Description & Chr(34) & _
         ", " & rst![Qty] & ", " & Chr(34) & rst![Order #] & Chr(34) & _
         ", " & NextTemp & ", " & Format(rst![Ship Date], "\#mm\/dd\/yyyy\#") & ")

CurrentDB.Execute strSQL