Question

以下查询导致零行更新

但我确信有更新的记录

DoCmd.RunSQL (" Update tbltesting set IsDiff ='Yes' " & _
                "where empid= " & Me.txtEmpId.Value & _
                " and testid= " & Me.txtAutoNumber.Value & ";")

请帮助!!

Answer 1

运行此项作为检查，以确保您的字段包含您认为他们拥有的数据：

DoCmd.RunSQL (" SELECT * FROM tbltesting " & _
                "WHERE empid= " & Me.txtEmpId.Value & _
                " and testid= " & Me.txtAutoNumber.Value & ";")

顺便说一句，你可以省去.Value部分。

Answer 2

也许你需要围绕WHERE参数的单引号：

DoCmd.RunSQL (" Update tbltesting set IsDiff ='Yes' where empid= '" & Me.txtEmpId.Value & "' and testid= '" & Me.txtAutoNumber.Value & "';")

Answer 3

尝试删除 .Value 和; 如果仍未更新，请将“是”更改为1.

您也可以在没有单引号的情况下尝试“是”。

Answer 4

在调试模式下，将带有实际值的delete语句剪切并粘贴到您正在使用的任何数据库开发环境中 - 在数据库中运行查询，这将告诉您是否存在语法问题或数据问题

VBA更新查询

4 个答案: