J'ai une zone de liste et je souhaiterais avoir un bouton qui me permet
d'ouvrir une requ=E8te ayant le m=EAme SQL que cette liste (une sorte
d'extraction des informations).
Le probl=E8me est que le SQL de cette liste est "dynamique" (il est
g=E9n=E9r=E9 par une Sub en fonction de crit=E8res choisis avant), il faut
donc que je le r=E9cup=E8re pour ma requ=E8te.
De plus, je ne connais pas le code VBA pour cr=E9er une requ=E8te (je
doute que openrequery fonctionne dans le cas pr=E9sent)
Merci
Olivier
PS : demandez moi d'autres explications si besoin est
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
"olivierdd" a écrit dans le message de news:
Bonjour, J'ai une zone de liste et je souhaiterais avoir un bouton qui me permet d'ouvrir une requète ayant le même SQL que cette liste (une sorte d'extraction des informations). Le problème est que le SQL de cette liste est "dynamique" (il est généré par une Sub en fonction de critères choisis avant), il faut donc que je le récupère pour ma requète. De plus, je ne connais pas le code VBA pour créer une requète (je doute que openrequery fonctionne dans le cas présent)
Imaginons que tu as dans une variable de type texte maRequete le code généré par ta sub Il te suffit de faire:
Dim rstRequete as RecordSet Set rstRequete = CurrentDb.OpenRecordset(maRequete)
'pour parcourir ta requete
Do While Not rstRequete.EOF 'tu fais ton traitement
rstRequete.MoveNext Loop
Arnaud
"olivierdd" <dufeuolivier@yahoo.fr> a écrit dans le message de news:
1121872735.223529.17880@g49g2000cwa.googlegroups.com...
Bonjour,
J'ai une zone de liste et je souhaiterais avoir un bouton qui me permet
d'ouvrir une requète ayant le même SQL que cette liste (une sorte
d'extraction des informations).
Le problème est que le SQL de cette liste est "dynamique" (il est
généré par une Sub en fonction de critères choisis avant), il faut
donc que je le récupère pour ma requète.
De plus, je ne connais pas le code VBA pour créer une requète (je
doute que openrequery fonctionne dans le cas présent)
Imaginons que tu as dans une variable de type texte maRequete le code généré
par ta sub
Il te suffit de faire:
Dim rstRequete as RecordSet
Set rstRequete = CurrentDb.OpenRecordset(maRequete)
'pour parcourir ta requete
Do While Not rstRequete.EOF
'tu fais ton traitement
Bonjour, J'ai une zone de liste et je souhaiterais avoir un bouton qui me permet d'ouvrir une requète ayant le même SQL que cette liste (une sorte d'extraction des informations). Le problème est que le SQL de cette liste est "dynamique" (il est généré par une Sub en fonction de critères choisis avant), il faut donc que je le récupère pour ma requète. De plus, je ne connais pas le code VBA pour créer une requète (je doute que openrequery fonctionne dans le cas présent)
Imaginons que tu as dans une variable de type texte maRequete le code généré par ta sub Il te suffit de faire:
Dim rstRequete as RecordSet Set rstRequete = CurrentDb.OpenRecordset(maRequete)
'pour parcourir ta requete
Do While Not rstRequete.EOF 'tu fais ton traitement
rstRequete.MoveNext Loop
Arnaud
olivierdd
Bonjour, merci de ta réponse.
ca ne marche pas il me dis qu'il ne trouve pas la requète source.
Je veux juste m'assurer que je ne me suis pas trompé : - dans ma sub j'avais défini : Dim SQL As String - ceci est utilisé pour la liste : Me.LstHotels.RowSource = SQL
Je peux réutiliser "SQL" dans une autre sub ? (car c'est le cas), j'ai mis SQL à la place de MaRequete
et je ne comprend pas la deuxième partie de ton code.
olivier
Bonjour,
merci de ta réponse.
ca ne marche pas il me dis qu'il ne trouve pas la requète source.
Je veux juste m'assurer que je ne me suis pas trompé :
- dans ma sub j'avais défini : Dim SQL As String
- ceci est utilisé pour la liste : Me.LstHotels.RowSource = SQL
Je peux réutiliser "SQL" dans une autre sub ? (car c'est le cas), j'ai
mis SQL à la place de MaRequete
et je ne comprend pas la deuxième partie de ton code.
ca ne marche pas il me dis qu'il ne trouve pas la requète source.
Je veux juste m'assurer que je ne me suis pas trompé : - dans ma sub j'avais défini : Dim SQL As String - ceci est utilisé pour la liste : Me.LstHotels.RowSource = SQL
Je peux réutiliser "SQL" dans une autre sub ? (car c'est le cas), j'ai mis SQL à la place de MaRequete
et je ne comprend pas la deuxième partie de ton code.
