[ACCESS - VBA -ADO] Requete predefinie
Résolu/Fermé
Garby
Messages postés
133
Date d'inscription
samedi 7 octobre 2006
Statut
Membre
Dernière intervention
28 juin 2023
-
28 oct. 2006 à 12:38
Utilisateur anonyme - 2 nov. 2006 à 00:23
Utilisateur anonyme - 2 nov. 2006 à 00:23
A voir également:
- [ACCESS - VBA -ADO] Requete predefinie
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
- Erreur 1004 vba ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- You don't have permission to access this resource ✓ - Forum Réseaux sociaux
2 réponses
Utilisateur anonyme
28 oct. 2006 à 17:32
28 oct. 2006 à 17:32
Bonjour,
si j'ai bien compris, vous n'avez qu'a placer l'instruction :
et votre requête est exécuté !
Lupin
si j'ai bien compris, vous n'avez qu'a placer l'instruction :
Set MonRecordset = MaBase.QueryDefs!MaRequetePredefinie RefreshDatabaseWindow
et votre requête est exécuté !
Lupin
Utilisateur anonyme
2 nov. 2006 à 00:23
2 nov. 2006 à 00:23
re:
en fait, je ne suis pas sur de bien comprendre, vous avez plusieurs requêtes ?
Lorsque j'ai besoin de plusieurs requête qui sont fonction des choix
utilisateur, je construis une requête générique en string et je la
modifie par programmation.
Tiré de [ Beginning Access 97 VBA Programming ]
Lupin
en fait, je ne suis pas sur de bien comprendre, vous avez plusieurs requêtes ?
Lorsque j'ai besoin de plusieurs requête qui sont fonction des choix
utilisateur, je construis une requête générique en string et je la
modifie par programmation.
Tiré de [ Beginning Access 97 VBA Programming ]
Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
Dim Definition As QueryDef
If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If
End Function
Lupin
1 nov. 2006 à 17:00
Et merci pour la réponse mais elle ne m'avance pas...
J'ai contourné mon problème en utilisant :
MaBase.QueryDefs(MaRequetePredefinie).SQL
Ainsi, je construis des requetes avec l'assistant et je passe ensuite le texte de ces requetes à mes recordset. Je ne construis donc pas mes requetes en mode texte dans mon code...
Au niveau de l'élégance, ma solution se pose là, mais ca fonctionne, et ca reste moins moche que la construction des requetes dans le code... :-)