[access VBA] coder une requête SQL en VBA
Fermé
fredo91170
Messages postés
7
Date d'inscription
vendredi 6 octobre 2006
Statut
Membre
Dernière intervention
31 juillet 2007
-
6 oct. 2006 à 10:01
blux Messages postés 24869 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 18 mars 2023 - 6 oct. 2006 à 10:26
blux Messages postés 24869 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 18 mars 2023 - 6 oct. 2006 à 10:26
A voir également:
- [access VBA] coder une requête SQL en VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Vba range avec variable ✓ - Forum VB / VBA
- Vba arrondi supérieur ✓ - Forum VB / VBA
- Inputbox vba - Astuces et Solutions
1 réponse
blux
Messages postés
24869
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 mars 2023
3 308
6 oct. 2006 à 10:26
6 oct. 2006 à 10:26
Salut,
il faut mettre ton code dans une chaine (en évitant les guillemets puisqu'on en a dans la définition de la chaine), puis définir une requête qu'on pourra exécuter :
il faut mettre ton code dans une chaine (en évitant les guillemets puisqu'on en a dans la définition de la chaine), puis définir une requête qu'on pourra exécuter :
Dim Str as String
Dim Req As QueryDef
Str = "SELECT [Sales Orders It Macro].[Opé], [Sales Orders It Macro].[Lp], [Sales Orders It Macro].[Titre], [Sales Orders It Macro].[Raison], Sum([Sales Orders It Macro].[Qte]) "
Str = Str + "AS SumOfQte, Avg([Sales Orders It Macro].[Mt]) AS AvgOfMt
FROM [Sales Orders It Macro] "
Str = Str + "....."
Str = Str + "HAVING ((([Sales Orders It Macro].Opé)='200640C') AND ((Avg([Sales Orders It Macro].Mt))>0));"
Set Req = CurrentDb.CreateQueryDef("", Str)
Req.Execute dbFailOnError