表之间的累加和递减

谢谢！两位大师，我已经自己找到了适合自己现在用的代码

Dim curdb As Database
Dim curRS As Recordset
Dim deviceCnt As Integer
Set curdb = CurrentDb
Set curRS = curdb.OpenRecordset("select * from 汇总表的名称 where 产品编号='" & 产品编号.Value & "'")
If Not curRS.EOF Then
deviceCnt = curRS.Fields("库存数量")
deviceCnt = deviceCnt + CInt(库存数量.Value)
curdb.Execute "update 汇总表的名称 set 库存数量=" & curRS.Fields("库存数量").Value + CInt(库存数量.Value) & "where 产品编号='" & 产品编号.Value & "'"
Else