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

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: kot_k_k
а цикл по детям где, так мы берем только первого дитя и все!!!!


Function Fac(STR_NUMBER_CARD )
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

GLB_GROUP_TURN =0#

rst.Open "SELECT CLIENT_CARDS_TBL.* " _
& " From CLIENT_CARDS_TBL " _
& " Where (((CLIENT_CARDS_TBL.PARENT_CARD) = '" & STR_NUMBER_CARD & "')), GLB_CONNECTION, adOpenKeyset, adLockOptimistic"
do while rst.eof=false
          ' берём первого, считываем данные его доходов с помощью FUN_PERSONAL_TURN
            GLB_GROUP_TURN = GLB_GROUP_TURN + FUN_PERSONAL_TURN()
            STR_NUMBER_CARD = ( rst("NUMBER_CARD")
            Fac(STR_NUMBER_CARD )
            rst.movenext
loop
rst.Close
Set rst = Nothing
End Function


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.