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

Tenho algumas aplicações em delphi e descobri que quando o usuário vizualiza o relatório e tenta imprimir em outra impressora usando o print setup, não imprimi. Alguém tem alguma solução para imprimir usando o print setup. att. Pedro

Resolvido Procedure TFormCadPatrim.DBComboBox3DropDown(Sender: TObject); Begin DBComboBox3.Clear; QRConMarca.First; While Not QRConMarca.Eof do begin DBComboBox3.Items.Add(QRConMarca.FieldByName('Marca').AsString); QRConMarca.Next; DBComboBox3.Text:= TabCadPatrimonioMarca.Text; End; End; att. Pedro

O Problema é que estou uma Query é somente leitura. Não consigo acrescentar nada. Select Distinct Marca FROM Tab_Patrimonio Order By Marca att. Pedro

Não deu certo. Estou usando o mysql 5.1. Deu erro nesta linha em (-1). ClientDataSet1.ApplyUpdates(-1); grato.

Porque não consigo digitar nada em um DBComboBox ou DBLookupComboBox. Estou querendo fazer com que o usuario digite a marca do produto no DBComboBox ou DBLookupComboBox quando essa não tiver na lista. Por exemplo, na tabela produtos existe o campo marca, para evitar fazer outra tabela só para cadastrar a marca estou tentando incrementar no campo marca da tabela produtos. Já tenho uma solução para ComboBox, mas agora estou tentando usar DBComboBox ou DBLookupComboBox. att. Pedro

Obrigado pela dica, mas conegui gravar usando: QRCadEscala.ParamByName('DataHoraInicio').AsDateTime:= StrToDate(Edit5.Text) + StrToTime(Edit6.Text); QRCadEscala.ParamByName('DataHoraFim').AsDateTime:= StrToDate(Edit7.Text) + StrToTime(Edit8.Text); grato Pedro

Porque consigo gravar a data conforme abaixo e não consigo gravar a hora. O campo do banco é do tipo datetime QRCadEscala.ParamByName('DataHoraInicio').AsDate:= StrToDate(Edit5.Text); QRCadEscala.ParamByName('DataHoraFim').AsDate:= StrToDate(Edit7.Text); QRCadEscala.ParamByName('DataHoraInicio').AsTime:= StrToTime(Edit6.Text); QRCadEscala.ParamByName('DataHoraFim').AsTime:= StrToTime(Edit8.Text); grato. Pedro

Neste link tem um pacote com o MyDAC para todas as versões do Delphi http://depositfiles.com/pt/files/4xhmxlmip Senha para descompactar www.prolaz-team.info Até mais. É a versão 5.7024.

Tenho o código abaixo e ao abrir o form não consigo fazer com que o cursor fique no DBEdit15. Ao trocar o ShowModal por Show funciona, mas os forms abaixo não ficam travados. Tem uma outra solução para isso. Begin Try FormCadVistoria:=TFormCadVistoria.Create(Self); FormCadVistoria.TabCadVistoria.Last; FormCadVistoria.ShowModal; FormCadVistoria.DBEdit15.SetFocus; Except FormCadVistoria.Free; End; End; Pedro

Valeu, usei a 2ª opção e deu certo. abraços Pedro