Public Function Getqbp(pth As String) As Long
' получает код детали по М1, возвращает перемноженное позлам до самой вершины количество
Dim rst As DAo.Recordset
Dim qq As Long
Dim str As String
qq = 1
str = Replace(pth, "-", ",")
20 Set rst = CurrentDb.OpenRecordset("SELECT main1.qt from MAIN1 where MAIn1!code in (" & str & ");", dbOpenForwardOnly) ', dbOpenForwardOnly
   If rst.EOF = False Then
      Do Until rst.EOF
               qq = qq * rst.Collect("qt")
               rst.MoveNext
      Loop
       Getqbp = qq
       Exit Function
   Else
       Getqbp = 0
       Exit Function
   End If

End Function

INSERT INTO temptb ( qt, chnumb, naim, D3d,codever,tp ) 
SELECT Sum(getqbp(tempvygr.pth)) AS qt, MAIN.MARKA, MAIN.COMMENT, vers.d3d,tempvygr.codever,tempvygr.tp 
FROM MAIN INNER JOIN (tempvygr INNER JOIN vers ON tempvygr.codever = vers.code) ON MAIN.CODE = vers.codem 
GROUP BY MAIN.MARKA, MAIN.COMMENT, tempvygr.tp, tempvygr.prod, MAIN.gizd, tempvygr.codever,                   vers.d3d,tempvygr.codever,tempvygr.tp 
ORDER BY tempvygr.tp, MAIN.MARKA, MAIN.COMMENT;

Public Function Getqb(nm1 As Long) As Long
' получает код детали по М1, возвращает перемноженное позлам до самой вершины количество
Dim rst As DAo.Recordset
Dim qq As Long
Dim cn As Long
cn = nm1
qq = 1
20 Set rst = CurrentDb.OpenRecordset("SELECT * from MAIN1 where MAIn1!code=" & cn & ";")
   If rst.EOF = False Then
      qq = qq * rst!qt
      cn = rst!own
      GoTo 20
   Else
       Getqb = qq
       Exit Function
   End If

Set rst = CurrentDb.OpenRecordset("SELECT main1.qt from MAIN1 where MAIn1!code in (" & str & ");", dbOpenForwardOnly)