Remplir une list box

[kervin]

Bonjour à tous,

Je bute sur ce qui pour beaucoup n'est sans doute qu'un détail.
Par le code ci dessous je voudrais remplir une list box ... et ça marche pas
A chaque passage de la boucle, il me donne bien les données du recordset mais elles ne s'inscrivent pas dans la liste.

Code :

1
2
3
4
5
6
7
        Do While Not rst.EOF
 
        Me.List_err = Me.List_err & rst!Ident
        rst.MoveNext
 
        Loop
        Me.List_err.Requery

Une idée ??

Merci

[pier.antoine]

Bonjour

Je me demande s'il ne faudrait pas un point virgule :

Code :

Me.List_err = Me.List_err & ";" & rst!Ident

Pierre

[kervin]

Bonjour Pierre,

J'ai essayé le ';' mais idem.
Si je place le pointeur sur

Code :

 Me.List_err = ...

il me donne bien la valeur, mais dans le formulaire, la liste reste désespérément vide.

Faut-il paramétrer la liste d'une certaine façon ??

[tarnx]

Essayes la méthode AddItem:

Code :

Me.List_err.AddItem(rst!Ident)

[GAYOT]

Bonjour
Peut être comme celà

Code :

1
2
3
4
5
6
7
8
    Do While Not rst.EOF
              Me.List_err.RowSourceType = "Value List"
              Me.List_err.AddItem rst.Fields(NomChamp)      
 
        rst.MoveNext
 
        Loop
        Me.List_err.Requery

Edit : Je vois que je viens d'être devancé

[kervin]

Pas mieux au niveau du résultat, mai en plus il me donne l'erreur '3265'
'Item not found in this collection'

.... Je crois que je vais assyer une autre approche, mais ça aurait put être utile

merci

[tarnx]

Tu peux poster la ligne qui pose problème?

[bernardmichel]

Salut,

Voici un bout de code que j'ai extrait d'une de mes applis, il fonctionne et je crois que tu peux t'en inspirer pour résoudre ton problème (sql étant bien entendu un "String" contenant un code SQL):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Set rst = CurrentDb.OpenRecordset(sql)
    With rst
        If .RecordCount = 0 Then strListe = "Nouvelle note" & ";" & frm!TitreMémo
        If .RecordCount > 0 Then
            .MoveLast
            .MoveFirst
            strListe = "Nouvelle note;" & !TitreMémo
            .MoveNext
            For I = 2 To .RecordCount
                strListe = strListe & ";" & !TitreMémo
                .MoveNext
            Next I
        End If
        frm!lstMémos.RowSource = strListe
        frm!lstMémos.Requery
    End With