[Resolvido]Consulta SQL para VBA com erro

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

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

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



:-(

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

Att,

FIM

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

Consegui resolver depois de quebrar a cabeça, rs

Valeu...