ник: Pasat
Спасибо Vik
Предложенное Вами решение работоспособно и может пригодиться для решения некоторых задач (если кому надо см.аттач.) 
Люди если есть еще идеи буду благодарен
Задача такая
На основе таблицы Departments получить запрос с записями как в таблице TasksResults
(см.аттач.)
Один из вариантов уже предложил ГлазастыйМышь
как вариант, но не очень красивый (плюс надо смотреть как будет себя вести при большом количестве веток) создать функцию
Public Function GetParent(Id As Double) As String
Dim prom As Double
prom = Nz(DLookup("ParentID", "Departments", "DepID =" & Id), 0)
If prom > 0 Then
GetParent = "|" & prom & GetParent(prom)
End If
End Function
|
тогда запрос будет иметь вид
SELECT q.DepID, w.DepID
FROM Departments AS q, Departments AS w
WHERE (((InStr("|" & [q].[ParentID] & GetParent([q].[parentid]) & "|","|" & [w].[depid] & "|"))>0))
ORDER BY q.DepID, w.DepID DESC
|
но он (запрос) притормаживает
Нужно что-то более быстрое
