VBA et requête

Bonjour

J'ai un Objet Zone de liste appelée "Liste0" . Dans la feuille de propriété , il y a ce contenu tiré d' une requête AAA

SELECT [Requête AAA].N°, [Requête AAA].Date, [Requête AAA].Nom FROM [Requête AAA] WHERE ((([Requête AAA].NOM)="NOM_TEMP"))
ORDER BY [Requête AAA].Date;

J'aimerais insérer ce contenu dans mon formulaire sous forme VBA dans une procédure événementielle.

Comment transformer ce contenu en language VBA dans mon formulaire ???

Merci

Jacques

Bonjour,

Le plus simple :

- enregistre cette requête, dans mon exemple « LaRequete ».

- Si ta zone de liste s'appelle « LaZoneDeListe », voici le code à associer au bouton qui déclenche l'affectation :

Code:

---

1 2 3 4 5 6

Option Compare Database Option Explicit   Private Sub LeBouton_Click() Me.LaZoneDeListe.RowSource = "LaRequete" End Sub

---

Remarque le doublement des quotes à l'intérieur du SQL lui-même encadré de quotes.

P.-S. Évite les caractères spéciaux et les espaces dans les noms d'objets et de contrôles. Idem pour les mots aussi utilisés par Access : Date par exemple)

Sans enregistrer la requête, tu pourrais écrire ceci :

Code:

---

1 2 3 4 5 6

Option Compare Database Option Explicit   Private Sub LeBouton_Click() Docmd.RunSql "SELECT [Requête AAA].N°, [Requête AAA].Date, [Requête AAA].Nom FROM [Requête AAA] WHERE ((([Requête AA].NOM)=""NOM_TEMP"")) ORDER BY [Requête AAA].Date;" End Sub

---

Merci de me répondre.

LeBouton_Click() ? Est-ce un bouton de commande que j' ajoute à mon formulaire ?

Dois-je l voir ce bouton sur mon formulaire ( ou le rendre invisible ? ) ou est-ce une variable quelconque ?

Que veut dire Option Explicit dans la procédure ?

Merci encore ....

Jacques

Citation:

---

Que veut dire Option Explicit dans la procédure ?

---

http://claudeleloup.developpez.com/&99/L5955.jpg

D'une manière générale, pour se documenter sur les propriétés d'un formulaire ou d'un état, ou de leurs contrôles :
- afficher l'objet en mode construction ;
- cliquer sur la propriété => elle se met en surbrillance ;
- enfoncer la touche <F1>
=> l'aide Access s'ouvre à la bonne page.
De même dans le code, placer le curseur de la souris et enfoncer F1.
On peut aussi :
• ouvrir l'aide <F1>, choisir l'onglet « Aide intuitive » et suivre les instructions ;
• ouvrir la fenêtre d'exécution (<Ctrl> + G), saisir un mot-clé, y placer le curseur de la souris et enfoncer F1.

Citation:

---

J'aimerais insérer ce contenu dans mon formulaire sous forme VBA dans une procédure événementielle.

---

Le bouton, c'est un exemple pour déclencher le code.

De quelle procédure événementielle parles-tu ?

Pièce jointe 226322

Bonjour

Ci-haut l'image de mon formulaire
Il y a une liste de 50 villes en ordre alphabétique dans ma zone de liste.
J'aimerais filtrer une seule ville à partir de ma zone de liste déroulante qui s'appelle Modifiable24...
je veux faire un Modifiable24_After_Update et trier seulement la ville choisie ... C'est ce que je veux faire en VBA
Merci
Jacques

Citation:

---

Modifiable24_After_Update

---

Prends l'habitude de donner des noms explicites à tes contrôles.

Choisis plutôt un formulaire avec recherche multicritère pour ce genre d'outil.

Regarde ici : http://claudeleloup.developpez.com/t...-multicritere/
pour un exemple concret et des adresses pour d'autres méthodes d'approche.

Bonjour,

Je pensais qu'en ajoutant que quelques lignes VBA à Modifiable24_AfterUpdate() le filtre aurait eu lieu sans problème.

J'aurais pu donner un nom plus explicite à mon contrôle ( Nom_Ville au lieu de Modifiable24 ) comme je fais d'habitude ...

mais je voulais répondre vite à la discussion ... et j'ai omis de changer le nom.

Merci

Jacques

Bonjour,

Voici un exemple de méthode :

http://claudeleloup.developpez.com/&99/M048.jpg

1° Sur le formulaire une zone de liste modifiable appelée « cboDenomination » qui liste les items possibles.
2° Créer une requête qui liste les éléments en fonction du contenu (Null ou non) de cette zone de liste modifiable :

http://claudeleloup.developpez.com/&99/M047.jpg

3° Affecter cette requête à la propriété « Contenu » de la zone de liste (LaZoneDeListe).
4° « Réveiller » LaZoneDeListe chaque fois que cboDenomination est modifiée :

Code:

---

1 2 3 4 5 6

Option Compare Database Option Explicit   Private Sub cboDenomination_AfterUpdate() Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource End Sub

---

En bonus : un double-clic sur cboDenomination provoque sa remise à Null.

Code:

---

1 2 3 4

Private Sub cboDenomination_DblClick(Cancel As Integer) Me.cboDenomination = Null Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource End Sub

---

Merci du fichier additionnel *.zip

Cela va m' être grandement utile et accroître du même coup

mon intérêt à un des mes passe-temps favoris de semi-retraité.

Jacques

Citation:

---

... à un des mes passe-temps favoris de semi-retraité.

---

Bienvenue au club !

Bonjour,

Je ne comprends pourquoi une fenêtre paramètre apparaît et me demande d'entrer le champs de la ville
Ma Zone de liste s'appelle Liste2
Ma Zone de liste déroulante s'appelle filtreVille
Je cherche l'erreur.
Par contre quand je tape une valeur dans la case , ça fonctionne !

Merci
Pièce jointe 226422
----------------------------------------------------------------------------------------------------
Pièce jointe 226423
----------------------------------------------------------------------------------------------------
Pièce jointe 226424

---------------------------------------------------------------
Pièce jointe 226425

Bonjour,

J'ai pu résoudre le problème en changeant la ligne du critère ( voir image )

Maintenant tout fonctionne et j'essaie de comprendre pourquoi :D

Merci

Pièce jointe 226431