Bonjour tout le monde,
J'ai ce code qui me permet de remplir une liste avec les valeur d'un recordset :
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.
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
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
Partager