Discussion :

[yttrium]

Bonjour,

Vous trouverez ici :
http://cjoint.com/?fDlCUZieTq

Une illustration de mon problème qui est plus facile à expliquer avec une illustration.

Voici le contexte :
En VB6, je remplis une liste déroulante avec les infos d'une base.
Je joue ensuite sur l'évenement keypress de ma liste déroulante (celle du haut sur la capture d'écran), et lorsque je saisi un code postal partiel ou entier, je rafraichi ma liste pour n'afficher que les lignes correspondantà ce code postal.

Si je réalise l'opération avec la liste déroulante "fermée", c'est à dire non déroulée.
Aucunb probleme.

Cependant, si je le fais avec la liste déroulante ouverte,(elle compte initialement 5000 lignes), lorsque le filtre atteint un niveau de précision pour ne laisser apparaitre que 2 ou 3 lignes, (moins que les 7 lignes qui apparaissent par défaut), le cadee la liste déroulante reste affiché, et perturbe mon écran de saisie (voir sur le screen shot joint).

J'ai tenté de rafraichir la fenetre, ma liste,etc.
Mais rien n'y fait.
Sauriez vous m'indiquer une methode pour faire cesser ce bug ?

D'avance merci de votre aide.

Salutations.

[ThierryAIM]

mets-nous voir, à tout hasard le code de ton evenement keypress

[yttrium]

Bonsoir,
Voici le code du keypress.
Il se contente d'appeller une fonction qui charge la liste en lui passant en parametre ce qui a été frappé..

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
18
Private Sub lstCliniques_KeyPress(KeyAscii As Integer)
        rechClinique = rechClinique & Chr(KeyAscii)
        loadComboCliniques rechClinique
end sub
 
Public Sub loadComboCliniques(Optional ByVal filtre As String)
 
    Dim i As Integer
    Dim requete As String
 
    requete = "SELECT * FROM cliniques"
    If filtre <> "" Then
        requete = requete & " AND cp_clinique like '" & filtre & "%'"
    End If
 
    garnirCombobox requete, ConnectionString, lstCliniques, "lstClin", "no_clinique"
 
End Sub

Une idée ?
Merci d'avance.

[méphistopheles]

Code :

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

1
2
3
4
Private Sub lstCliniques_KeyPress(KeyAscii As Integer)
        rechClinique = rechClinique & Chr(KeyAscii)
        loadComboCliniques rechClinique
end sub

c'est quoi rechClinique?

Code :

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

loadComboCliniques rechClinique

si tu te contente de la loader, elle ne sera pas visible.

sinon, vérifie tes Zorder.

[ThierryAIM]

Code :

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

1
2
3
4
requete = "SELECT * FROM cliniques"
    If filtre <> "" Then
        requete = requete & " WHERE cp_clinique like '" & filtre & "%'"
    End If

[yttrium]

Code :

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

1
2
3
4
requete = "SELECT * FROM cliniques"
    If filtre <> "" Then
        requete = requete & " WHERE cp_clinique like '" & filtre & "%'"
    End If

Le WHERE a disparu suite à un copier coller malencontreux, mais il est présent dans la requete.
Je n'ai d'ailleurs aucunb probleme avec la requete qui marche trés bien j'ai juste un bug d'affichage de la combo lorsque le nombre d'elements passe de X (X >7) à un nombre inférieur à 7 (qui est le nombre de ligne affichées lorsque je déroule ma combo)

[yttrium]

c'est quoi rechClinique?

si tu te contente de la loader, elle ne sera pas visible.

sinon, vérifie tes Zorder.

rechclinique est une variable qui contient le texte à utiliser pour filtrer la requete et donc l'affichage