AVB Code - Please help with SQL syntax

[Guest]

Hi,
I'm trying to use a button to update data from one table to another one in a
different database, but can't seem to get the syntax correct. Where am I
going wrong? Here's what I have:

Private Sub C_Click()

Dim strSQL As String

strSQL = "INSERT INTO [FY05 Permit Sales] ( Prefix, Location, Cashier,
[Purchase Date], Price, Payment) IN 'S:\PARKING\ACCESS\ACCESS\Multi-Year
Permit Sales Analysis.mdb'" & _
"SELECT Commuter.Prefix, Commuter.Location,
Commuter.Cashier, Commuter.[Purchase Date], Commuter.Price, Commuter.Payment"
& _
"FROM Commuter WHERE (((Commuter.[Purchase Date]) Is Not
Null))"

db.Execute strSQL, dbFailOnError

End Sub

 

[Brendan Reynolds]

You're missing some essential spaces, e.g. you have no space between the
apostrophe and the word 'SELECT', or between the words 'Payment' and 'FROM'.
Try putting in a Debug.Print strSQL immediately after the line that builds
the SQL string, and this will become easier to see.

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.