Avg関数 ： Access
Access Avg関数はSQL集合関数です。
クエリで指定したフィールドの平均値を計算します。
また、Recordset オブジェクトを作成するSQL文でも使用できます。
Home 
Access関数Avg(expr)
■ 引数
expr ： 平均値を求めるフィールドを指定します。
■ 戻り値
合計を個数で割った算術平均が返ります。
フィールド値がNullの場合は除外して計算します。
■ Access実行画面
「平均算出」ボタンをクリックすると、商品マスターの”単価平均”と”重量平均”が表示されます。
■ Access VBA 実行コード
Avg関数を使用し、レコードセットを開いています。Option Compare Database
Private Sub コマンド0_Click()
Dim rs As Recordset
'レコードセットを開く
Set rs = CurrentDb.OpenRecordset("SELECT Avg(単価),avg(重量) FROM 商品マスター")
If Not rs.EOF Then
'フィールド0 は単価の平均値
Me!テキスト1 = rs(0)
'フィールド1 は重量の平均値
Me!テキスト3 = rs(1)
End If
'終了処理
Set rs = Nothing
End Sub
Home Access関数Copyright(C) FeedSoft