Sub Агрегация()
    Dim s
    Dim d
    d = "& ""--"" &"
    s = "Insert into Сведения(ДатаДокумента, НомерДокумента, КодКонтрагента, ДатаНакладной, НомерНакладной, КодОтветственного, Сумма, ОтметкаОбОплате, НомерНакладнойСПрефиксом " & _
        "SELECT First(ВедомостьПоступленийТовара.ДатаДокумента) AS [First-ДатаДокумента], First(ВедомостьПоступленийТовара.НомерДокумента) AS [First-НомерДокумента], " & _
        "First(Контрагенты.КодКонтрагента) AS [First-КодКонтрагента], First(ВедомостьПоступленийТовара.ДатаНакладной) AS [First-ДатаНакладной], " & _
        "First(ВедомостьПоступленийТовара.НомерНакладной) AS [First-НомерНакладной], First(Ответственные.КодОтветственного) AS [First-КодОтветственного], " & _
        "Sum(ВедомостьПоступленийТовара.СуммаПоЗакупочнойЦене) AS [Sum-СуммаПоЗакупочнойЦене], first('не оплачено') as Отметка, [НомерНакладной] " & d & " [КодОтветственного] " & _
        "AS ВиртНакл " & _
        "FROM ВедомостьПоступленийТовара INNER JOIN (Ответственные INNER JOIN ((СправочникТоваров INNER JOIN Классификатор ON СправочникТоваров.КодПодгруппы = Классификатор.КодПодгруппы) " & _
        "INNER JOIN Контрагенты ON СправочникТоваров.КодПоставщика = Контрагенты.КодКонтрагента) ON Ответственные.КодОтдела = Классификатор.КодОтдела) " & _
        "ON ВедомостьПоступленийТовара.КодТовара = СправочникТоваров.КодТовара " & _
        "GROUP BY [НомерНакладной] " & d & " [КодОтветственного];"
    Debug.Print s
    
    
    CurrentDb.Execute s
    MsgBox ("Импорт успешно завершен")
End Sub

SELECT First(ВедомостьПоступленийТовара.ДатаДокумента) AS [First-ДатаДокумента], First(ВедомостьПоступленийТовара.НомерДокумента) AS [First-НомерДокумента], First(Контрагенты.КодКонтрагента) AS [First-КодКонтрагента], First(ВедомостьПоступленийТовара.ДатаНакладной) AS [First-ДатаНакладной], First(ВедомостьПоступленийТовара.НомерНакладной) AS [First-НомерНакладной], First(Ответственные.КодОтветственного) AS [First-КодОтветственного], Sum(ВедомостьПоступленийТовара.СуммаПоЗакупочнойЦене) AS [Sum-СуммаПоЗакупочнойЦене], first('не оплачено') as Отметка, [НомерНакладной] & "--" & [КодОтветственного] AS ВиртНакл
FROM ВедомостьПоступленийТовара INNER JOIN (Ответственные INNER JOIN ((СправочникТоваров INNER JOIN Классификатор ON СправочникТоваров.КодПодгруппы = Классификатор.КодПодгруппы) INNER JOIN Контрагенты ON СправочникТоваров.КодПоставщика = Контрагенты.КодКонтрагента) ON Ответственные.КодОтдела = Классификатор.КодОтдела) ON ВедомостьПоступленийТовара.КодТовара = СправочникТоваров.КодТовара
GROUP BY [НомерНакладной] & "--" & [КодОтветственного];

Dim d
d = "& ""--"" &"