I have this code:
Code:
DoCmd.RunCommand acCmdSelectRecord
intRcptNumber = (Form!RcptNumber)
DoCmd.SetWarnings False
strSQL = "SELECT RcptData.[RcptNumber] AS [RcptData_RcptNumber], RcptData.[DateReceived], RcptData.[CarrierLName], RcptData.[CarrierFName], RcptData.[CarrierMName], RcptData.[AmountPaid], RcptData.[Check#], RcptData.[Clerk], RcptData.[Mail/OverCounter], RcptData.[Memo], RcptCRDistrict.[RcptNumber] AS [RcptCRDistrict_RcptNumber], RcptCRDistrict.[CRNumber], RcptCRDistrict.[District], RcptCRDistrict.[Charge], RcptCRDistrict.[N/C] INTO PrintReceiptTemp" & _
"FROM RcptData INNER JOIN RcptCRDistrict ON RcptData.[RcptNumber] = RcptCRDistrict.[RcptNumber]" & _
"WHERE (((RcptData.[RcptNumber]) = intRcptNumber));"
DoCmd.RunSQL strSQL
The SQL works in a Query but with VB I get an error. (See attached)
Any ideas what is wrong?
Thanks
Wayne