Поделиться через


Средняя функция (Microsoft Access SQL)

Область применения: Access 2013 | Access 2016

Вычисляет среднее арифметическое для набора значений, содержащихся в указанном поле в запросе.

Синтаксис

Avg(expr)

Заполнитель expr представляет строковое выражение, идентифицирующее поле, содержащее числовые данные, которые требуется усреднить, или выражение, которое выполняет вычисление с использованием данных в этом поле. Операнды в expr могут включать имя поля таблицы, константы или функции (которые могут быть встроенными или определяемыми пользователем, но не одной из других агрегатных функций SQL).

Замечания

Среднее значение, вычисленное по среднему значению, является арифметическим (сумма значений, деленной на количество значений). Например, для расчета средней стоимости фрахта можно использовать.

Функция Avg не включает в вычисление поля NULL .

Используйте avg в выражении запроса и в свойстве SQL объекта QueryDef или при создании объекта Recordset на основе SQL-запроса.

Пример

В этом примере таблица Orders используется для расчета средних расходов на доставку для заказов с грузовыми расходами более 100 долл. США.

В этом примере вызывается процедура 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

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.