Bom dia, estou usando um exemplo de calculo de horas extras que peguei na internet (não sei quem foi o autor), ele funciona bem ,mas precisa de alguns ajustes como por exemplo, especificar o intervalo de dias para o calculo de horas de um determinado funcionario... tentei filtrar digitando os parametros direto na consulta e funcionou perfeitamente, mas quando tento fazer referencia aos dados especificados em um formulario , ocorre o seguinte erro:
Erro em tempo de execução '3061'
Parâmetros insuficientes.Eram esperados 2.
parece que ele não está passando para a função os dados do formulario, já que a consulta em si retorna o periodo correto. Alguém sabe me dizer o que devo fazer?? abaixo segue a função.
Desde já, agradeço a atenção.
Public Function fncSomaHe()
If Not CurrentProject.AllForms("frmHe").IsLoaded Then Exit Function
Dim rs As DAO.Recordset, TotalSoma, ht, hh As Double
DoCmd.RunCommand acCmdSaveRecord
Set rs = CurrentDb.OpenRecordset("qryHorasExtras")
TotalSoma = 0
Do While Not rs.EOF
TotalSoma = fncSomaHora(TotalSoma, rs!HoraExtra)
rs.MoveNext
Loop
Parent!Texto19 = TotalSoma
ht = Split(TotalSoma, ":")
hh = Round((Parent!Salário / 220) + 0.00001, 2)
Parent!ValorPagar = (ht(0) * hh) + ((ht(1) / 60) * hh) + ((ht(2) / 3600) * hh)
Set rs = Nothing
End Function
Erro em tempo de execução '3061'
Parâmetros insuficientes.Eram esperados 2.
parece que ele não está passando para a função os dados do formulario, já que a consulta em si retorna o periodo correto. Alguém sabe me dizer o que devo fazer?? abaixo segue a função.
Desde já, agradeço a atenção.
Public Function fncSomaHe()
If Not CurrentProject.AllForms("frmHe").IsLoaded Then Exit Function
Dim rs As DAO.Recordset, TotalSoma, ht, hh As Double
DoCmd.RunCommand acCmdSaveRecord
Set rs = CurrentDb.OpenRecordset("qryHorasExtras")
TotalSoma = 0
Do While Not rs.EOF
TotalSoma = fncSomaHora(TotalSoma, rs!HoraExtra)
rs.MoveNext
Loop
Parent!Texto19 = TotalSoma
ht = Split(TotalSoma, ":")
hh = Round((Parent!Salário / 220) + 0.00001, 2)
Parent!ValorPagar = (ht(0) * hh) + ((ht(1) / 60) * hh) + ((ht(2) / 3600) * hh)
Set rs = Nothing
End Function