I am adding some things my boss requested to the database I am building to keep track of warehouse orders. I have a form that displays all of the current pending orders the warehouse needs to fill. I have a button that they can click to indicate that they have totally filled the order and it copies the entry from tblpending to tblfinished. I am now needing a way so that they can click a button and enter the amount delivered if they were not able to deliver the total amount and a button that will flag the order if they are not able to fill it at all.
Below is the code I have been trying to use but I cannot do anything with it:
Private Sub cmdOK_Click()
Dim strSQL As String
strSQL = "INSERTINTO tblPending.([Qty Delivered]) Values ('Text2.Value')" & _
"SELECT * FROM tblPending WHERE (((tblPending.[Part Number]) = '" & Text0.Value & "'"
DoCmd.RunSQL strSQL
DoCmd.OpenForm "frmOutput", , , , , , Text0.Value
DoCmd.Close acForm, "frmDeliveredShort"
End Sub
Text2.Value is a textbox on frmDeliveredShort where they can enter the amount delivered and frmOutput is the form the warehouse sees that displays all pending orders.
Any suggestions on how to perform this task would be greatly appreciated.
Below is the code I have been trying to use but I cannot do anything with it:
Private Sub cmdOK_Click()
Dim strSQL As String
strSQL = "INSERTINTO tblPending.([Qty Delivered]) Values ('Text2.Value')" & _
"SELECT * FROM tblPending WHERE (((tblPending.[Part Number]) = '" & Text0.Value & "'"
DoCmd.RunSQL strSQL
DoCmd.OpenForm "frmOutput", , , , , , Text0.Value
DoCmd.Close acForm, "frmDeliveredShort"
End Sub
Text2.Value is a textbox on frmDeliveredShort where they can enter the amount delivered and frmOutput is the form the warehouse sees that displays all pending orders.
Any suggestions on how to perform this task would be greatly appreciated.