Discussion :

[Waluigi]

Bonjour,

Je suis novice en VBA et j'ai besoin de votre aide...

Je voudraiS en fait récupérer le résultat d'une requête sum que j'ai appliqué sur un champ de ma table source de mon formulaire, et malgré des recherches sur les différents sites je n'y arrive toujours pas.

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim sql As String
Dim Resultat As Recordset
Dim MyDataBase As Database
 
Set MyDataBase = CurrentDb()
 
    sql = "SELECT sum(tpsintervention) As SommeTpsIntervention FROM Intervention WHERE Intervention.NoDI like 'Me.NoDI'"
    Set Resultat = MyDataBase.OpenRecordset(sql)
    Me.Tpsinterventiontotal = Resultat.Fields("SommeTpsIntervention")
End Sub

Le code ne me renvoie pas d'erreur mais aucun résultat, les tables sont pourtant bien remplies.
Sachant que si j'enlève le filtre "WHERE Intervention.NoDI like 'Me.NoDI'" le code me renvoie bien une valeur (forcément pas la bonne).

Merci beaucoup pour votre aide.

[Jean-Philippe André]

salut,
je suppose que tu récupères une valeur depuis ton formulaire.

La syntaxe sera alors plutôt comme ceci :

Code :

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

 sql = "SELECT sum(tpsintervention) As SommeTpsIntervention FROM Intervention WHERE Intervention.NoDI like '*" & Me.NoDI & "*'"

[Waluigi]

Super merci, tu m'enlèves une bonne épine du pied .