Originally Posted by
June7
Show the SQL statement.
Or provide db for analysis. Follow instructions at bottom of my post.
Here is what I have in VBA:
Code:
Private Sub Command46_Click() DoCmd.SetWarnings False
SQL = "INSERT INTO PriorSales_Append_Table ( SITE, F_SALESCR, OBJID, STATUS, LOGDATE, CC, TOTAL, ACCTNUM )" & _
"SELECT unSCRsales.SITE, unSCRsales.F_SALESCR, unSCRsales.OBJID, unSCRsales.STATUS, unSCRsales.LOGDATE, unSCRsales.CC, unSCRsales.TOTAL, unSCRsales.ACCTNUM" & " " & _
"FROM unSCRsales" & " " & _
"WHERE (((unSCRsales.LOGDATE)>=[Forms]![Invoices]![fromdate] And (unSCRsales.LOGDATE)<=[Forms]![Invoices]![todate]))"
DoCmd.RunSQL SQL
End Sub
Here is my sql for the query (not run through VBA):
Code:
INSERT INTO PriorSales_Append_Table ( SITE, F_SALESCR, OBJID, STATUS, LOGDATE, CC, TOTAL, ACCTNUM )SELECT unSCRsales.SITE, unSCRsales.F_SALESCR, unSCRsales.OBJID, unSCRsales.STATUS, unSCRsales.LOGDATE, unSCRsales.CC, unSCRsales.TOTAL, unSCRsales.ACCTNUM
FROM unSCRsales
WHERE (((unSCRsales.LOGDATE)>=[Forms]![Invoices]![fromdate] And (unSCRsales.LOGDATE)<=[Forms]![Invoices]![todate]));
Run from SQL/Directly:
Run through the form: