Discussion :

[Drone]

Bonsoir, j'aimerais disposer le l'auto complétion dans une zone de texte ou de liste, auto complétion basé sur le champ d'une table.

J'arrive à un résultat avec une petite requête sql que je rentre dans le rowsource d'une zone de liste, mais je n'arrive pas à trouver d'évènement satisfaisant pour lancer cette requête, de plus à partir du moment ou j'ai exécuté une première fois cette requête, le rowsource est gardé en mémoire.

Voilà le code :

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
 
Private Sub Zdl_RefFamille_Click()
 
If IsNull(Me.Zdl_RefFamille) Then
 
Else
 
SQL = "SELECT LibFamille FROM TableFamille WHERE LibFamille LIKE '"
SQL = SQL & Me.Zdl_RefFamille & "*';"
 
Me.Zdl_RefFamille.RowSourceType = "Table/Query"
Me.Zdl_RefFamille.RowSource = SQL
 
End If
 
End Sub

Connaitriez vous un meilleur moyen pour de l'auto complétion ?
Sinon que me conseillerez vous comme evenement, j'ai essayé KeyPress, sans succes, avec gotfocus, je dois sortir de la zone de liste et revenir pour que le rowsource change.

Merci d'avance.

[Tofalu]

Une zone de liste déroulante intègre déjà ce mécanisme nativement

[Drone]

Bonjour,
Si l'auto complétion est native à la zone de liste, je ne l'ai pas trouvé dans ses propriétés.

j'ai recréé un formulaire afin que la source de control pointe sur le champ de table désiré, je constate dans les propriétés de la zone de liste déroulante que la propriété recherche filtre pointe sur la base de donnée et la propriété autocorrection permise est ok, pourtant j'ai beau écrire dans la zone de liste des lettres correspondant au données désirées rien ne se passe

[Tofalu]

La propriété contenu est bien une instruction SQL valide ?

Car c'est censé fonctionner :

[samloba]

salut Drone,
Tu peux utiliser l'assistant pour créer ta zdl. Tu n'aura qu'à indiquer la table/requete source et le reste sera fait.

Mais si tu tiens à ton idée de départ, le meilleur evenement est "sur changement" et dans ton sql utilise la propriété ".text"

Code :

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

1
2
 
SQL = SQL & Me.Zdl_RefFamille.text & "*';"

bon developpement

[Drone]

Bonjour,

Mon erreur pour l'auto complétion en natif vient du fait que j'ai enlevé ma requête du rowsource quand tu m'as dit que ça marchait en natif, je pensais que ca suffirait d'ajouter mon champ à la propriété source control de la zone de liste

Sinon pour l'évènement Change, et la propriété text, c'est déjà mieux, je vais tester ce que cela donne sur une zone de texte.

Merci bien