Dim curdb As Database
Dim curRS As Recordset
Dim deviceCnt As Integer
Set curdb = CurrentDb
Set curRS = curdb.OpenRecordset("select * from tblfb where 产品编号='" & 产品编号.Value & "'")
If Not curRS.EOF Then
deviceCnt = curRS.Fields("库存数量")
deviceCnt = deviceCnt + CInt(入库数量.Value)
curdb.Execute "update tblfb set 库存数量=" & curRS.Fields("库存数量").Value + CInt(入库数量.Value) & "where 产品编号='" & 产品编号.Value & "'"
Else
With curRS
.AddNew （数据类型）
.Fields("类别") = 类别.Value 文本
.Fields("产品编号") = 产品编号.Value 文本
.Fields("产品名称") = 产品名称.Value 文本
.Fields("库存数量") = CInt(入库数量.Value) 数量
.Fields("库存单位") = 库存单位.Value 文本
.Fields("单价") = 单价.Value 货币
.Fields("入库时间") = 入库时间.Value 日期
.Fields("备注") = 备注.Value 备注
End With
End If
