Bonjour

je désire transferer dans une base acess les données d'une autre base en selectionnant les personnes dont la somme des montants est supérieur à 1500
J'ai effectué cette requete mais cela ne me donne pas la bonne sélection...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Mnum=1500
'debut et fin sont les dates de références
'NOMEXP est le champs de référence
 
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\test.mdb")
Requete$ = "INSERT INTO TABLE1 IN 'C:\test2.mdb' SELECT * From TABLE1 WHERE [DATE] between #" & DEBUT & "# and #" & FIN & "# and [NOMEXP] In (SELECT [NOMEXP] FROM [TABLE1] As Tmp GROUP BY [NOMEXP],[prenomexp] HAVING SUM(MONTANT)> " & Mnum & ")"
db.Execute Requete$
db.Close
Merci d'avance

dumedo