MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em 26/3/2019, 01:34

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 26/3/2019, 15:59

    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)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Média de tempo em formato Hora no VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Média de tempo em formato Hora no VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Média de tempo em formato Hora no VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em 26/3/2019, 23:57

    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 [...]

    avatar
    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em 28/3/2019, 23:58

    Boa noite.

    Funcionou. Inverti as funções:

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


    Muito obrigado!

      Data/hora atual: 4/7/2020, 15:29