j'ai une fonction qui ne marche pas
quand j'exécute je recois ce message: erreur d'execution '3075':[/b]
Fonction utilisée avec un nombre d'arguments incorrect
Public Function GetTpsMobLigne() As Double[/ocolor]
Dim TpsMobilise As Double
Dim ligne As Variant
ligne = Report_Et_rapportHebdo.TOUR_numLigne
Dim str As String
str = "SELECT Sum(Rq_efficaciteParTournee.TpsMobilise) AS SommeDeTpsMobilise " _
& "FROM Rq_efficaciteParTournee " _
& "WHERE (((Rq_efficaciteParTournee.TOUR_date) Between #" & Month(GetRapportHebdoDateDeb()) & "/" & Day(GetRapportHebdoDateDeb()) & "/" & Year(GetRapportHebdoDateDeb()) & "#" _
& " And #" & Month(GetRapportHebdoDateFin()) & "/" & Day(GetRapportHebdoDateFin()) & "/" & Year(GetRapportHebdoDateFin()) & "#)"
str = str & "AND TOUR_numLigne LIKE IIf(IsNull(" & ligne & "),'*'," & ligne & ") "
str = str & ");"
'On Error GoTo Err
Dim rsEfficacite As Recordset
Set rsEfficacite = CurrentDb.OpenRecordset(str)
TpsMobilise = rsEfficacite![SommeDeTpsMobilise]
rsEfficacite.Close
'Err:
GetTpsMobLigne = TpsMobilise
End Function
