MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 10558
    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!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 19:27