ник: Макс@
Вот, что откопал... я так понимаю это прописывается в модуле, а в форме "D" это поле с числами а sumfield это поле с накопителем?
Public Function SumField(Optional var) As Double
Static D As Double
If IsMissing(var) Then
D = 0
Else
D = D + Nz(var, 0)
End If
SumField = D
End Function