Ajouter des valeurs à une listbox multicolonnes

[bobosh]

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 :

 
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
 

Si quelqu'un à une petite idée d'où vient le problème.

merci d'avance

[bobosh]

voici la solution

 
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)
        Nom = rqListe(1)
        Prenom = rqListe(2)
        Me.Modifiable10.AddItem Id & ";" & Nom & ";" & Prenom
        rqListe.MoveNext
    Wend
ElseIf choix = "Areva" Then
    Set rqListe = db.OpenRecordset("Select ID, Nom, Prenom, Fonction From Employe Where (Accompagnement_Areva = -1) And (Fonction<>'CRP')")
    While rqListe.EOF = False
        Id = rqListe(0)
        Nom = rqListe(1)
        Prenom = rqListe(2)
        Me.Modifiable10.AddItem Id & ";" & Nom & ";" & Prenom
        rqListe.MoveNext
    Wend
End If
 
 
End Sub