ник: kot_k_k
Do Until rst.EOF
rst.MoveLast
rst.MoveFirst
rst.Find "PARENT_CARD = '" & STR_NUMBER_CARD & "'"
Loop
|
убрал присвоение - цикл не понял - посл.зап, первая - найти, посл.-первая - нашли тоже
и почему не открыть rst с условием
SrtSQL="SELECT CLIENT_CARDS_TBL.* From CLIENT_CARDS_TBL Where PARENT_CARD ='" & STR_NUMBER_CARD & "'"
rst.Open SrtSQL, GLB_CONNECTION, adOpenKeyset, adLockOptimistic
и искатьничего не нужно все записи по условию - перебрал - проссумировал