[VBA Access] sommer des resultats de requetes
karine
-
karine -
karine -
Bonjour,
J'ai plus de 80 requêtes (type : fonctions de domaine) me donnant donc comme résultat un nombre précis.
Mon besoin est de faire le total de toutes ces requêtes (afin d'obtenir un chiffre que je mettrai dans un tableau récapitulatif de statistiques).
Sachant qu'elle sont nommées : A1, A2...A80, est-il possible de programmer en VBA une routine qui appellerait celles-ci (tant q''il existe des Ax, en en faisant la somme ???
Merci d'avance à qui m'éclairera.
J'ai plus de 80 requêtes (type : fonctions de domaine) me donnant donc comme résultat un nombre précis.
Mon besoin est de faire le total de toutes ces requêtes (afin d'obtenir un chiffre que je mettrai dans un tableau récapitulatif de statistiques).
Sachant qu'elle sont nommées : A1, A2...A80, est-il possible de programmer en VBA une routine qui appellerait celles-ci (tant q''il existe des Ax, en en faisant la somme ???
Merci d'avance à qui m'éclairera.
A voir également:
- [VBA Access] sommer des resultats de requetes
- Resultats foot - Télécharger - Vie quotidienne
- Lexer resultats - Télécharger - Sport
- Exemple base de données access à télécharger gratuit - Forum Access
- Archives résultats bac 1998 ✓ - Forum Réseaux sociaux
- Acer quick access - Forum logiciel systeme
4 réponses
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
