Discussion :

[cretgil]

Bonjour à tous,

J'ai un petit problème.

Je fais une requête pour remplir une zone de liste de 2 colonnes (0cm,10cm) dont la source est une liste valeurs que je remplis de la sorte

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
 
    Set rst = db.QueryDefs("qryNumSapNon").OpenRecordset
 
    'vider la liste des numéros Sap avant de la remplir
    Me.lstNumSapDispo.RowSource = ""
    If Not (rst.BOF And rst.EOF) Then
 
        rst.MoveFirst
        Do Until rst.EOF
            With Me.lstNumSapDispo
                .AddItem Item:=rst!strNumOrdreSap & ";" & rst!strNumOrdreSap & " " & rst!strNomOrdreSap
            End With
            rst.MoveNext
        Loop
    End If

Ma requête donne un résultat de 769 lignes et dans ma liste box, il me manque 30 lignes

si je fais ce code ci-après j'ai toutes les lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set rst = db.QueryDefs("qryNumSapNon").OpenRecordset
 
    'vider la liste des numéros Sap avant de la remplir
    Me.lstNumSapDispo.RowSource = ""
    If Not (rst.BOF And rst.EOF) Then
 
        rst.MoveFirst
        Do Until rst.EOF
            With Me.lstNumSapDispo
                .AddItem Item:=rst!strNumOrdreSap & ";" & rst!strNumOrdreSap 
            End With
            rst.MoveNext
        Loop
    End If

mais le but est d'avoir le num et le nom affiché comme dans le permier code
quelqu'un aurait une idée du problème.
Merci pour votre aide
@++
gic

[loufab]

Bonjour,

Normalement on rempli une liste de la sorte quand on est confronté à des valeurs qui ne proviennent pas d'une source de données.

Ici tes valeurs proviennent d'une source de données. Il y a une raison particulière pour que tu utilises cette méthode ?

Cordialement,

[loufab]

Sinon pour répondre directement à ta question, il affiche bien ce que tu lui demandes :

Code :

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

.AddItem Item:=rst!strNumOrdreSap & ";" & rst!strNumOrdreSap

Soit 2 fois "strNumOrdreSap".

Pour les 30 manquants il faut identifier ceux qui ne s'affichent pas et faire du debug pour voir ce qu'il en fait.

[Tortille]

Bonjour,

tu as peut-être 30 rst!strNomOrdreSap nuls ?