Zone de liste remplie avec du code VBA

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:

---

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

Bonjour

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

Starec

Access 2003

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 :f1:.

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

Starec

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

Code:

---

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)

Citation:

---

Envoyé par titine31

ca ne marche pas.

---

Re

Qu'est-ce qui ne marche pas ? Message d'erreur et où ? Rien dans la liste ?

Starec

l'erreur se situe au niveau de la ligne où il y a le srowsource

et le message d'erreur qui s'affiche est :
la propriété ROWSOURCETYPE doit etre définie sur la valeur liste valeurs pour utiliser cette méthode

je n'en sais pas plus ... Et je ne comprend pas trop...

Re

Dans les prorpriétés de ta liste, il y'a Origine Source, là tu sélectionnes Liste Valeurs, je pense qu'à la place tu dois avoir Table/Requêtes.

Starec

oui merci... je ne pense jamais a modifier ce paramètre.. alors que je me suis déja faite avoir plusieurs fois :s...

mes valeurs s'affiche correctement dans ma liste, je vais maintenant tenter de faire afficher deux valeurs cote a cote...

Merci beaucoup pour ton aide

je me suis sur estimé... je ne sais pas comment faire pour dire que je veux deux collones dans ma liste.
Ma première colonne doitafficher le "i" et ma deuxième colonne le "nb_dossier". j'avais trouvé comment faire avec un RowSource mais je ne sais pas comment faire avec un "additem"