Zone de liste remplie avec du code VBA

**titine31** · 01/08/2007, 10h21

Bonjour, je désire remplir une zone de liste automatiquement dans mon code VBA lorsque l'utilisateur clique sur un bouton de validation

[variables]
i : mon compteur
req : ma requete de type string
maTable : recordset
[variables]

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub valider_Click()
'remplissage de ma liste
For i = 1 To 12
    Req = "SELECT Count(iddossier) AS Nb_dossier FROM WOA WHERE ae_dateemission like '**[/]" & i & "[/]" & Me.annee & "[/]#[:]#[:]#';"
    Set MaTable = CurrentDb.OpenRecordset(Req)
     'remplissage de ma liste a chaque tour de boucle
Next i
End Sub

Sauf que je ne sais pas quoi mettre comme code pour le remplissage. J'aimerais que les données afficher soit de ce style là :
i -- nb_dossier

Merci de votre aide précieuse...
Aurore

Invité · 01/08/2007, 10h54

Bonjour

Quel version d'Acces as-tu ? En effet, on peut appliquer deux méthodes différentes en fonction de celle-ci.

Starec

**titine31** · 01/08/2007, 11h08

Access 2003

Invité · 01/08/2007, 11h11

Re

OK, fais une recherche avec Additem, c'est la méthode à utiliser, tu peux la faire recherche sur le forum ou avec la touche

.

Si tu as des soucis avec le code montre nous le ensuite.

Starec

**titine31** · 01/08/2007, 11h46

ca ne marche pas.
Voici comme je l'ai utilisé :

Code :

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

1
2
3
4
5
6
7
 
For i = 1 To 12
        Req = "SELECT Count(iddossier) AS Nb_dossier FROM WOA WHERE ae_dateemission like '**[/]" & i & "[/]" & Me.annee & "[/]#[:]#[:]#';"
        Set MaTable = CurrentDb.OpenRecordset(Req)
        Me.maListe.AddItem (MaTable!nb_dossier, i)
        Me.maListe.Requery
Next i

j'ai fait a partir de l'exempls founir par l'aide de ACCESS :
expression.AddItem(Élément, Index)

donc pour moi :
expression = me.maliste
élément = matable!nb_dossier (le résultat renvoyé par la requete)
index = i (mon compteur)