更新出入流水库流水账表中对应编号记录中的欠款字段时:语句为
Dim str1 As String
str1 = "是否要冲销编号为" + Str(Form_供应商应付款子窗体.编号) + "的应付款记录?"
If MsgBox(str1, vbOKCancel) = vbOK Then
'如果确认,就建立添加单位查询的一个实例
Set r = CurrentDb.QueryDefs("冲销应付款")
'创建SQL-Update语句
s = "update 出入库流水账 set 欠款=" + Str(0) + " where 编号=" + Str(Form_供应商应付款子窗体.编号)
'设置记录集的SQL语句
r.sql = s
'执行SQL语句
r.Execute