Discussion :

[Latomate]

Bonjour les Amis !

Alors que dire sur cette question tellement elle m'a laissé pantois ...
Mais n'étant pas un expert je bloque ^^

- Base Ac-2010 simple.
- Une liste non modifiable déroulante dans un formulaire. (les noms de voie)
- Source de la liste une table

Alors ma question bête :

Lors de la saisie de texte dans le champ de la liste déroulante, elle nous propose, comme toujours, une filtration du début de valeur souhaitée.
J'aurais souhaité qu'elle me propose des correspondances non limitées au début de la valeur contenu !

Exemple au cas ou je n'aurais été explicite :

Format de la valeur : rue Gambetta, Av Louis Luc, Qua du Hallage...
Je cherche à Choisir la rue Gambetta par une saisie de GAM et que la liste me propose rue Gambetta, ou autre valeur contenant GAM !

Voili Voila
Merci beaucoup mes amis c'est toujours un plaisir de vous lire !!

LaTomate

[marot_r]

Bonjour.

C'est le fonctionnement standard d'une liste déroulante.

On doit pouvoir bricoler quelque chose pour que cela fasse ce que tu demandes.
La source sera semblable à :

Code sql :

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

select TaSource.* from TaSource where TaSource like "*" & [Forms]![TonForm]![TaListe] & "*"

Après tu mets du code dans la procédure événementielle associée à Sur changement et qui va faire :

Code :

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

me.TaListe.requery

La liste déroulante va se réduire au fur et à mesure de ta frappe.

Il faut probablement mettre la propriété autocomplete (Auto étendu) à Non
et peut-être aussi "Limiter à la liste".

A+

[ClaudeLELOUP]

Bonjour Latomate, bonjour René,

Je proposerais de passer d’abord par une zone de texte, qui servirait d’antichambre à la sélection.
Quand l’antichambre est null, la zone de liste propose tous les choix, quand elle est mise à jour, les choix sont restreints à ceux qui contiennent la chaîne de caractères.

Propriétés de la zone de liste

Code associé au formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub LaZoneDeListe_AfterUpdate()
  Me.txtAntichambre = Null
End Sub
 
Private Sub txtAntichambre_AfterUpdate()
  Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource
  Me.LaZoneDeListe.SetFocus
  Me.LaZoneDeListe.Dropdown
End Sub

[marot_r]

Bonjour à vous.

Claude, pourquoi le Nz(..;[Denomination]) dans ton like ?
Personnellement je me contente du null qui concaténé te donne une chaîne vide qui te donne la liste de toute les valeurs.

A+

[ClaudeLELOUP]

Bonjour René,

Tu as raison, on peut simplifier !

Je modifie la proposition...

[Latomate]

Salut à vous

Merci Claude et René pour ces petites réponses !
Je mets ca en oeuvre cette après midi et vous fais un retour
Merci encore.
Tom

[Latomate]

Alors pour un petit retour !

Pour la solution de Claude, elle fonctionne très bien sans soucis, Merci !

Par contre je n'ai pas réussis avec la proposition de Marot que je préférais pour éviter de trop alourdir l'interface avec la solution de Claude.

Pour donner un peu plus de détails :

Cette fameuse liste déroulante de rue est filtrée en amont par le choix de la ville.

Mon code de base est :

Code :

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

1
2
3
4
SELECT VOIES_2.ID, VOIES_2.LIBELLE, VOIES_2.VILLES
FROM VOIES_2
WHERE (((VOIES_2.VILLES)=[Formulaires]![SAISIE DOSSIER]![VILLES]))
ORDER BY VOIES_2.LIBELLE;

J'ai essayé d'y introduire ton code mais ça ne veut po ^^

Code :

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

1
2
3
SELECT VOIES_2.ID, VOIES_2.LIBELLE, VOIES_2.VILLES
FROM VOIES_2
WHERE (((VOIES_2.LIBELLE) Like "*" & [Formulaires]![SAISIE DOSSIER]![Libellevoie] & "*") AND ((VOIES_2.VILLES)=[Formulaires]![SAISIE DOSSIER]![VILLES]));

Avec la propriété autocomplete (Auto étendu) à Non et Oui
et aussi "Limiter à la liste" et "non limité"
et mon code événementiel "sur changement" et essai aussi avec "si modification"

Pour préciser ;
VOIES_2 = table
LIBELLE = champ de la table ou se trouve les valeurs
SAISIE DOSSIER = formulaire
Libellevoie = liste déroulante du formulaire

Bon merci encore les grands fous
LaTomate

[ClaudeLELOUP]

les grands fous

... tu dis cela sans rougir ?

[Latomate]

j'aurais pu dire les Glands Fous

[Nadi A]

Cette solution est vraiment super bien faite, en plus avec le fichier en annexe et les capture d'écran, c'est bien pratique.

Merci beaucoup d'avoir partagé cette astuce ici.

Bonjour Latomate, bonjour René,

Je proposerais de passer d’abord par une zone de texte, qui servirait d’antichambre à la sélection.
Quand l’antichambre est null, la zone de liste propose tous les choix, quand elle est mise à jour, les choix sont restreints à ceux qui contiennent la chaîne de caractères.

Propriétés de la zone de liste

Code associé au formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub LaZoneDeListe_AfterUpdate()
  Me.txtAntichambre = Null
End Sub
 
Private Sub txtAntichambre_AfterUpdate()
  Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource
  Me.LaZoneDeListe.SetFocus
  Me.LaZoneDeListe.Dropdown
End Sub