DSum関数を利用することでテーブルやクエリのレコードの合計値をえることがきます、

DAvg関数を利用することでテーブルやクエリのレコードの平均値をえることができます。









DSum関数、DAｖｇ関数

Sub MaxMinR()
   
        Dim num As Integer
        
        '年齢の合計値を取得
        num = DSum("年齢", "T_会員")
       
        MsgBox ("会員の合計年齢は" & num & "歳です。")
        
        '年齢の平均値を取得
        num = DAvg("年齢", "T_会員")
       
        MsgBox ("会員の平均年齢は" & num & "歳です。")
       
End Sub


上の例ではT_会員テーブルに登録されている方の年齢の合計値と平均値を取得し
それぞれメッセージボックスで表示させています。