SELECT MAIN1_1.codever, MAIN1_1.prod, MAIN1_1.code, 1 AS Выражение1, MAIN1_1.pth, Replace([main1_1].[pth],'-',',') AS qw
FROM MAIN INNER JOIN (main1 INNER JOIN MAIN1 AS MAIN1_1 ON main1.code = MAIN1_1.OWN) ON MAIN.CODE = MAIN1_1.coded
WHERE (((MAIN1_1.prod)=True) AND ((MAIN1_1.pth) Like '*327044-326764-326258-1') AND ((MAIN.MARKA) Not Like '*erp*') 
AND ((Exists (SELECT MAIN1.code FROM MAIN1 where main1.own=main1_1.code;))=True))
ORDER BY MAIN.MARKA;

Replace([main1_1].[pth],'-',',') AS qw

 MAIN1.code in (Replace([main1_1].[pth],'-',','))

WHERE MAIN1.CODE IN()

'CurrentDb.Execute "INSERT INTO tempvygr ( codever, prod, code, tp, pth, qt ) " _
'                & " SELECT MAIN1_1.codever, MAIN1_1.prod, MAIN1_1.code, 1 AS Âûðàæåíèå1, MAIN1_1.pth, (SELECT exp(Sum(log( [MAIN1]![qt] ))) FROM main1 " _
'                & " WHERE INSTR(',' & Replace([main1_1].[pth],'-',',') & ',', ',' & MAIN1.code & ',') > 0) AS qz " _
'                & " FROM MAIN INNER JOIN (main1 INNER JOIN MAIN1 AS MAIN1_1 ON main1.code = MAIN1_1.OWN) ON MAIN.CODE = MAIN1_1.coded " _
'                & " WHERE (((MAIN1_1.prod)=True) AND ((MAIN1_1.pth) Like '*" & ptcodm1 & "') AND ((MAIN.MARKA) Not Like '*erp*') AND " _
'                & "((Exists (SELECT MAIN1.code FROM MAIN1 where main1.own=main1_1.code;))=True)) ORDER BY MAIN.MARKA;"

"INSERT INTO tempvygr ( codever, prod, qt, codm1, tp, pth )" _
                & " SELECT MAIN1_1.codever, MAIN1_1.prod, getqbp(MAIN1_1.pth), MAIN1_1.code, 1 AS Âûðàæåíèå1, MAIN1_1.pth " _
                & " FROM MAIN INNER JOIN (main1 INNER JOIN MAIN1 AS MAIN1_1 ON main1.code = MAIN1_1.OWN) ON MAIN.CODE = MAIN1_1.coded " _
                & " WHERE (((MAIN1_1.prod)=True) AND ((MAIN.MARKA) Not Like '*erp*') AND ((Exists (SELECT MAIN1.code FROM MAIN1 where main1.own=main1_1.code;))=True) AND ((MAIN1_1.pth) Like '*" & ptcodm1 & "')) " _
                & " ORDER BY MAIN.MARKA; "

Public Function Getqbp(pth As String) As Long

Dim rst As DAO.Recordset
Dim qq As Long
qq = 1
20 Set rst = CurrentDb.OpenRecordset("SELECT main1.qt  from MAIN1 where MAIn1!code in (" & Replace(pth, "-", ",") & ");", dbOpenForwardOnly) ', dbOpenForwardOnly
   If rst.EOF = False Then
      Do Until rst.EOF
               qq = qq * rst.Collect("qt")
               rst.MoveNext
      Loop
   End If
   Getqbp = qq
End Function