ник: kot_k_k
как на вскидку
запрос с функцией которая для каждой детали запускает обработку, вот со сваего сделал:
таблы - Naimen и Sklad
запрос
SELECT Naimen.Naimen, F_Ob([Kod_N]) AS Выражение1 FROM Naimen INNER JOIN Sklad ON Naimen.Kod_N = Sklad.Naimen;
код функции
Function F_Ob(ParamArray Ar())
Dim dbs As DAO.Database
Dim Nam As DAO.Recordset
Str_ = ""
Set dbs = CurrentDb
Set Nam = dbs.OpenRecordset("select * from sklad where naimen=" & Ar(0))
Do While Nam.EOF = False
Str_ = Str_ & Nam!Prim
Nam.MoveNext
Loop
F_Ob = Str_
End Function
|
а как одним запросом -
если нароют лучше - сам поучусь