Affichage des articles dont le libellé est Query input must contain at least one table or query error. Afficher tous les articles
Affichage des articles dont le libellé est Query input must contain at least one table or query error. Afficher tous les articles

Query input must contain at least one table or query error

mercredi 22 avril 2015

All I'm trying to do is a make table (table name to overwrite: "TBL_5_7_RFCs") query via VBA so I can loop through a set of VARs in a table. Here is my code:
Code:

Public Function test_sql()
Dim Conn As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim MySQL As String
Set Conn = CurrentProject.Connection
RS.ActiveConnection = Conn

MySQL = "SELECT RFC_STAGING_3.RFC, RFC_STAGING_3.RFC_TITLE, RFC_STAGING_3.RFC_STATE, RFC_STAGING_3.RFC_OBJECTIVE, RFC_STAGING_3.PM, RFC_STAGING_3.BUS_PORTFOLIO, RFC_STAGING_3.BRM INTO TBL_5_7_RFCs" & _
"INTO TBL_5_7_RFCs" & _
"FROM RFC_STAGING_3" & _
"WHERE (((RFC_STAGING_3.DATE_TARGET_AFB) = #5/7/2015#) And ((RFC_STAGING_3.CCA_Project) = 1))" & _
"GROUP BY RFC_STAGING_3.RFC, RFC_STAGING_3.RFC_TITLE, RFC_STAGING_3.RFC_STATE, RFC_STAGING_3.RFC_OBJECTIVE, RFC_STAGING_3.PM, RFC_STAGING_3.BUS_PORTFOLIO, RFC_STAGING_3.BRM" & _
"ORDER BY RFC_STAGING_3.PM;"
RS.Open MySQL
RS.Close
Set Conn = Nothing
End Function

I'll add the loop and array once I get this working but I'm stuck. Any ideas?
Query input must contain at least one table or query error

Labels