Запрос преобразования в Access VBA

Question

Я написал код VBA в Access.Но я получил синтаксическую ошибку в операторе TRANSFORM.Я был бы признателен, если бы вы могли мне помочь.

Sub TransformX1()
    Dim dbs As Database
    Dim strSQL As String
    Set dbs = CurrentDb
    strSQL = "TRANSFORM Sum(BAR1.[TON]) AS SumOfTON" _
             & "SELECT BAR1.[MABD],Sum(BAR1.[TON]) AS [Total Of TON]" _
             & "FROM BAR1" _
             & "WHERE (((BAR1.[MABD]) < 1300) And ((BAR1.[MAGH]) < 1300) And ((BAR1.G) = 1))" _
             & "GROUP BY BAR1.[MABD]" _
             & "PIVOT BAR1.[MAGH]"
    DoCmd.RunSQL strSQL
End Sub

Answer 1

Если вы изучите переменную strSQL непосредственно перед командой RunSQL, то обнаружите, что вам не хватает нескольких пробелов.Замените

"TRANSFORM Sum(BAR1.[TON]) AS SumOfTON" _

на

"TRANSFORM Sum(BAR1.[TON]) AS SumOfTON " _

и т. Д.