SQL that errors in VB

[Wayne311]

I have this 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

[pbaldy]

When building SQL in VBA, you have to make sure to include a space when using line continuations. You're going to end up with this type of thing:

...INTO PrintReceiptTempFROM...

Note the lack of a space between the table name and FROM.

[Wayne311]

Good eye!

Thanks that did it.

Wayne

[pbaldy]

No problem Wayne!