请各位老师帮助写一个一次性出库的窗体命令代码！谢谢

yanwei82123300

请各位老师帮助写一个一次性出库的代码！谢谢
附件是一个例子，请各位老师帮助写一个窗体的命令代码，用于一次性将表名“tblTemp”的RQST_QTY数量一次性进行出库.:即一次性削减库存表"tblProduct_Stock_Remote"中的Real_Qty数量，Available_Qty数量，并将tblTemp”的字段ITEM;In_Out_Date;ID Motive;In_Out;RQST_QTY;Note追加进历史记录表tblStockIn_Out_Remote相应的字段中去，谢谢

风中漫步

先用insert into追加,再用update更新试试

风中漫步

大概这样,你试试看
insert into tblStockIn_Out_Remote (...) select  ITEM,In_Out_Date,ID Motive,In_Out,RQST_QTY,Note from tblTemp

update tblProduct_Stock_Remote set Real_Qty=0，Available_Qty=0 where (real_qty<>0 or avaliable_qty<>0)

yanwei82123300

哪位老师帮助修改一下例子，谢谢

yanwei82123300

各位老师，我写了代码，

    strSQL = "INSERT INTO tblStockIn_Out_Remote ( ITEM, In_Out_Date, ID_Motive, In_Out, Quantity, [Note] )"
    strSQL = strSQL + " SELECT tblTemp.ITEM, tblTemp.In_Out_Date, tblTemp.ID_Motive, tblTemp.In_Out, tblTemp.RQST_QTY, tblTemp.Note"
    strSQL = strSQL + " FROM tblTemp "

CurrentDb.Execute (strSQL)

   strSQL = "UPDATE tblProduct_Stock_Remote INNER JOIN tblTemp ON tblProduct_Stock_Remote.ITEM = tblTemp.ITEM SET tblProduct_Stock_Remote.Real_Qty = [tblProduct_Stock_Remote]![Real_Qty]-[tblTemp]![RQST_QTY],tblProduct_Stock_Remote.Available_Qty = [tblProduct_Stock_Remote]![Available_Qty]-[tblTemp]![RQST_QTY]"
  CurrentDb.Execute (strSQL)