seveN

Funcionou Valeu pela força. Muitíssimo obrigado Att. Pedro

Tirei o Distinct que não precisava e ficou assim, mas deu erro de parâmetros insuficiente. Dim rs As Recordset Dim sqlStr As String sqlStr = "SELECT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final From Tab_PlanoDesl Where Tab_PlanoDesl.Meio_Transp_Vtr = " & Me.CCViatura & "" Set rs = CurrentDb().OpenRecordset(sqlStr) rs.MoveFirst Me.TextoKmFinal = rs("MáxDeOdometro_Final") rs.Close Set rs = Nothing Att. Pedro

Alguém poderia me ajudar a executar este sql via código no access. Estou querendo que ao sair de uma caixa de combinação (CCViatura) o código pegasse o último Km registrado da viatura e preenchesse o campo TxtKmFinal. O sql é este e já testei. SELECT DISTINCT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final FROM Tab_PlanoDesl Where (((Tab_PlanoDesl.Meio_Transp_Vtr)=forms!Teste!CCViatura)) Att. Pedro

Não é bem isso. Tenho um Relatorio com várias colunas, no form principal eu escolho quais colunas eu quero que seja impresso. Grato. Pedro

Como ocultar um campo em um relatório através de form. Exemplo: No Form coloco os parâmetros e ao clicar no botão imprimir gostaria de ocultar alguns campos. Relatorio.Texto1.Visible = False 'Mas ou menos assim Pedro

Resolvido Obrigado.

Pessoal, estou dificuldades em fazer um relatório de horas extra e adicional noturno, a hora extra já consegui fazer, falta calcular o adicional noturno. Então o que preciso é calcular o período das 22:00 horas às 06:00 horas e mostrar o reultado nos campos HNDtInicio e HNDtFim. Exemplo: Tabela DataInicio DataFim HoraInicio HoraFim HNDtInicio HNDtFim 01/10/2010 02/10/2010 08:00 08:00 2 6 02/10/2010 02/10/2010 08:00 23:00 0 1 04/10/2010 05/10/2010 20:00 08:00 2 6 05/10/2010 06/10/2010 23:00 05:00 1 5 07/10/2010 08/10/2010 20:00 08:00 2 6 Grato seveN

Já resolvi. Vou somar e separar os horarios e depois somar. Grato.

Alguém poderia me ajudar para calcular as horas da tabela abaixo. Sendo que na coluna HoraDiaAtual seria o soma da DtHrFim - DtHrInicio quando a DtHrFim fosse = DtHrInicio e e soma da coluna HoraDiaSeguinte se a Data DtHrFim fosse Superior a DtHrInicio. Como no exemplo: Tabela DtHrInicio DtHrFim HoraDiaAtual HoraDiaSeguinte 02/09/2010 08:00 03/09/2010 08:00 16 8 04/09/2010 18:00 05/09/2010 07:00 06 7 06/09/2010 08:00 06/09/2010 20:00 12 0 08/09/2010 23:00 09/09/2010 08:00 01 8 Atenciosamente Pedro

Seria uma consulta (Módulo) para somar as horas de uma tabela no período das 00:00h de Domingo às 24:00h de sábado. Exemplo: Tabela dataInicio datafim Dia Semana Total hora 02/03/2010 08:00 09/03/2010 08:00 Domingo 24 04/03/2010 08:00 12/03/2010 08:00 Terça 24 06/03/2010 08:00 12/03/2010 20:00 Quinta 24 08/03/2010 08:00 09/03/2010 08:00 Sábado 16 atenciosamente Pedro

Não é bem isso que eu quero. O Calculo entre a data pode começar hoje e terminar no dia seguinte. grato. Pedro.

Pessoal, alguém poderia me ajudar a calcular a quantidade de horas em um intervalo que vai de domingo a sábado. Tenho os campos DataHorainicio e DataHoraFim e gostaria de somar a quantidade de horas realizadas de domingo a sábado. Grato Pedro

Resolvido Substitui as quabras de linhas por espaço em branco. Memo1.Text:= StringReplace(Memo1.Text, #13#10, '', [rfReplaceAll]); //Memo1.Text:= StringReplace(Memo1.Text, #13#10, #0, [rfReplaceAll]); //Deixa a 1ª linha grato. Pedro

Como faço para substituir as quebras de linhas dentro de um memo ou edit por ' ,'. att. Pedro

Já tinha visto o post mas não tem uma solução definitiva. grato Pedro