Sum of a field

[James Franklin]

Hi,

I might be being thick here, but what is the easiest way in code to return
the sum of values from a field in my form's recordset?

I have a continuous form, and I want to sum the values of a field as a
parameter into another function. Normally I would simply add a control with
a Control Source of "=Sum([FieldX])" and then use the control's value in my
function. However, in this case, I do not want to use an extra control.

Is there a simple way of getting this value, without initialising additional
recordsets etc.?

Thanks,
Jim F.

 

[Lynn Trapp]

You can loop through your forms Recordset and sum the value.

Dim rst As DAO.Recordset
Dim var_MyVar As Long

Set rst = Me.RecordsetClone
rst.MoveFirst
Do While Not rst.EOF
var_MyVar = rst.Fields(1) + var_MyVar
rst.MoveNext
Loop

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Jeff Conrad's Big List: www.ltcomputerdesigns.com/JCReferences.html

 

[scott]

Look at DSUM