Função Avg (Microsoft Access SQL)

  • Artigo

Aplica-se ao: Access 2013 | Access 2016

Calcula a média aritmética de um conjunto de valores contidos em um campo específico de uma consulta.

Sintaxe

Avg(expr)

O espaço reservado expr representa uma expressão em string, identificando o campo que contém os dados numéricos para fazer a média ou uma expressão que executa um cálculo usando os dados desse campo. Os operandos em expr podem incluir o nome de um campo da tabela, uma constante ou uma função (que pode ser intrínseca ou definida pelo usuário mas não uma das outras funções SQL agregadas).

Comentários

A média calculada por Avg é a média aritmética (a soma dos valores divididos pelo número de valores). Você pode usar Avg, por exemplo, para calcular o custo de frete médio.

A função Avg não inclui nenhum campo Null no cálculo.

Use o Avg em uma expressão de consulta e na propriedade SQL de um objeto QueryDef ou ao criar um objeto Recordset com base em uma consulta SQL.

Exemplo

Esse exemplo usa a tabela Orders para calcular a média dos encargos de frete de pedidos com cobranças de frete acima de US$ 100.

Este exemplo chama o procedimento EnumFields, que você pode encontrar no exemplo de instrução 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.