初学者的问题。帮帮忙！

okjklok

想用Access做简单的个出入库管理。
可我在窗体中取消按钮用Docmd.close , , acsaveno 结果还是保存了，莫名其妙：－）
还有我入库时用
    newVal = Me.Form!产品数量
    productId = Me.Form!产品编号
   
    DoCmd.RunSQL "UPDATE [产品信息] " & _
    "SET [库存量] = [库存量] + " & Str(newVal) & _
    " WHERE [产品编号] = '" & productId & "';"
结果提示我有一条记录要保存，我选了确定，却库存量并没有改变。
谁能帮我解答，谢谢了。
谁有出入库的源码，给我一份，yellowair@icqmail.com

zhuyiwen

acsaveno：表示窗体不保存，而不是窗体中的数据不保存

tmtony

第一个保存或不保存是指窗体的设计，你可用cancelevent事件或在dirty事件设置cancel值来实现你要的功能
每二个问题你更新的表与你现在窗体绑定的表是不是同一个表？

okjklok

我要更新的表与窗体绑定的表不是同一个表

zhuyiwen

不要用宏，用VBA代码

okjklok

我填了入库单，一方面我将入库单保存在入库信息中，另外我也得在另一个表产品信息中更新库存量，怎样实现比较简单可靠呢，能否给我写写代码，谢谢谢谢了！用RunSql为什么不行？

tmtony

我没法调试， 不知问题是不是Str(newVal)？
你把"UPDATE [产品信息] " & _
    "SET [库存量] = [库存量] + " & Str(newVal) & _
    " WHERE [产品编号] = '" & productId & "';"
信息显示在debug 窗口里，然后把它COPY粘贴到查询中看看这个SQL语句出错在哪里

okjklok

我去掉了str， 运行查询UPDATE [产品信息] SET [库存量] = [库存量] + 9 WHERE [产品编号] = 'aaaaa1'; 表面像是成功的，可实际一点改变也没有

okjklok

妈妈的，找到原因了，不知什么时候库存量变成了null，不是零。
现在问问能否将更新后的提示（将要更新的信息）的对话框不要跳出来。
我现在把代码放在Form_AfterUpdate事件中。

tmtony

你是在查询里运行这个SQL语句，还是在程序里运行的
有没有取消on error resume next 等错误处理语句。