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

ник: Lukas

автор: Lukas (18.12.2009 в 19:02) Кстати: Если в запросе добавить поле суммы, то вместо собирания строки ключей, можно просто считать суммы...

Вот интересно, я это для кого писал 9 дней назад?
Для Деда Мороза?
Так ему это и нафик не нужно!

Всего то делов - заточить мой пример под свою задачу:

Public Function AmountWithChildren(IDItem As String, Optional rst As ADODB.Recordset) As Currency     Dim varBmk As Variant     If rst Is Nothing Then         Set rst = New ADODB.Recordset         rst.Open "SELECT NUMBER_CARD, PARENT_CARD, MONTH_TURN FROM CLIENT_CARDS_TBL ORDER BY NUMBER_CARD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic         rst.Find "NUMBER_CARD='" & IDItem & "'"             If Not rst.EOF And Not rst.BOF Then                 AmountWithChildren = rst.Collect(2) + AmountWithChildren(rst.Collect(0), rst)             End If         rst.Close         Set rst = Nothing     Else         rst.MoveFirst         Do Until rst.EOF             rst.Find "PARENT_CARD='" & IDItem & "'"             If Not rst.EOF And Not rst.BOF Then                 varBmk = rst.Bookmark                 AmountWithChildren = AmountWithChildren + rst.Collect(2) + AmountWithChildren(rst.Collect(0), rst)                 rst.Bookmark = varBmk                 rst.MoveNext             End If         Loop     End If End Function