A voir également:
- [VBA Access] sommer des resultats de requetes
- Lexer resultats - Télécharger - Sport
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Résultats loto 5/90 d'aujourd'hui ✓ - Forum Excel
- Resultats foot - Télécharger - Vie quotidienne
4 réponses
hervelot
Messages postés
535
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
123
2 déc. 2007 à 22:14
2 déc. 2007 à 22:14
Bonjour,
Est ce que le champ résultat de ta requête porte toujours le même nom ??
Est ce que le champ résultat de ta requête porte toujours le même nom ??
hervelot
Messages postés
535
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
123
2 déc. 2007 à 22:39
2 déc. 2007 à 22:39
Pour simplifier la procédure il faudrait que le champ contenant la valeur à récupérer ai le même nom
Sinon
Voici un début de procédure
Sub compte()
Dim req As QueryDef
Dim db As Database
Dim rst As Recordset
Dim total As Integer
Set db = CurrentDb
i = 1
For Each req In db.QueryDefs
If Left(req.Name, 1) = "A" Then
Set rst = db.OpenRecordset(req.Name)
total = total + rst![sommedeb]
End If
Next
MsgBox total
End Sub
Sinon
Voici un début de procédure
Sub compte()
Dim req As QueryDef
Dim db As Database
Dim rst As Recordset
Dim total As Integer
Set db = CurrentDb
i = 1
For Each req In db.QueryDefs
If Left(req.Name, 1) = "A" Then
Set rst = db.OpenRecordset(req.Name)
total = total + rst![sommedeb]
End If
Next
MsgBox total
End Sub