ник: kot_k_k
Вот так оно выглядит:
Private Function Tree_Add(ParamArray Ar())
Dim po As DAO.Recordset
Dim op As DAO.Recordset
Dim det As DAO.Recordset
Dim dd_1 As DAO.Recordset
Dim dbs As Database
Set dbs = CurrentDb
' еще одна глубина дерева
Set det = dbs.OpenRecordset("select naimen.tip,naimen.naimen, detalirovka.* " & _
" from detalirovka INNER JOIN Naimen ON detalirovka.naimen=naimen.kod_n " & _
" where naimen_uzel=" & Ar(0)) 'po!Naimen_Uzel)
......
|
и на рисунке виден отладчик