How to calculate ( add-up ) all the controls in a form

[hoym]

Please HELP !

I wish to add up all the Controls in a form to a text control , say [A1]....[A5]

its OK when [A1]....[A5] all has a value but it doesn't work if any one of them is Null.

How can i manage it even any one of [A1]....[A5] is empty ?

Martin

 

[Darrylles]

Hi hoy,

If you're using VBA, then just check that the field isn't empty:

if(fieldname <> &quot;&quot then 'add it to list'.

regards,

Darrylle &quot;Never argue with an idiot, he'll bring you down to his level - then beat you with experience.&quot;

 

[MichaelRed]

Public Function basSumVal(ParamArray varMyVals() As Variant) As Variant

    'Michael Red 12/1/2002
    'To return the SUM or a series of values

    'Sample Usage:
    '? basSumVal(1, 2, 3, 4, 5, 6)
    ' 21

    '? basSumVal(0, 1, 2, 4, 8, 16, 32, 64)
    ' 127

    Dim Idx As Integer
    Dim MySum As Variant

    For Idx = 0 To UBound(varMyVals())
        If (Not IsNull(varMyVals(Idx))) Then
            MySum = MySum + varMyVals(Idx)
        End If
    Next Idx

    basSumVal = MySum

End Function

MichaelRed
m.red@att.net

Searching for employment in all the wrong places