MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Consulta SQL para VBA com erro

    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 06/09/2011

    [Resolvido]Consulta SQL para VBA com erro Empty [Resolvido]Consulta SQL para VBA com erro

    Mensagem  wmantovani 6/7/2022, 19:04

    Por favor pessoal, em uma consulta SQL abaixo roda perfeitamente, porem preciso colocar essa instrução via VBA, porem da erro de sintaxe, e nao sei onde esta o erro.

    DoCmd.RunSQL sql = "UPDATE tblExtra SET tblExtra.Total_Horas = Format(Int(Sum(Format([Total_Horas_],"hh")))+Int((Sum(Format([Total_Horas_],"nn")))/60),"00") & ":" & Format((Sum(Format([Total_Horas_],"nn")))-Int((Sum(Format([Total_Horas_],"nn")))/60)*60,"00");"


    se alguem puder dar uma ajuda agradeço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Consulta SQL para VBA com erro Empty Re: [Resolvido]Consulta SQL para VBA com erro

    Mensagem  Alexandre Fim 6/7/2022, 19:35

    Olá,

    Remova "sql = " da instrução.

    Deve ficar assim:
    DoCmd.RunSQL "UPDATE tblExtra SET tblExtra.Total_Horas = Format(Int(Sum(Format([Total_Horas_],"hh")))+Int((Sum(Format([Total_Horas_],"nn")))/60),"00") & ":" & Format((Sum(Format([Total_Horas_],"nn")))-Int((Sum(Format([Total_Horas_],"nn")))/60)*60,"00");"

    OBS: A instrução acima irá atualizar TODOS os registros da tabela, pois não consta o WHERE (condição).


    É isso.

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Consulta SQL para VBA com erro Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 06/09/2011

    [Resolvido]Consulta SQL para VBA com erro Empty Re: [Resolvido]Consulta SQL para VBA com erro

    Mensagem  wmantovani 6/7/2022, 19:41

    Ainda com erro, a mensagem que retorna é: erro de compilação, erro de sintaxe.



    :-(
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Consulta SQL para VBA com erro Empty Re: [Resolvido]Consulta SQL para VBA com erro

    Mensagem  Alexandre Fim 6/7/2022, 20:06

    Ok.
    Envia uma copia do bd, somente as partes envolvidas para análise e soulução do problema.

    Att,

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Consulta SQL para VBA com erro Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 06/09/2011

    [Resolvido]Consulta SQL para VBA com erro Empty Re: [Resolvido]Consulta SQL para VBA com erro

    Mensagem  wmantovani 6/7/2022, 20:14

    Caro Alexandre Fim, seria apenas essa linha que esta com erro e nao to sabenso passar para vba, na consulta em SQL do Access esta assim:

    UPDATE tblExtra SET tblExtra.Total_Horas = Format(Int(Sum(Format([Total_Horas_],"hh")))+Int((Sum(Format([Total_Horas_],"nn")))/60),"00") & ":" & Format((Sum(Format([Total_Horas_],"nn")))-Int((Sum(Format([Total_Horas_],"nn")))/60)*60,"00");

    ai preciso dela em VBA passei para:

    DoCmd.RunSQL "UPDATE tblExtra SET tblExtra.Total_Horas = Format(Int(Sum(Format([Total_Horas_],"hh")))+Int((Sum(Format([Total_Horas_],"nn")))/60),"00") & ":" & Format((Sum(Format([Total_Horas_],"nn")))-Int((Sum(Format([Total_Horas_],"nn")))/60)*60,"00");"

    Inicie eo BD com o Shift, o form em questão é o formHorasExtras e a instrução esta no apos atualizar do campo justificativa
    Anexos
    [Resolvido]Consulta SQL para VBA com erro AttachmentEDICAO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 0 vez(es)
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 06/09/2011

    [Resolvido]Consulta SQL para VBA com erro Empty Re: [Resolvido]Consulta SQL para VBA com erro

    Mensagem  wmantovani 7/7/2022, 19:37

    Consegui resolver depois de quebrar a cabeça, rs

    Valeu...

      Data/hora atual: 24/9/2022, 19:54