Remplir une list box

Version imprimable

19/01/2011, 11h58
kervin

Remplir une list box
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 8O
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
19/01/2011, 12h27
pier.antoine

Bonjour

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

Code:

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

Pierre
19/01/2011, 12h46
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 ??
19/01/2011, 13h15
tarnx

Essayes la méthode AddItem:

Code:

Me.List_err.AddItem(rst!Ident)

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é

19/01/2011, 13h44
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
19/01/2011, 21h55
tarnx

Tu peux poster la ligne qui pose problème?

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