Ajouter un item dans un listbox, quand connecté sur une requête

Bonjour!

J'ai créé une listbox, qui affiche les informations d'une requête. Le listbox est donc "relié" à cette requête.

Comment ajouter un item à cette listbox ? Le .AddItem m'indique une erreur disant qu'il faut que je mette la listbox à "Liste de valeurs".

Mais la "Liste de valeurs" ne me permet pas de lier à une requête... :-/

Auriez-vous une solution?
Merci

Bonjour,

Voici comment je fais:
Je déclare une ComboBox:

Code:

---

Dim cbo As ComboBox

---

Je lui attribue le champ du formulaire correspondant, et lui indique que je vais lui passer une liste de valeurs de type "Value List":

Code:

---

1 2	Set cbo = [Champ] cbo.RowSourceType = "Value List"

---

Et ensuite il suffit de créer la liste via une chaîne de caractères de type String.
Donc tu mets les résultats de ta requête sous forme de chaîne de caractère, en les séparant par un ";", comme par exemple:

Code:

---

1 2 3 4 5 6 7 8

Dim sValueList As String Set oRst = oDb.OpenRecordset("[REQUÊTE]", dbOpenDynaset) Do While Not oRst.EOF sValueList = sValueList & oRst.Fields("[CHAMP RÉCUPÉRÉ PAR TA REQUÊTE]").Value & ";" oRst.MoveNext Loop sValueList = sValueList & "[VALEUR QUE TU VEUX AJOUTER MANUELLEMENT]" cbo.RowSource = sValueList

---

PS: L'exemple que j'ai pris de mon code est fait sur une ComboBox, mais j'imagine que ça marche exactement pareil pour une ListBox. Essaye, toujours, et tu me diras ;)