Discussion :

[geekette38]

Salut tout le monde
Je suis débutante dans la programmation

je souhaite dans mon code récupérer une table de ma bdd access afin de faire une somme sur un de ses champs. Mais je souhaiterais ajouter une condition dans la requête:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
' Macro1 Macro
'
Dim enregis As DAO.Recordset, varSQL As DAO.Recordset, baseAccess As Database, feuille As Excel.Worksheet
Dim i As Integer
 
 
Set feuille = ThisWorkbook.Worksheets("Feuil1")
'On établi la connection avec la base Access
Set baseAccess = DBEngine.OpenDatabase("C:\Users\Admin\Documents\Base de données1.accdb")
Set enregis = baseAccess.OpenRecordset("Select * FROM Liste_clients")
Code_Post = 75013
Set varSQL = baseAccess.OpenRecordset("SELECT * FROM Liste_clients WHERE Code_Postal =  Code_Post")

Quand je remplace directement Code_Post par 75013 ça marche, mais ça beugue quand je laisse la variable.
J'ai cherché partout dans le forum je n'ai pas vu de posts répondant à ma question.
Des idées?

Merci

[Invité]

Bonjour,
Quand tu utilises DAO tu charge en mémoire toute l'application Access!
Je t'invite ardemment de choisir DAO!

Code :

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

1
2
Code_Post = 75013
"SELECT * FROM Liste_clients WHERE Code_Postal =" &  Code_Post

Si tu veux faire une somme pourquoi pas la faire dans ta requête?

Code sql :

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

Select Sum(champ1),Champ2 from Liste_clients WHERE Code_Postal = 75013 group by champ2