vba sql 문 오류 "누락 된 연산자"

Question

액세스 내에서 작동하지만 VBA에서 작동시키지 못합니다. 실수는 무엇입니까?

Private Sub Command517_Click() 
Dim SQL As String 

    SQL = "SELECT Tags.Tag, MacroAttività.[Nome/Descrizione], MacroAttività.ID," & _ 
    " MacroAttività.Descrizione, MacroAttività.[Data inizio attività], " & _ 
    " MacroAttività.[Data fine prevista], MacroAttività.[Data fine effettiva], " & _ 
    " MacroAttività.Note,operatore.Nome, Tipologia.Tipologia " & _ 
    " FROM Tipologia INNER JOIN (operatore INNER JOIN (MacroAttività INNER JOIN Tags ON MacroAttività.ID = Tags.[ID macro attività]) " & _ 
    " ON operatore.ID = MacroAttività.Leader) ON Tipologia.ID = MacroAttività.Tipologia WHERE " & _ 
    "(((Tags.Tag) = [Forms]![MacroAttività]![Text511]) " & _ 
    " UNION ALL SELECT Tags.Tag, MacroAttività.[Nome/Descrizione], " & _ 
    " MacroAttività.Descrizione, MacroAttività.ID, " & _ 
    " MacroAttività.Leader, MacroAttività.[Data inizio attività], " & _ 
    " MacroAttività.[Data fine prevista], MacroAttività.[Data fine effettiva], " & _ 
    " MacroAttività.Note, MacroAttività.Tipologia " & _ 
    " FROM MacroAttività INNER JOIN Tags ON MacroAttività.ID = Tags.[ID macro attività] " & _ 
    " WHERE (((Tags.Tag)=[Forms]![MacroAttività]![Text513])); " 
DoCmd.RunSQL SQL 
End Sub 

Answer 1

양식 변수는 SQL 문을 외부에서 읽을 수 있도록, 그래서 내 솔루션은 SQL 문을 닫 형태 변수를 추가하고 SQL의 견적을 다시 열립니다. 양식 변수에 문자열 한정자 (작은 따옴표)를 추가했습니다. "텍스트"를 사용하여 문자열이라고 가정합니다.

varSQL = "SELECT Tags.Tag, MacroAttività.[Nome/Descrizione], MacroAttività.ID," & _ 
" MacroAttività.Descrizione, MacroAttività.[Data inizio attività], " & _ 
" MacroAttività.[Data fine prevista], MacroAttività.[Data fine effettiva], " & _ 
" MacroAttività.Note,operatore.Nome, Tipologia.Tipologia " & _ 
" FROM Tipologia INNER JOIN (operatore INNER JOIN (MacroAttività INNER JOIN Tags ON MacroAttività.ID = Tags.[ID macro attività]) " & _ 
" ON operatore.ID = MacroAttività.Leader) ON Tipologia.ID = MacroAttività.Tipologia WHERE " & _ 
"(((Tags.Tag) ='" & [Forms]![MacroAttività]![Text511] & "')" & _ 
" UNION ALL SELECT Tags.Tag, MacroAttività.[Nome/Descrizione], " & _ 
" MacroAttività.Descrizione, MacroAttività.ID, " & _ 
" MacroAttività.Leader, MacroAttività.[Data inizio attività], " & _ 
" MacroAttività.[Data fine prevista], MacroAttività.[Data fine effettiva], " & _ 
" MacroAttività.Note, MacroAttività.Tipologia " & _ 
" FROM MacroAttività INNER JOIN Tags ON MacroAttività.ID = Tags.[ID macro attività] " & _ 
" WHERE (((Tags.Tag)='" & [Forms]![MacroAttività]![Text513] & "')); " 

SQL은 예약 된 단어가 너무 varSQL처럼 뭔가에 SQL 변수 이름을 변경합니다. (업데이트 : 예약어 아님)

currentdb.execute 및 domcd.runSQL은 알고있는 한 동작 쿼리에만 작동합니다. 이 메소드를 사용하여 선택 쿼리를 실행할 수 없습니다. 다음을 시도하십시오.

dim rs as recordset 
dim varSQL as string 

varSQL = "SELECT..." 

set rs=currentdb.openrecordset(varSQL,dbOpenDynaset) 

me.[text1] = rs.fieldname 
'send recordset values to form 

rs.close