Bonjour,
Coment ajouter des valeurs à une listbox multi-colonne??
D'après de que j'ai pu remarquer il suffit d'ajouter les valeurs les une à la suite des autres.
Le problème c'est que les valeurs n'apparaissent pas dans ma listbox.
On peut aller dans les propriétés et on voit bien les valeurs ajoutés mais séparées par trois point virgule.
Si je n'en laisse qu'un, les valeurs apparaissent.
Voici le code :
Si quelqu'un à une petite idée d'où vient le problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Private Sub Accompagnement_AfterUpdate() Dim compteur As Integer Dim db As Database Dim nbElement As Integer Dim rqListe As Recordset Dim Id As Integer Dim Nom As String Dim Prenom As String compteur = 0 Set db = CurrentDb nbElement = Me.Modifiable10.ListCount choix = Me.Accompagnement.Value 'vide la liste Sou_Secteur While compteur < nbElement Me.Modifiable10.RemoveItem (0) compteur = compteur + 1 Wend If choix = "Etablissement" Then Set rqListe = db.OpenRecordset("Select ID, Nom, Prenom, Fonction From Employe Where (Accompagnement_Etablissement = -1) And (Fonction<>'CRP')") While rqListe.EOF = False Id = rqListe(0) Me.Modifiable10.AddItem (Id) Nom = rqListe(1) Me.Modifiable10.AddItem (Nom) Prenom = rqListe(2) Me.Modifiable10.AddItem (Prenom) rqListe.MoveNext Wend End If End Sub
merci d'avance
Partager