Postada em 22/07/2008 16:00 hs
Sql_2 = "Select Codigo,Data,Sum(SaldoHora)As Total From HExtra WHERE Codigo Like '%" & TxtCod.Text & "%' and Data BETWEEN #" & Format(TxtIn.Value, "MM/DD/YYYY") & "# AND #" & Format(TxtFin.Value, "MM/DD/YYYY") & "# GROUP BY Data,Codigo,SaldoHora"
Set Movimento3 = Bd_Hora.Execute(Sql_2)
If Not Movimento3.EOF Then
Me.TxtTotal.Text = Movimento3("Total")
Onde estou errando na instrução acima, pois esta dando erro (Tipo de dados incompativel na expressão de criterio)
Estou tendando fazer a soma de horas baseando-se no codigo do funcionario e o periodo.
Meu campo SaldoHora é texto.
Não sei se a query esta correta.
Tentei assim tambem, mas da a mesma mensagem:
Set Movimento3 = New ADODB.Recordset
Movimento3.Open "Select Data,Codigo,Sum(SaldoHora)AS Total From HExtra WHERE Codigo Like '%" & TxtCod.Text & "%' GROUP BY Data,Codigo,SaldoHora Having Data BETWEEN #" & Format(TxtIn.Value, "MM/DD/YYYY") & "# AND #" & Format(TxtFin.Value, "MM/DD/YYYY") & "# ORDER BY Data", Bd_Hora, adOpenDynamic, adLockOptimistic
Valor = Movimento3!Total
Me.TxtTotal.Text = Format(Valor, "HH:MM")
|
