Question

我需要一些帮助，抱歉，我是VBA的新手，我正在尝试运行更新查询，该查询应从变量中获取值并更新已存在的表。这是使用VBA完成的。执行时，不会显示错误消息，但不会使用新值更新表。代码如下：

Query = "UPDATE Results " & _
        "SET fk_Report='" & Report & "'" & _
            ",fk_Name='" & Namevar & "'" & _
            ",fk_Age='" & Agevar & "'" & _
            ",fk_Sex='" & Sexvar & "'" & _
        "WHERE [Count]='" & Countvar & "'" & _
            ",[Positives]='" & Posvar & "'" & _
            ",[Negatives]='" & Negvar & "'" & _
            ",[Unknow]='" & Unkvar & "';"
    CurrentDb.Execute (Query)

如果有人可以提供帮助......

Answer 1

你不需要where子句中的逗号

Query = "UPDATE Results " & _
    "SET fk_Report='" & Report & "'" & _
        ",fk_Name='" & Namevar & "'" & _
        ",fk_Age='" & Agevar & "'" & _
        ",fk_Sex='" & Sexvar & "'" & _
    "WHERE [Count]='" & Countvar & "' " & _
        "AND [Positives]='" & Posvar & "' " & _
        "AND [Negatives]='" & Negvar & "' " & _
        "AND [Unknow]='" & Unkvar & "';"
CurrentDb.Execute (Query)

Answer 2

在WHERE子句

之后使用AND代替，（逗号）

我正在尝试在Access VBA中更新我的表中的一些字段

2 个答案: