ник: час
Public Function FUN_TO_FILL_TREE_VIEW(STR_NUMBER_CARD As String) As Integer
' Пробег по детям Подсчёт доходов
'CLIENT_CARDS_TBL NUMBER_CARD PARENT_CARD
Dim rst As ADODB.Recordset
Dim VAL_COUNT As Integer ' количество карт
Set rst = New ADODB.Recordset
VAL_COUNT = 0
GLB_GROUP_ACCOUNT = 0
On Error GoTo C_LOSE
rst.Open "SELECT CLIENT_CARDS_TBL.* " _
& " From CLIENT_CARDS_TBL ", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
If rst.RecordCount = 0 Then GoTo C_LOSE
Debug.Print STR_NUMBER_CARD
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF
rst.MoveLast
rst.MoveFirst
rst.Find "PARENT_CARD = '" & STR_NUMBER_CARD & "'"
как тут проверить - что Find ничего не нашёл???????????????
STR_NUMBER_CARD = rst("NUMBER_CARD")
VAL_COUNT = VAL_COUNT + 1
GLB_GROUP_ACCOUNT = GLB_GROUP_ACCOUNT + rst("PERSONAL_ACCOUNT")
Loop
C_LOSE:
FUN_TO_FILL_TREE_VIEW = VAL_COUNT
rst.Close
Set rst = Nothing
End Function