Сложить между собой поля записей в таблице нарастающим итогом

Kol=Poisk2del("ИмяТаблицы","ИмяСумовогоПоля","ИмяКлючаИлиСчетчика", 10000, 0.001)

Public Function Poisk2del(tbl, fld, id, summa, eps)
'tbl   - имя таблицы
'fld   - имя сумового поля
'id    - имя ключевого поля (например счетчик)
'summa - заданное значение суммы
'eps   - предельна величина дробления интервала. Рекомендуется в интервале 0.01-0.001
    Dim s, i, delta, idsled, idcur, idPred, sumcur
    Dim idMin, idMax, N As Long
    Dim db As dao.Database
    Dim t1, t2
    
    t1 = VBA.Timer
    Set db = CurrentDb
    idMin = DMin(id, tbl): idMax = DMax(id, tbl)
    N = DMax(id, tbl, id & "<=" & Int((idMax - idMin) / 2)): delta = N / 2
    
    Do While True
        i = i + 1
        idcur = DMax(id, tbl, id & "<=" & N)
        sumcur = DSum(fld, tbl, id & "<=" & idcur)
        
        If idcur = idMax Or idcur = idMin Or Abs(delta) < eps Or sumcur = summa Then
        'Значение найдено или параметры поиска больше не изменяются. Поиск прекращен
            Poisk2del = idcur
            GoTo finis
        End If
        
        If sumcur < summa Then
            idsled = DMax(id, tbl, id & "<" & idcur)
            If DSum(fld, tbl, id & "=" & idsled) > summa Then 'Значение найдено, поиск прекращен
                Poisk2del = idcur
                GoTo finis
            Else
                N = N + delta '+ 0.5
                GoTo NextStep
            End If
        Else
            idsled = DMin(id, tbl, id & ">" & idcur)
            If DSum(fld, tbl, id & "=" & idsled) > summa Then 'Значение найдено, поиск прекращен
                Poisk2del = idcur
                GoTo finis
            Else
                N = N - delta '- 0.5
                GoTo NextStep
            End If
        End If
NextStep:
        If idPred = idcur Then 'Значения повторяются. Поиск прекращен.
            Poisk2del = idcur  'Значение найдено
            GoTo finis
        End If
        delta = delta / 2
        idPred = idcur
        Debug.Print i, Round(N, 5), Round(delta, 6), idcur, idsled, sumcur, DSum(fld, tbl, id & "=" & idsled)
    Loop
finis:
    t2 = VBA.Timer
    Debug.Print t2 - t1
End Function

Dim Amt As Currency
Dim LastMarker As Integer
 
Public Function InitF()
    LastMarker = 0
    Amt = 0
End Function
 
Public Function GetMark(Val As Double) As Integer
Const MaxAmt As Currency = 2200
    Amt = Amt + Val
    If Amt > MaxAmt Then
        LastMarker = LastMarker + Amt \ MaxAmt
        Amt = Amt Mod MaxAmt
    End If
    GetMark = LastMarker
End Function

(DStDevP("Числовое поле", "tbl") / DAvg("Числовое поле", "tbl")) * 100

   Dim N As Integer, i As Integer
   Dim q(), s, s_2, D_g As Double
 
   N = Val(InputBox("Укажите количество элементов диапазона"))
   ReDim q(1 To N)
   
   For i = 1 To N
      q(i) = Val(InputBox("Значение элемента № " & i))
      s = s + q(i)
      s_2 = s_2 + q(i) ^ 2
   Next i
   
   D_g = s_2 / N - (s / N) ^ 2
   x = Sqr(D_g)
   s = s / N
   y = Round(((x / s) * 100), 4)
 
MsgBox ("Дисперсия: " & D_g)
MsgBox ("Среднеквадратичное отклонение: " & x)
MsgBox ("Коэффициент вариации (в процентах): " & y)