Access中用vba实现窗体输入值记录到表中。
要实现功能的该窗体已有一个表作为记录源，我要把窗体中“存放位置”的输入信息记录到另一个表“库存”的“存放位置”。以下代码是原有的，请问如何更改？Private Sub 保存_Click() '定义“保存”按钮的“单击”事件过程DoCmd.RunCommand acCmdSaveRecordDim rs As New ADODB.RecordsetDim str_temp As Stringstr_temp = "select * from 库存 Where 产品ID =" & 产品ID & ""rs.Open str_temp, CurrentProject.Connection, adOpenDynamic, adLockOptimisticIf Not IsNull(rs) Thenrs("库存量") = rs("库存量") + 入库数量 '增加“库存”表中该产品的库存量rs.UpdateEnd Ifrs.CloseSet rs = NothingMsgBox "保存成功！"End Sub
第1个回答 2018-02-01
select * from 库存 where 产品ID='" & me.产品ID & "'"
if Not rs.BOF and Not rs.EOF then
CurrentDB.execute " update 库存 set 库存量=rs("库存量")+me.入库数量 where 产品ID='" & me.产品ID & "'"
end if追问
if Not rs.BOF and Not rs.EOF then
CurrentDB.execute " update 库存 set 库存量=rs("库存量")+me.入库数量 where 产品ID='" & me.产品ID & "'"
end if追问
谢谢帮助，但是这可怎么办：
看来你是初学者，一点问题都解决不了
追问是，对编程很不通窍，所以求教
追答不白啊
本回答被提问者和网友采纳
相似回答