Discussion :

[jajoju]

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

[ClaudeLELOUP]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jajoju]

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

[ClaudeLELOUP]

Que veut dire Option Explicit dans la procédure ?

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.

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 ?

[jajoju]

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

[ClaudeLELOUP]

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.

[jajoju]

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

[ClaudeLELOUP]

Bonjour,

Voici un exemple de méthode :

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jajoju]

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

[ClaudeLELOUP]

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

Bienvenue au club !

[jajoju]

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

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------


---------------------------------------------------------------

[jajoju]

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

Merci