Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Union all strSQL string VS. VBA editor 1

Status
Not open for further replies.

ETID

Programmer
Jul 6, 2001
1,867
US
Hi All,...

My question is this, how do I get the vba editor to let me break this sql statement down so that I can read it in the window?

something like this....

strSQL = "SELECT * INTO vba_ETI_JMF_Table FROM (SELECT _ [MTLCLASN],[ENGMET],[SUPLCODE],[JOBMXREF], _[JOBMXFYR],DESIGNGN01 AS TARGET, SIEVESIZ01 AS _ ELEMENT,RSLTSEQN01 AS SEQUENCE FROM CAMSPROD_TJBMXFM WHERE _[JOBMXFYR]>=[Earliest JMF Year?] AND [SUPLCODE]=[Supplier _ code?] UNION ALL SELECT [MTLCLASN],[ENGMET],[SUPLCODE], _[JOBMXREF],[JOBMXFYR],DESIGNGN02 AS TARGET,SIEVESIZ02 AS _ ELEMENT,RSLTSEQN02 AS SEQUENCE FROM CAMSPROD_TJBMXFM WHERE _[JOBMXFYR]>=[Earliest JMF Year?] AND [SUPLCODE]=[Supplier _ code?]UNION ALL SELECT [MTLCLASN],[ENGMET],[SUPLCODE], _
...etc, etc.

When I am building the sql statement in the editor, it likes it and turns all text black as I add the "_" characters but when I'm done it errors out because the word "FROM" (at the begining of some lines)is treated like a new line instead of part of the string.


the whole statement....
--------------------
strSQL = "SELECT * INTO vba_ETI_JMF_Table FROM (SELECT [MTLCLASN],[ENGMET],[SUPLCODE],[JOBMXREF],[JOBMXFYR],DESIGNGN01 AS TARGET, SIEVESIZ01 AS ELEMENT,RSLTSEQN01 AS SEQUENCE FROM CAMSPROD_TJBMXFM WHERE [JOBMXFYR]>=[Earliest JMF Year?] AND [SUPLCODE]=[Supplier code?] UNION ALL SELECT [MTLCLASN],[ENGMET],[SUPLCODE],[JOBMXREF],[JOBMXFYR],DESIGNGN02 AS TARGET,SIEVESIZ02 AS ELEMENT,RSLTSEQN02 AS SEQUENCE FROM CAMSPROD_TJBMXFM WHERE [JOBMXFYR]>=[Earliest JMF Year?] AND [SUPLCODE]=[Supplier code?]UNION ALL SELECT [MTLCLASN],[ENGMET],[SUPLCODE],[JOBMXREF],[JOBMXFYR],DESIGNGN03 AS TARGET, SIEVESIZ03 AS ELEMENT,RSLTSEQN03 AS SEQUENCE FROM CAMSPROD_TJBMXFM WHERE [JOBMXFYR]>=[Earliest JMF Year?] AND [SUPLCODE]=[Supplier code?]);"
 
You can't break in the middle of a literal string. Use instead something like:

strSQL = "SELECT * INTO vba_ETI_JMF_Table FROM (SELECT [MTLCLASN]," _
& "[ENGMET],[SUPLCODE],[JOBMXREF],[JOBMXFYR],DESIGNGN01 AS TARGET, SIEVESIZ01 AS ELEMENT,RSLTSEQN01 AS SEQUENCE FROM " _
& .... and so on...

Rob
[flowerface]
 
Thanks I'll give it a whirl....and let you know how I made out!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top