Developing.ru

Пример из справки:
Function KeepTotal(Number)
' Only the variable Accumulate preserves its value between calls.
Static Accumulate
Accumulate = Accumulate + Number
KeepTotal = Accumulate
End Function
Вставляю его в подчиненную табличную форму в примечание. На главной прописываю откуда брать данные (Form!FormPF!Поле1).
У него минус - считает только в до выделенной строки. Как ее подправить, чтобы выдавало полную сумму?
(функцию sum([Поле]) не предлагать - мне нужна своя с несколько измененным механизмом расчета)

Здравствуйте Azazel.
если только использование собственной функции критично создайте её с использованием чтения рекордсета

Код: Выделить всё

Function sumFld()
Const sQ = "select sum([Поле]) from Table"
Dim d As Database, r As DAO.Recordset
Set d = CurrentDb
Set r = CurrentDb.OpenRecordset(sQ)
    sumFld = r(0)
r.Close: Set r = Nothing: Set d = Nothing
End Function

надеюсь использование функции sum([Поле]) в теле запроса приемлемо.
Евгений.
P.S. Вы задали вопрос "..Как ее подправить..?" но не указали кому он адресован,
в следующий раз не забывайте обратиться к получателям вопроса

Developing.ru

Свои статические функции

Свои статические функции

Re: Свои статические функции