Я не вижу результатов кода VBA в доступе

Question

Я написал код VBA в Access.Но таблица или запрос не добавляются к доступу.Я не вижу результатов кода VBA в доступе.

Option Compare Database
Sub TransformX1()
    Dim strSQL As String
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb
    strSQL = ""
    strSQL = strSQL & "TRANSFORM Sum(BAR1.[TON]) AS SumOfTON " & vbCrLf
    strSQL = strSQL & "SELECT BAR1.[MABD], Sum(BAR1.[TON]) AS [Total Of TON] " & vbCrLf
    strSQL = strSQL & "FROM BAR1 " & vbCrLf
    strSQL = strSQL & "WHERE (((BAR1.[MABD])<1300) AND ((BAR1.[MAGH])<1300) AND ((BAR1.G)=1)) " & vbCrLf
    strSQL = strSQL & "GROUP BY BAR1.[MABD] " & vbCrLf
    strSQL = strSQL & "PIVOT BAR1.[MAGH];"
    Set rst = dbs.OpenRecordset(strSQL)
End Sub

Answer 1

Поскольку ваш SQL статический, нет причин (пере) создавать его в VBA.

Создайте запрос и вставьте в него свой SQL.Это будет перекрестный запрос.

Сохраните его, используя имя, скажем, Q1.

Теперь создайте новый запрос, скажем, Q2, в котором вы используете Q1 в качестве источника.Настройте запрос Q2 так, чтобы он был запрос на добавление или запрос создания таблицы .Этот запрос вы можете запустить (выполнить) в любое время.