I'm getting a syntax error on this VBA-SQL code.....

[colezpapa]

I'm getting a syntax error on this sql code....
can anyone see what I am doing incorrectly..

StringSQL = "SELECT Doc_Account.Account_ID,Doc_Account.SubmitDate, Doc_Account.CompleteDate,Doc_Account.Status, Doc_Account.AccountName, Lookup_TypeOfWOrk.TypeOfWork_Desc

StringSQL = StringSQL & " FROM Lookup_TypeOfWOrk INNER JOIN Doc_Account ON Lookup_TypeOfWOrk.WorkID = Doc_Account.TypeofWork"

StringSQL = StringSQL & " INNER JOIN Issues ON Doc_Account.Account_ID = Issues.LinkID "

StringSQL = StringSQL & " INNER JOIN Documents ON Issues.DocumentLabelName = Documents.Document_Name;

 

[lameid]

All string literals have to begin AND end with double quotes. Check out your first line, it is missing the ending double quote.

 

[PHV]

StringSQL = "SELECT Doc_Account.Account_ID,Doc_Account.SubmitDate, Doc_Account.CompleteDate,Doc_Account.Status, Doc_Account.AccountName, Lookup_TypeOfWOrk.TypeOfWork_Desc[!]"[/!]
StringSQL = StringSQL & " FROM [!](([/!]Lookup_TypeOfWOrk INNER JOIN Doc_Account ON Lookup_TypeOfWOrk.WorkID = Doc_Account.TypeofWork[!])[/!]"
StringSQL = StringSQL & " INNER JOIN Issues ON Doc_Account.Account_ID = Issues.LinkID[!])[/!]"
StringSQL = StringSQL & " INNER JOIN Documents ON Issues.DocumentLabelName = Documents.Document_Name;"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886