Question

我正在尝试在某些语句为真时在表单上运行更新查询命令。我正在从变量更新字段。这是我到目前为止运行SQL但它似乎没有工作，我无法弄清楚为什么。

有什么建议吗？

fldval = Me.AdvHours

DoCmd.RunSQL "UPDATE dbo_employees " & _
                    "SET dbo_employees.advhours = '" & _
                    fldval & "'" & _
                    "WHERE ((dbo_employees.empid)=" & EmpID & "));"

Answer 1

额外关闭) - WHERE之前缺少空间（多数情况下可以肯定）

所有括号都是不必要的，Access只是对它们有一种迷恋。

DoCmd.RunSQL "UPDATE dbo_employees " & _
                    "SET dbo_employees.advhours='" & _
                    fldval & "' " & _
                    "WHERE dbo_employees.empid=" & EmpID & ";"

VBA MSAccess中的SQL命令帮助

1 个答案: