[求助]更新数据库MSGBOX

juliazj20

我建立一个按钮copysalary，on click事件编写如下代码

Private Sub copysalary_Click()

If MsgBox("Are you sure to copy the new salary to Employee table?", vbOKCancel, "Confirm copy new salary to Employee table") = vbOK Then

    DoCmd.RunSQL "update Employee set salary=" & Forms!annualform!NewSalary.Value & " where empno=" & Forms!annualform!EmpNo.Value & ";"

    Else

    Exit Sub

End If

End Sub

点击之后，先跳出窗口：我写的MSGBOX里输入的文字，后来跳出MICROSOFT ACCESS：you are about to update 0 row(s).为什么是0 rows?

[此贴子已经被作者于2005-1-28 10:16:26编辑过]

oyney

就是0条记录。

青青

如果您觉得应该有记录要更新，请检查DoCmd.RunSQL 里的语句是否准确。比如：Forms!annualform!NewSalary.Value 和Forms!annualform!EmpNo.Value 的数据类型都是否为数值型等。