Discussion :

[amerex]

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

[BornToBe]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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