Avg 関数 (Microsoft Access SQL)

適用先: Access 2013 | Access 2016

クエリで指定したフィールドにある値の集合の平均値を計算します。

構文

Avg(expr)

expr プレースホルダーは、平均する数値データを含むフィールドを識別する文字列式、またはそのフィールド内のデータを使用して計算を実行する式を表します。 expr のオペランドには、テーブル フィールド、定数、または関数の名前を含めることができます (組み込み関数またはユーザー定義関数のいずれかでも、他の SQL 集計関数の 1 つでもかまいません)。

解説

Avg 関数で計算される平均は、値の合計を値の個数で割った算術平均です。 たとえば、平均運送料などを計算する場合に、Avg 関数を使用します。

Avg 関数は、Null 値のフィールドを除外して計算します。

クエリ式で Avg を使用し、QueryDef オブジェクトの SQL プロパティで、または SQL クエリに基づいて Recordset オブジェクトを作成する場合は、Avg を使用します。

例

次の使用例では、Orders テーブルを使用して、運送料が $100 を超える受注品の平均運送料を計算します。

この例では、EnumFields プロシージャを呼び出します。EnumFields プロシージャについては、SELECT ステートメントの使用例を参照してください。

Sub AvgX() 
 
    Dim dbs As Database, rst As Recordset 
 
    ' Modify this line to include the path to Northwind 
    ' on your computer. 
    Set dbs = OpenDatabase("Northwind.mdb") 
 
    ' Calculate the average freight charges for orders 
    ' with freight charges over $100.   
    Set rst = dbs.OpenRecordset("SELECT Avg(Freight)" _ 
        & " AS [Average Freight]" _ 
        & " FROM Orders WHERE Freight > 100;") 
    
    ' Populate the Recordset. 
    rst.MoveLast 
    
    ' Call EnumFields to print the contents of the  
    ' Recordset. Pass the Recordset object and desired 
    ' field width. 
    EnumFields rst, 25 
 
    dbs.Close 
 
End Sub

関連項目

• 開発者フォーラムにアクセスする
• support.office.com のヘルプにアクセスする
• UtterAccess のフォーラムにアクセスする
• 開発者と VBA のプログラミング ヘルプ センター (FMS) にアクセスする
• StackOverflow のアクセス ポスト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。