Comment ajouter des éléments dans une listbox à la suite de ceux existants

Bonjour tout le monde,

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

Code:

---

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

Bonjour,

il manque juste une définition du "plus tard".
Qu'entends-tu donc par ces termes ?
- dans la même session de ton appli ? (et si oui : bien évidemment, ... et toujours par un simple additem....)
- dans une session distincte ? (et si oui : uniquement si ayant sauvegardé "en dur" - dans un fichier .txt ou .ini ou dans ta base de registre ou ailleurs- de quoi reconstituer les éléments de ta listbox avant d'utiliser la méthode additem. C'est tellement évident ! )
Une fois de plus, donc : nécessité absolue d'être précis dans ses questions. ;)

Bonjour,

Et comme la réponse de Ucfoutu est pleine de bon sens, et il a parfaitement raison

Combien de questions sur ce forum manquent carrément de précision, à croire qu'il faudrait parfois une boule de cristal ou jouer aux devinettes, comme le fait d'ailleurs souvent remarquer, avec raison, certains commentaires de Ohmonbato.

Une autre remarque:je vois que certains emploient souvent des termes anglais souvent hermétiques svp essayer de les traduire en français (quand celà est piossible).
Nous sommes dans un club francophone que je saches.

A+

Merci pour vos réponses.

J'ai trouvé une façon de contourner le problème.

Je vous remercie encore pour votre aide.

beegees