Re: Building SQL statement in VBA. Getting 3131 Runtime Error in FROM clause :@

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

can you try:



FROM
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
tblWelders INNER JOIN tblWelderQualification ON
tblWelders.[WelderID]=tblWelderQualification.[Welder ID])
INNER JOIN tblWPS ON tblWPS.WPS=tblWelderQualification.[WPS No])
INNER JOIN tblWeldProcess ON tblWPS.[Root Process]=tblWeldProcess.ID)
INNER JOIN tblWeldProcess AS tblWeldProcess_1 ON tblWPS.[Fill
Process]=tblWeldProcess_1.ID)
INNER JOIN tblWeldProcess AS tblWeldProcess_2 ON tblWPS.[Cap
Process]=tblWeldProcess_2.ID)
INNER JOIN tblWeldType ON tblWPS.[Weld Prep]=tblWeldType.ID)
INNER JOIN tblProductType ON tblWPS.[Product Type]=tblProductType.ID)
INNER JOIN tblMaterialGroups ON tblWPS.Material=tblMaterialGroups.ID)
INNER JOIN tblConsumables ON tblWPS.RootConsumable=tblConsumables.ID)
INNER JOIN tblConsumables AS tblConsumables_1 ON
tblWPS.[FillConsumable]=tblConsumables_1.ID)
INNER JOIN tblConsumables AS tblConsumables_2 ON
tblWPS.[CapConsumable]=tblConsumables_2.ID)
INNER JOIN tblShieldingGas ON tblWPS.[Root Gas]=tblShieldingGas.ID)
INNER JOIN tblShieldingGas AS tblShieldingGas_1 ON tblWPS.[Fill
Gas]=tblShieldingGas_1.ID)
INNER JOIN tblShieldingGas AS tblShieldingGas_2 ON tblWPS.[Cap
Gas]=tblShieldingGas_2.ID)
INNER JOIN tblAuxiliaries ON tblWPS.Auxiliaries=tblAuxiliaries.ID)
INNER JOIN tblWeldingPositions ON
tblWPS.[RootPosition]=tblWeldingPositions.ID)
INNER JOIN tblWeldingPositions AS tblWeldingPositions_1 ON
tblWPS.[FillPosition]=tblWeldingPositions_1.ID)
INNER JOIN tblWeldingPositions AS tblWeldingPositions_2 ON
tblWPS.[CapPosition]=tblWeldingPositions_2.ID)
INNER JOIN tblWeldDetails ON tblWPS.WeldDetails=tblWeldDetails.ID

ORDER BY tblWelderQualification.[Test Number]




You can cut and paste in the SQL view of a new query, add something as
SELECT *, and switch in design view. I just change the start of the FROM
clause, to get the uniform pattern:

((( ... ) INNER JOIN ... ON ... ) INNER JOIN ... ON ... ) INNER JOIN ...
ON ...



Hoping it may help,
Vanderghast, Access MVP.


<russellhq@xxxxxxxxx> wrote in message
news:1172242697.412335.187360@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
I've gone through it but can't see a problem ??

I ran out of line continuers, thats why there's a long line in there.

"FROM (((((((((((((((((tblWelders INNER JOIN (tblWPS INNER JOIN
tblWelderQualification ON " & _
"tblWPS.WPS=tblWelderQualification.[WPS No]) ON tblWelders.[Welder
ID]=tblWelderQualification.[Welder ID]) " & _
"INNER JOIN tblWeldProcess ON tblWPS.[Root Process]=tblWeldProcess.ID)
INNER JOIN tblWeldProcess AS " & _
"tblWeldProcess_1 ON tblWPS.[Fill Process]=tblWeldProcess_1.ID) INNER
JOIN tblWeldProcess AS tblWeldProcess_2 " & _
"ON tblWPS.[Cap Process]=tblWeldProcess_2.ID) INNER JOIN tblWeldType
ON tblWPS.[Weld Prep]=tblWeldType.ID) " & _
"INNER JOIN tblProductType ON tblWPS.[Product Type]=tblProductType.ID)
INNER JOIN tblMaterialGroups ON " & _
"tblWPS.Material=tblMaterialGroups.ID) INNER JOIN tblConsumables ON
tblWPS.RootConsumable=tblConsumables.ID) " & _
"INNER JOIN tblConsumables AS tblConsumables_1 ON tblWPS.[Fill
Consumable]=tblConsumables_1.ID) INNER JOIN " & _
"tblConsumables AS tblConsumables_2 ON tblWPS.[Cap
Consumable]=tblConsumables_2.ID) INNER JOIN tblShieldingGas " & _
"ON tblWPS.[Root Gas]=tblShieldingGas.ID) INNER JOIN tblShieldingGas
AS tblShieldingGas_1" & _
"ON tblWPS.[Fill Gas]=tblShieldingGas_1.ID) INNER JOIN tblShieldingGas
AS tblShieldingGas_2 ON " & _
"tblWPS.[Cap Gas]=tblShieldingGas_2.ID) INNER JOIN tblAuxiliaries ON
tblWPS.Auxiliaries=tblAuxiliaries.ID) " & _
"INNER JOIN tblWeldingPositions ON tblWPS.[Root
Position]=tblWeldingPositions.ID) INNER JOIN tblWeldingPositions " & _
"AS tblWeldingPositions_1 ON tblWPS.[Fill
Position]=tblWeldingPositions_1.ID) INNER JOIN tblWeldingPositions AS
tblWeldingPositions_2 ON tblWPS.[Cap
Position]=tblWeldingPositions_2.ID) INNER JOIN tblWeldDetails ON
tblWPS.WeldDetails=tblWeldDetails.ID ORDER BY tblWelderQualification.
[Test Number] " & _
"ORDER BY tblWelderQualification.[Test Number];"



.

Relevant Pages