Discussion :

[maximus_yassine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function GetTpsMobLigne() As Double
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

[Kalvin_20]

Bonjour à toi

fais nous voir ton appel de fonction

[marot_r]

Sur quelle ligne l'erreur se produit-elle ?

Tu pourrais aussi grandement te simplfier la vie en faisant une requète paramétrée par [reports]![tonRapport]![ligne].

A+