syntax error 3135

M

Mike C

I'm getting a run time error 3135 syntax error in JOIN
operation. Anyone see how it is wrong? Thanks in advance.

Function SA()

Dim q As String

q = "INSERT INTO tbl_SA ( PKG_CTR_NR, Driver, SA ) " & _
"SELECT TOP 5 O910IA_VDVRS0720.PKG_CTR_NR, " & _
"Trim([EMP_LST_NA]) & "", "" & Trim([EMP_INI_NA]) AS
Driver, " & _
Sum(O910IA_VDVRS0720.DVR_SAP_QY) AS SA " & _
"FROM O910IA_VMAST0720 INNER JOIN O910IA_VDVRS0720 ON " & _
"(O910IA_VMAST0720.WND_DT = O910IA_VDVRS0720.WND_DT) " & _
"AND (O910IA_VMAST0720.EMP_NR = O910IA_VDVRS0720.EMP_NR "
& _
"WHERE (((O910IA_VDVRS0720.PAY_CGY_CD) " & _
"In (""06"",""05"",""5A"",""6A""))) GROUP BY " & _
"O910IA_VDVRS0720.PKG_CTR_NR, Trim([EMP_LST_NA]) & "", ""
& Trim([EMP_INI_NA]) " & _
"HAVING (((O910IA_VDVRS0720.PKG_CTR_NR) = ""1000"")) " & _
"ORDER BY Sum(O910IA_VDVRS0720.DVR_SAP_QY) DESC;"

DoCmd.RunSQL (q)

End Function
 
M

Michel Walsh

Hi,

Missing a close parenthesis for the right argument of the AND in the
ON clause.

May have other problems, too, I stopped after having spotted that
one.


Hoping it may help,
Vanderghast, Access MVP
 
M

Mike C

That was it, thank you very much.

-----Original Message-----
Hi,

Missing a close parenthesis for the right argument of the AND in the
ON clause.

May have other problems, too, I stopped after having spotted that
one.


Hoping it may help,
Vanderghast, Access MVP



Mike C said:
I'm getting a run time error 3135 syntax error in JOIN
operation. Anyone see how it is wrong? Thanks in advance.

Function SA()

Dim q As String

q = "INSERT INTO tbl_SA ( PKG_CTR_NR, Driver, SA ) " & _
"SELECT TOP 5 O910IA_VDVRS0720.PKG_CTR_NR, " & _
"Trim([EMP_LST_NA]) & "", "" & Trim([EMP_INI_NA]) AS
Driver, " & _
Sum(O910IA_VDVRS0720.DVR_SAP_QY) AS SA " & _
"FROM O910IA_VMAST0720 INNER JOIN O910IA_VDVRS0720 ON " & _
"(O910IA_VMAST0720.WND_DT = O910IA_VDVRS0720.WND_DT) " & _
"AND (O910IA_VMAST0720.EMP_NR = O910IA_VDVRS0720.EMP_NR "
& _
"WHERE (((O910IA_VDVRS0720.PAY_CGY_CD) " & _
"In (""06"",""05"",""5A"",""6A""))) GROUP BY " & _
"O910IA_VDVRS0720.PKG_CTR_NR, Trim([EMP_LST_NA]) & "", ""
& Trim([EMP_INI_NA]) " & _
"HAVING (((O910IA_VDVRS0720.PKG_CTR_NR) = ""1000"")) " & _
"ORDER BY Sum(O910IA_VDVRS0720.DVR_SAP_QY) DESC;"

DoCmd.RunSQL (q)

End Function


.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top