Run-Time error '3075'

[stahir01]

Hello Everyone,
I am new to VBA in access. I tried to run this but the code shows me the following error:


SQL_Run = "SELECT VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, Sum(ST) AS [Sum of Onrents], ServiceLine, Case, Company" & _
"FROM Onrent" & _
"GROUP BY VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, ServiceLine, Case, Company;"

[Welshgasman]

And 3075 is ?
Debug.Print sql_run and see if you can spot the error?

[kd2017]

You forgot some spaces. This

SQL_Run = "SELECT VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, Sum(ST) AS [Sum of Onrents], ServiceLine, Case, Company" & _
"FROM Onrent" & _
"GROUP BY VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, ServiceLine, Case, Company;"

evaluates to:

SELECT VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, Sum(ST) AS [Sum of Onrents], ServiceLine, Case, CompanyFROM OnrentGROUP BY VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, ServiceLine, Case, Company;

Try this:

SQL_Run = "SELECT VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, Sum(ST) AS [Sum of Onrents], ServiceLine, Case, Company" & _
" FROM Onrent" & _
" GROUP BY VT, x_HSBEZ, x_NSBEZ, SippGroup, LT_ST, ServiceLine, Case, Company;"

<edit>
Yes! As Welsh mentions always Debug.print your strings during development when you build them this way so you can double check that they are put together the way you wanted them to be.

[CJ_London]

another hint - look for missing spaces

edit - never mind, KD has done it for you