ник: Vik
Поставте приблизительно такую функцию в запрос
Function strAllParenstID(ThisID As Long) As String
...
strAllParenstID = ""
Set rst = dbs.OpenRecordset("Select DepID, ParentID, Name1, from . . . . ")
StartFind:
rst.FindFirst "DepID = " & ThisID
If rst.NoMatch = False Then
ThisID = rst!ParentID
strAllParenstID = strAllParenstID & "." & ThisID
GoTo StartFind
End If
rst.Close
...
End Function
|
Аналогичным образом через похожую функцию в запросе можете заполнять временную таблицу,
если необходимо всех предков выводить отдельными записями.
Либо я чого-то недопонял...