vba模块中的sql查询中的变量

Question

我正在尝试将变量的值传递给vba模块中用于ACCESS的UPDATE sql查询。

Dim x As Long
x = DSum("[column1]", "table1")
DoCmd.RunSQL " UPDATE table1 SET column2 = x"

不是将指定的x值传递给column2，而是提示参数弹出窗口询问值。有任何建议和/或更正吗？

Answer 1

您需要从引用中排除x：

DoCmd.RunSQL " UPDATE table1 SET column2 = " & x

如果它包含在引号中，编译器只使用字母 x （而不是分配给变量x的值）。

如果它从引号中排除并附加了＆符号，则编译器知道您的意思是使用赋给变量x的值。