2014-12-02 3 views
-1

이 VBA 매크로에서이 SQL 문을 실행하려고하지만 어떤 이유로 인해 정확히 나타낼 수없는 구문 오류로 인해 실행되지 않습니다. 나는 오히려 VBA에 새로운 것이므로이 오류를 찾아내는 데 도움이 될 것입니다. 대신,구문 오류 SQL 문 (2)

Dim dte As String, db As Database, tableName As String, DataDump As Recordset, clientTable As Recordset 
Set db = CurrentDb 
dte = InputBox("What date was the Data Dump run?", "Please Input a date") 
tableName = "FN_DataDump_ALL_" & dte 
Set DataDump = db.OpenRecordset(tableName, dbOpenDynaset, dbEditAdd) 
Set clientTable = db.OpenRecordset("Clients", dbOpenDynaset, dbEditAdd) 

MySQL = "SELECT DISTINCT DD.[Client ID] " & _ 
     "INTO Clients " & _ 
     "FROM " & tableName & "as DD " & _ 
     "Where CL.[Client ID] NOT IN (SELECT DD.[Client ID] ""FROM"" & tableName & ""as DD"") " 

db.Execute MySQL 

답변

2

입니다없는 주변 FROM 인용 및 누락 된 공간 TABLENAMEAS 제작 :

= "SELECT DISTINCT DD.[Client ID] " & _ 
     "INTO Clients " & _ 
     "FROM " & tableName & " as DD " & _ 
     "Where CL.[Client ID] NOT IN (SELECT DD.[Client ID] FROM " & tableName & " as DD)" 
+0

감사합니다! 한가지 더, 테이블이 이미 존재한다면'SELECT ... INTO'라고 할 수 있습니까? – William

+0

이 경우 INSERT INTO를 사용합니다. –

+0

그래서'SELECT '를'INSERT'로 바꾸겠습니까? – William