Faire une listbox alphabétiqueRésolu

Question

Bonjour, voilà je fais un programme perso pour gérer  ma collection de vidéos.

J'ai un souci avec une feuille. J'ai fais une listbox pour recenser tous les genre de mes vidéos. Ainsi, cela me permet de choisir le genre et d'afficher dans une flexgrid tous les films pour le genre sélectionné

J'ai une autre listbox qui s'intitule "commence par". Dans cette listbox je voudrais qu'elle affiche l'alphabet de A à Z et lorsque que je clique sur une lettre, la flexgrid doit ressortir tous les films commençant par la lettre choisie.

Je n'y arrive pas auriez-vous des pistes pour m'aider car là je bloque. Merci beaucoup

PCPT · Accepted Answer

salut,

d'une part le remplissabe de la listbox, puis une trace de la requête que tu feras ensuite pour remplir ta flexgrid :

Private Sub Form_Load()
    Dim i As Integer
    For i = 65 To 90
        List1.AddItem Chr$(i)
    Next i
End Sub

Private Sub List1_Click()
    Debug.Print CStr(Time) & " La requête sera :"
    Debug.Print "==============================="
    Debug.Print "SELECT MES_CHAMPS 
"
    Debug.Print "FROM 
MA_TABLE "
    Debug.Print "WHERE CHAMP_NOM_FILM LIKE '" & List1.List(List1.ListIndex) & "*';"
    Debug.Print "===============================" & vbCrLf
End Sub

NB : attention, un film ne commence par forcément par une de ces 26 lettres ;)
15 minutes
300
2 jours et une vie
60 secondes chrono
et tant d'autres....

++
<hr size="2" width="100%" />

cs_Jack · Answer

Salut
   List1.List(List1.ListIndex) & "%';"

En SQL, le * devient %

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

PCPT · Answer

exact, merci pour cette correction Jack

kittybeme · Answer

merci à tous les deux

Faire une listbox alphabétique

4 réponses

Votre réponse

Discussions similaires