ник: KrukVN
напишите хотяб так:
Function strAllParenstID(ThisID As Long) As String
Dim rst As DAO.Recordset
Set rst = Workspaces(0).Databases(0).OpenRecordset("Departments", dbOpenSnapshot)
StartFind:
rst.FindFirst "DepID = " & ThisID
If rst.NoMatch = False Then
ThisID = rst!ParentID
strAllParenstID = strAllParenstID & "." & ThisID
GoTo StartFind
End If
rst.Close
Set rst = Nothing
End Function
|
и скорость Вас приятно удивит
***
но все равно медленно как-то... на 100 записях такая непозволительная тормозня...