How are you doing this?
It seems this is the bit that's failing so tell us how you're doing it at the moment.
I'm not real sure that this is the problem because it is displaying the information that I have in the appropriate textboxes:
-
Private Sub btnCreateInvoice_Click()
-
On Error GoTo Err_btnCreateInvoice_Click
-
-
DoCmd.SetWarnings False
-
-
Dim stDocName As String
-
Dim stLinkCriteria As String
-
Dim strSQL As String
-
Dim strSQLUpdate As String
-
-
strSQLUpdate = "UPDATE tblScratchInvoice INNER JOIN tblInvoice ON tblScratchInvoice.InvoiceNum = tblInvoice.InvoiceNum SET tblInvoice.InvoiceNum = [tblScratchInvoice.InvoiceNum], tblInvoice.FreightCompany = [tblScratchInvoice.FreightCompany], tblInvoice.ProNumber = [tblScratchInvoice.ProNumber], tblInvoice.PartNum = [tblScratchInvoice.PartNum], tblInvoice.Description = [tblScratchInvoice.Description], tblInvoice.ItemCost = [tblScratchInvoice.ItemCost], tblInvoice.Qty = [tblScratchInvoice.Qty], tblInvoice.TotalCost = [tblScratchInvoice.TotalCost], tblInvoice.InvoiceTotal = [tblScratchInvoice.InvoiceTotal], tblInvoice.AgentRef = [tblScratchInvoice.AgentRef];"
-
-
DoCmd.RunSQL strSQLUpdate
-
-
Exit_btnCreateInvoice_Click:
-
Exit Sub
-
-
Err_btnCreateInvoice_Click:
-
MsgBox Err.Description
-
Resume Exit_btnCreateInvoice_Click
-
-
End Sub
I forgot that since i posted this last i decided to move to a query that runs every time the invoice button is pressed. Oh i also know that right now its not opening up my frmAppend. I took this out for debugging purposes.
