[Resolvido]Média de tempo em formato Hora no VBA

Boa noite, amigos

Tenho um campo Data/hora onde armazeno as horas. Preciso calcular a média de tempo desse campo, mas que seja exibida no formato de hora.

Numa consulta funciona:
SELECT Atendimentos.Nome_Guerra, Avg(Format([h_cheg],"hh")) AS Expr1
FROM Atendimentos
GROUP BY Atendimentos.Nome_Guerra
[...];


Quando tento em VBA não funciona, retornando: Erro de compilação: 'Sub' ou 'Function' não definida.
[...] SELECT Nome_Guerra, " & avg(Format(h_cheg, "hh:mm")) & " AS MD_CH FROM Atendimentos GROUP BY Nome_Guerra HAVING [...]";"


Obrigado.

Em VBA será;

Código:

Dim strSQL$
    strSQL = "SELECT Atendimentos.Nome_Guerra, Avg(Format([h_cheg],""hh"")) AS Expr1 " & vbCrLf & _
    "FROM Atendimentos " & vbCrLf & _
    "GROUP BY Atendimentos.Nome_Guerra"
    DoCmd.RunSQL (strSQL)

Fala mestre, tranquilo?

Então, o erro não ocorreu mais, mas não retorna dado algum, retornando a seguinte informação em todos os controles do relatório: #Nome?
Vou explicar melhor. Há um formulário que determina a Fonte de Registro do meu relatório:

If (condição) Then Reports!MeuRelatório!RecordSource = "SELECT Nome_Guerra, Avg(Format([H_Cheg],"hh:mm") AS MD_CH FROM Atendimentos GROUP BY Nome_Guerra [...]

Boa noite.

Funcionou. Inverti as funções:

... Format(Avg(H_Cheg),""hh:mm"")...


Muito obrigado!