Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ГлазастыйМышь
как вариант, но не очень красивый (плюс надо смотреть как будет себя вести при большом количестве веток)
создать функцию

Public Function GetParent(Id As Double) As String     Dim prom As Double On Error GoTo ErrDebug          prom = Nz(DLookup("ParentID", "Departments", "DepID =" & Id), 0)          If prom > 0 Then         GetParent = "|" & prom & GetParent(prom)     End If ExitHere:     Exit Function ErrDebug:     Resume ExitHere 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