Public Sub Запустить_процедуру_из_другой_БД()

    Dim j As New Access.Application
    
    j.OpenCurrentDatabase CurrentProject.Path & "\Контент\DB2.accdb"
    j.Application.Run "Запомнить_варианты_цен"
    j.Quit
    
End Sub

    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("Вычисление цен")
    qdf.Execute dbRunAsync

UPDATE Товары 
LEFT JOIN [Варианты цен] ON Товары.код = [Варианты цен].код_товара 
SET 
[Варианты цен].код_товара = [товары].[код], 
[Варианты цен].партийная = нужная_цена([Товары].[код],1), 
[Варианты цен].средняя = нужная_цена([Товары].[код],2), 
[Варианты цен].последняя = нужная_цена([Товары].[код],3) 
WHERE (((Товары.выделена)=True));

SELECT First([Заявки вложенная в основной валюте].цена2) AS партийная, 
Last([Заявки вложенная в основной валюте].цена2) AS последняя, 
Sum([Заявки вложенная в основной валюте].[кол-во]) AS куплено, 
Sum([Заявки вложенная в основной валюте].[кол-во]*[Заявки вложенная в основной валюте].[цена2]) AS потрачено, 
[потрачено]/[куплено] AS средняя 
From [Заявки] 
INNER JOIN [Заявки вложенная в основной валюте] 
ON Заявки.Код = [Заявки вложенная в основной валюте].док 
WHERE (((Заявки.Код)>=партийная_накладная(3)) 
AND (([Заявки вложенная в основной валюте].Наименование)=3) 
AND ((Заявки.закрыт)=True));