SQL SUM関数で合計を取得する

SQL = " SELECT SUM(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
指定フィールドの合計値を返します。

例: SQL = " SELECT SUM( 金額 ) AS 売上合計金額 FROM 売上日報 WHERE 商品ID = 3 "
売上日報テーブルの商品IDが3の金額の合計を取得します。
合計値は売上合計金額の名前になります。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT MAX(アクセス数) AS アクセス合計 FROM アクセス"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = rs![アクセス合計]
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード