пишешь правильно
итог по - значениям рекордсета формы
вместо применения фильтра - изменяй источник данных формы с необходимыми условиями отбора

а чего здесь сложного ?

if me.filteron and me.filter<> "" then
me.recordsource = me.recordsource + " where " + me.filter
'me.filter = ""
'me.filteron = false
end if

(если в источнике запроса нет where и ордера )

есть множество способов подсчитать итоговое значение это только один из ...
и пожалуй самый простой

можно например считать сумму в отдельном рекордсете
в качестве источника которому давать

if me.filteron and me.filter<> "" then
rst.recordsource = me.recordsource + " where " + me.filter
end if