Liste déroulante modifiable, recherche une partie d'un mot

**e2r34** · 11/01/2014, 18h51

bonjour,
Dans un formulaire j'ai une liste déroulante modifiable basée sur un requête.
dans les propriétés le contenu est:

Code :

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

1
2
3
SELECT [ARTICLES].[Libellé]
, [ARTICLES].[fournisseur ] 
FROM [ARTICLES];

dans évènement sur touche appuyée:
Me.ARTICLES.Dropdown

Cela permet d'ouvrir la fenêtre dés que l'on appuie sur une touche.

Je voudrais que la liste dans la fenêtre qui s'ouvre affiche tous les articles contenant les caractères que l'on frappe, pas seulement ceux qui comment par eux:

exemple: quand on entre 'LA' je voudrais que la liste affiche la liste de tous les Articles qui comment 'LA' (c'est le cas ) mais aussi ceux qui contiennent 'LA' comme voiLA ou gaLAté, etc

Merci de votre aide car je n'ai pas trouvé cette question dans les différentes discutions même s'il y a des sujets qui s'en rapprochent je n'ai pas trouvé la solution.

**Tofalu** · 11/01/2014, 20h11

Ce n'est pas le comportement classique d'une liste modifiable qui positionne la sélection en fonction des premiers caractères saisis. Je pense que c'est impossible et que vous allez devoir reproduire une zone de liste modifiable avec une zone de texte et une zone de liste.

**e2r34** · 12/01/2014, 01h08

Envoyé par Tofalu

Ce n'est pas le comportement classique d'une liste modifiable qui positionne la sélection en fonction des premiers caractères saisis. Je pense que c'est impossible et que vous allez devoir reproduire une zone de liste modifiable avec une zone de texte et une zone de liste.

Je ne suis pas assez expérimenté pour bien comprendre la solution que vous me suggérer. pouvez vous m'en dire plus.

**ClaudeLELOUP** · 12/01/2014, 08h02

Bonjour,

Pour autant que j’aie compris le sens de la demande, e2r34 voudrait que le contenu de ta zone de liste soit limité aux items qui contiennent la chaîne de caractères déjà encodée (ou tous les items si le champ est vide).
Il faut donc exprimer cela dans la requête qui sert de contenu à la zone de liste :

Pour pouvoir encoder une chaîne quelconque, caractère par caractère, il ne faut pas limiter à liste et éviter l’autocomplétion :

Et enfin, associer ce code à l’événement Sur changement de la zone de liste, pour qu’elle s’adapte au fur et à mesure de l’encodage :

Code :

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

1
2
3
4
5
6
7
8
Private Sub LaZoneDeListe_Change()
  Me.Refresh 'pour rafraîchir le contenu
  Me.LaZoneDeListe.Requery 'pour actualiser la liste
  Me.LaZoneDeListe.SelStart = Nz(Len(Me.LaZoneDeListe), 0) 'pour
                                  ' positionner le curseur
                                  ' pour le caractère suivant éventuel
  Me.ActiveControl.Dropdown 'pour déployer la liste
End Sub

La db exemple est ici.

**Tofalu** · 12/01/2014, 09h43

Un autre exemple, basé une table tab_Communes qui regroupe toutes les communes de France.

Le champ qui nous intéresse ici est LIBGEO qui correspond au nom de la commune.

La requête rqtFiltreZoneListe suivante permet de filtrer les données en affichant d'abord celles qui commencent comme la saisie, puis ensuite, celles qui contiennent la saisie :

Code sql :

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

1
2
3
4
5
6
 
PARAMETERS pNom Text ( 255 );
SELECT LIBGEO
FROM Tab_Communes
WHERE LIBGEO LIKE "*" & pNom & "*"
ORDER BY LIBGEO LIKE pNom & "*", LIBGEO;

Ce qui retourne par exemple pour "ly" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
LIBGEO
Lyas
Lyaud
Lye
Ly-Fontaine
Lynde
Lyoffans
Lyon
Lyons-la-Forêt
Lys
Lys
Lys-lez-Lannoy
Lys-Saint-Georges
Abilly
Adilly

Le formulaire contient une zone de liste nommé cmbCommunes dont la propriété Auto-Etendre est à Non.

Le code est simplement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub cmbCommune_Change()
Dim oDb As DAO.Database
Dim oQdf As DAO.QueryDef
Set oDb = CurrentDb
Set oQdf = oDb.QueryDefs("rqtFiltreZoneListe")
 
With oQdf
    .Parameters("pNom") = cmbCommune.Text
    Set cmbCommune.Recordset = .OpenRecordset
    .Close
End With
 
Set oQdf = Nothing
Set oDb = Nothing
 
 
End Sub

Ce qui donne

Attention, dans la proposition précédente, l'appel de Me.Refresh provoque l'enregistrement des modifications apportées par l'utilisateur. Et cela sous entend que le contenu saisi temporairement dans la zone de liste au cours de la frappe va être enregistré dans la table, avec toutes les conséquences que cela engendre en terme d'intégrité référentielle et de cohérence par exemple.

**ClaudeLELOUP** · 12/01/2014, 10h04

Merci, ta solution est meilleure.

**madefemere** · 12/01/2014, 10h26

Christophe,

C'est une solution intéressante. Chapeau !!!

**e2r34** · 12/01/2014, 13h13

Merci pour vos réponses. Vous êtes des bons.
Je vais essayer aujourd'hui et je vous tiens informés.

David

**e2r34** · 12/01/2014, 17h50

bravo ça fonctionne (la seconde solution)
encore merci

**djyo007** · 19/08/2019, 22h16

C'est Génial juste dommage que quand je veux utiliser la Barre d'espace cela ne fonction pas y a t-il un moyen d'y remédier?

Merci d'avance.

Envoyé par ClaudeLELOUP

Bonjour,

Pour autant que j’aie compris le sens de la demande, e2r34 voudrait que le contenu de ta zone de liste soit limité aux items qui contiennent la chaîne de caractères déjà encodée (ou tous les items si le champ est vide).
Il faut donc exprimer cela dans la requête qui sert de contenu à la zone de liste :

Pour pouvoir encoder une chaîne quelconque, caractère par caractère, il ne faut pas limiter à liste et éviter l’autocomplétion :

Et enfin, associer ce code à l’événement Sur changement de la zone de liste, pour qu’elle s’adapte au fur et à mesure de l’encodage :

Code :

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

1
2
3
4
5
6
7
8
Private Sub LaZoneDeListe_Change()
  Me.Refresh 'pour rafraîchir le contenu
  Me.LaZoneDeListe.Requery 'pour actualiser la liste
  Me.LaZoneDeListe.SelStart = Nz(Len(Me.LaZoneDeListe), 0) 'pour
                                  ' positionner le curseur
                                  ' pour le caractère suivant éventuel
  Me.ActiveControl.Dropdown 'pour déployer la liste
End Sub

La db exemple est ici.

**hyperion13** · 20/08/2019, 09h35

Normal !

Si le caractère (espace, alphanum) que vous saisissez n'existe pas dans la suite de la chaine de caractères, la sélection s'efface !

**ClaudeLELOUP** · 20/08/2019, 10h17

Bonjour hyperion13,

Je constate que lorsque l'utilisateur saisit un espace, le Refresh n'en tient pas compte

=> il faudrait donc adapter l'événement si le KEYAscii est =32.

Je cherche...

**ClaudeLELOUP** · 20/08/2019, 20h23

Bonjour djyo007,

Vois si cette modif résout le problème.

Dans le formulaire, j’ai ajouté un contrôle non visible « TexteSaisi ».
La propriété « Contenu » de la zone de liste est :

Code vb :

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

SELECT [VINS].[DENOMINATION] FROM VINS WHERE ((([VINS].[DENOMINATION]) Like "*" & Formulaires!LeFomulaire!TexteSaisi & "*")) ORDER BY [VINS].[DENOMINATION];

Et le code associé au formulaire :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Compare Database
Option Explicit
 
Private Sub LaZoneDeListe_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDelete Then
      Me.TexteSaisi = ""
      Me.LaZoneDeListe = ""
      Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource 'pour actualiser les choix
  End If
End Sub
 
Private Sub LaZoneDeListe_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 8 And KeyAscii <> 27 Then  'c.-à-d. Suppression arrière ou escape
      Me.TexteSaisi = Me.LaZoneDeListe.Text & Chr(KeyAscii)
      Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource 'pour actualiser les choix
      Me.LaZoneDeListe.Dropdown 'pour déployer la liste
    Else
      Me.TexteSaisi = ""
      Me.LaZoneDeListe = ""
      Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource 'pour actualiser les choix
  End If
End Sub

**djyo007** · 21/08/2019, 11h26

Super merci beaucoup je teste

**djyo007** · 21/08/2019, 14h06

Super merci ClaudeLELOUP ça fonctionne à merveille.

**djyo007** · 28/08/2019, 22h02

Bonjour ClaudeLELOUP, j'ai une petite question qui n'a rien avoir avec se tuto mais j'aimerais avoir un bouton qui envoi un état en mail mais sans utiliser une boite mail. Est-ce Possible?

Merci d'avance
Djyo007

Envoyé par ClaudeLELOUP

Bonjour djyo007,

Vois si cette modif résout le problème.

Dans le formulaire, j’ai ajouté un contrôle non visible « TexteSaisi ».
La propriété « Contenu » de la zone de liste est :

Code vb :

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

SELECT [VINS].[DENOMINATION] FROM VINS WHERE ((([VINS].[DENOMINATION]) Like "*" & Formulaires!LeFomulaire!TexteSaisi & "*")) ORDER BY [VINS].[DENOMINATION];

Et le code associé au formulaire :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Compare Database
Option Explicit
 
Private Sub LaZoneDeListe_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDelete Then
      Me.TexteSaisi = ""
      Me.LaZoneDeListe = ""
      Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource 'pour actualiser les choix
  End If
End Sub
 
Private Sub LaZoneDeListe_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 8 And KeyAscii <> 27 Then  'c.-à-d. Suppression arrière ou escape
      Me.TexteSaisi = Me.LaZoneDeListe.Text & Chr(KeyAscii)
      Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource 'pour actualiser les choix
      Me.LaZoneDeListe.Dropdown 'pour déployer la liste
    Else
      Me.TexteSaisi = ""
      Me.LaZoneDeListe = ""
      Me.LaZoneDeListe.RowSource = Me.LaZoneDeListe.RowSource 'pour actualiser les choix
  End If
End Sub

**jean-paul lepetit** · 03/12/2023, 23h12

Bonsoir à tous,
Je suis tombé sur ce post et ce code qui m'intéresse,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub cmbCommune_Change()
Dim oDb As DAO.Database
Dim oQdf As DAO.QueryDef
Set oDb = CurrentDb
Set oQdf = oDb.QueryDefs("rqtFiltreZoneListe")
 
With oQdf
    .Parameters("pNom") = cmbCommune.Text
    Set cmbCommune.Recordset = .OpenRecordset
    .Close
End With
 
Set oQdf = Nothing
Set oDb = Nothing
 
 
End Sub

j'ai adapté le code à mon besoin, mais lorsque je saisie une lettre dans ma liste déroulante, j'ai un message d'erreur :

Erreur d'exécution '3061' :
Trop peu de paramètres. 2 attendus

Et c'est sur la ligne

Code :

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

 Set cmbCommune.Recordset = .OpenRecordset

Que ça plante.
Une idée ?
Merci

Modif message minuit.....

Après différents test, ma zone de liste a 3 colonnes : colonne 1 Id_designation, colonne 2 designation en clair, colonne 3 Id_type, colonne 3 qui est paramétrée par une liste précédente.
C'est pour cela qu'il manquait un paramètre puisque je n'en avait défini qu'un. Comment faire pour garder mon premier paramétrage sur le tri en récupérant la valeur de ma première liste....?

Liste déroulante modifiable, recherche une partie d'un mot [AC-2010]

IHM

Discussions similaires

Partager

Partager