Requête SQL dans VBA pour effectuer un calcul
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:
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
