SQLを使用したVBAでのVarsの構文

Question

私の仕事ではVBAに少し問題があります（私はVBAの初心者ですので、少しの不具合かもしれませんが、インターネットで解決策が見つかりません）

For i = 0 To Me!Liste_Eingangsdiagnostik.ListCount - 1 
    diagName = Me!Liste_Eingangsdiagnostik.column(0, i) & "_" & Me!Liste_Eingangsdiagnostik.column(1, i) & "_" & 1 


    If Me!Liste_Eingangsdiagnostik.Selected(i) Then 
    buildFilter_EingangsDiag i 
    tableName = Me!Liste_Eingangsdiagnostik.column(0, i) 
    Debug.Print tableName 
    newColumn = "ALTER TABLE " & tempTable & " ADD COLUMN " & tableName & " " & "Long" 
    Set rs = CurrentDb.OpenRecordset("abf_Export_Diagnostik") 'Erstelle die Antworten 

    'updateExport = "INSERT INTO Export_Hilfstabelle " & " (IDTAB_EP, ID_Antwortbogen, tableName) " & " (rs.Fields(1).Value,rs.Fields(1).Value,.Fields(1).Value)" 

    db.Execute newColumn 

     Do While Not rs.EOF 
     a = rs.Fields("IDTAB_EP").value 
     Debug.Print a 
     b = rs.Fields("ID_Antwortbogen").value 
     Debug.Print b 
     c = rs.Fields("strAntworten_Text").value 
     Debug.Print c 

     db.Execute "INSERT INTO [Export_Hilfstabelle] " & " ([IDTAB_EP], [ID_Antwortbogen], [ID_Frage], ['" & tableName & "']) VALUES " & " ('" & a & "', '" & b & "',0,'" & c & "')" 
     rs.MoveNext 
     Loop 

    End If 
Next i 

このデータベースのユーザーは、1つのテーブルで選択したすべての診断が必要です。だから私はすべての診断の新しい列（tableName）を追加しようとするが、私はErrorLogを得た：フィールド名istが正しくない。 （私はドイツ出身ですので、一部のヴァルスはドイツ語です） ありがとうございました！

Answer 1

INSERTステートメントの列リストにアポストロフィを使用してはいけません。

db.Execute "INSERT INTO [Export_Hilfstabelle] " & 
    " ([IDTAB_EP], [ID_Antwortbogen], [ID_Frage], ['" & tableName & "']) 
    VALUES " & " ('" & a & "', '" & b & "',0,'" & c & "')" 

はあなたにそのエラーが出るんライン

db.Execute "INSERT INTO [Export_Hilfstabelle] " & 
    " ([IDTAB_EP], [ID_Antwortbogen], [ID_Frage], [" & tableName & "]) 
    VALUES " & " ('" & a & "', '" & b & "',0,'" & c & "')"