Discussion :

[Lincoln911]

Bonjour à tous,
je suis un peu perdu dans ce forum. J'ai cherché avant de poster mon message.
J'ai un petit soucis avec une requête SQL que je veux faire sous VBA (avec DAO) pour accéder à une table, récupérer tous les enregistrement qui répondent à certains critères, ensuite sommer les nombres contenus dans une colonne et afficher le résultat dans un champs texte.
Voici à quoi ressemble mon code pour le moment

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
20
 
' Déclaration des vars
Dim db As DAO.Database, qry As DAO.QueryDef
Dim strRequete As String, strSQL As String
 
'Form![CoutTotalActions].Value = "Bonjour les dégats"
Set db = CurrentDb
   ' Crée le code SQL et le met dans la variable strSQL
   strSQL = "SELECT Sum(Produit.PrixProduit) "
   strSQL = strSQL & "FROM Produit "
 
   'CreerInstSqlCmdesClient (strSociete)
   ' On s'assure que la requête n'est pas ouverte.
   DoCmd.Close acQuery, strSQL
   ' Tente d'obtenir l'objet QueryDef correspondant à
   ' la requête. Si elle n'existe pas une erreur se produit
   On Error Resume Next
   Set qd = db.QueryDefs(strSQL)
   On Error GoTo 0
 ...

Je ne sais pas aller plus loin, notamment pour exécuter la requête SQL que je viens de définir et récupérer les résultats, çàd: faire la somme des lignes de la colonne qui est renvoyée en résultat.

Par avance, merci de votre aide

[Arkham46]

bjr,

ce tutoriel devrait vous aider :
http://jdgayot.developpez.com/tutori...ultats-labels/

[Lincoln911]

bjr,

ce tutoriel devrait vous aider :
http://jdgayot.developpez.com/tutori...ultats-labels/

Bonjour Arkham,
Je vous remercie pour cette proposition,
j'avoue que je suis resté un peu sur ma fin avec ce tuto.
Celui-ci renvoie toujours vers des requêtes faites avec Access, or moi je n'arrive pas à le faire avec Access, je dois passer par du VBA.
Du coup, je ne sais pas comment faire le lien entre le moment où je définis la requête strSQL et le moment où je récupère le résultat de l'execution de celle-ci

[Invité]

Bonjour Lincoln911
Bonjour Arkahm46.

Je penses que tu n'as pas bien lu le tuto en question. Il y a plusieurs options possibles. Requêtes classiques, RechDom, et Vba.
D'ailleurs si tu charges le fichier de Démo, tu verras qu'il n'y a pas de requêtes Access. mais que du Vba.

[Lincoln911]

Bonjour Lincoln911
Bonjour Arkahm46.

Je penses que tu n'as pas bien lu le tuto en question. Il y a plusieurs options possibles. Requêtes classiques, RechDom, et Vba.
D'ailleurs si tu charges le fichier de Démo, tu verras qu'il n'y a pas de requêtes Access. mais que du Vba.

Oui, cela étant dit, je ne trouve pas ce que je cherche: comment exécuter une requête SQL dans VBA, récupérer son résultat et l'utiliser.
J'ai relu le tuto mais ça ne m'aide pas dans ce sens, les requêtes dans celui-ci, sont faites via l'interface d'Access...

[Invité]

As tu été à la section "<section id="II-C-1-a"" par exemple?
As tu téléchargé le fichier?

[Lincoln911]

As tu été à la section "<section id="II-C-1-a"" par exemple?
As tu téléchargé le fichier?

Salut GAYOT,
merci pour cette aide.
oui je viens de relire la section en question. J'ai fait le test avec le fichier inclus en exemple. ça marche parfaitement...mais
Je ne sais pas comment transposer ça à ma problématique, qui consiste à sommer les lignes de la colonne obtenue.

[Lincoln911]

As tu été à la section "<section id="II-C-1-a"" par exemple?
As tu téléchargé le fichier?

Salut GAYOT;
j'ai fini pr trouver la solution à mon problème. Il fallait pour moi faire la somme depuis la requête SQL (fallait aussi éviter les erreurs dans les références aux variables )

Code :

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

1
2
3
4
5
6
7
8
 
' Crée le code SQL et le met dans la variable strSQL
   strSQL = "SELECT Sum(Produit.PrixProduit) "
   strSQL = strSQL & "FROM Produit "
' Ouvrir le résutat de la requete
   Set rsRecordset = db.OpenRecordset(strSQL, dbOpenSnapshot)
   ' Afficher le champs avec index
   intNbr = rsRecordset.Fields(0)

J'espère que cela va servir à quelqu'un pour éviter de perdre du temps