请看看这段代码错在哪里？谢谢

yanwei82123300

1. Private Sub Receive_Status_AfterUpdate()
   
2. If MsgBox("是否进行收货?", vbInformation + vbYesNo) = vbNo Then
   
3. Me.Receive_Status = False
   
4. Exit Sub
   
5. End If
   
6. 
   
7. Dim SQLText As String
   
8. Dim Step As Integer
   
9. Step = 1
   
10. SQLText = "INSERT INTO [tblStockIn/Out_Remote] ([item], [Date], In_Out, [ID Motive], Quantity,Price,Total_Value)"
    
11. SQLText = SQLText + "SELECT Forms![frmPurchase_Order]![SubPo].Form![item] AS [item], date(), AS [Date], 'I' AS [IN_Out], '03' AS [ID Motive], Forms![frmPurchase_Order]![SubPo].Form![Qty_receive] AS [Quantity],Forms![frmPurchase_Order]![SubPo].Form![Price] AS [Price],Forms![frmPurchase_Order]![SubPo].Form![Total_Value] AS [Total_Value] ;"
    
12. DoCmd.RunSQL SQLText
    
13. 
    
14. Step = 2
    
15. SQLText = "UPDATE [tblProduct_Stock_Remote] SET [tblProduct_Stock_Remote].[Real_Qty] = Forms![frmPurchase_Order]![SubPo].Form![Qty_receive]+[tblProduct_Stock_Remote]![Real_Qty]WHERE ((([tblProduct_Stock_Remote].[ITEM])=Forms![frmPurchase_Order]![SubPo].Form![item]));"
    
16. DoCmd.RunSQL SQLText
    
17. 
    
18. Me.Receive_Status.Locked = True
    
19. End Sub

复制代码

风中漫步

date() AS [Date]   将,(逗号)去掉

yanwei82123300

风中漫步 谢谢帮助