ник: час
Дааа это будет обнулять
это надо убрать -
а обнулять бум перед вызовом этой функции...
Function Fac(STR_NUMBER_CARD )
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
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
|
а как же теперь других детей самой верхней самого первой карты
или я опять не догнал????
Ваще то вроде никого не обделили....
Но я сомневаюся
Ей час ещё код по изучаю в мозге........