Bonjour tout le monde,

J'ai ce code qui me permet de remplir une liste avec les valeur d'un recordset :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub BDRemplirListe(ByVal sql As String, ByRef Liste As Control)
    Dim rsTable As recordset
 
    If (TypeOf Liste Is ListBox) Or (TypeOf Liste Is ComboBox) Then
        Set rsTable = BD.OpenRecordset(sql, dbOpenSnapshot)
        While Not rsTable.EOF
            Liste.AddItem rsTable(1)
            Liste.ItemData(Liste.NewIndex) = rsTable(0)
            rsTable.MoveNext
        Wend
    End If
End Sub
Je me demandais si il était possible de revenir dans ce code plus tard et d'ajouter dans la liste des nouveaux éléments sans supprimer ceux qui existent.

Il faudrait donc ajouter les nouveaux éléments en dessous de ceux existant.

Sauriez-vous me dire si cela est possible et comment faire ?

Merci d'avance pour l'aide et bon Dimanche.

beegees