Discussion :

[titine31]

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é]

Bonjour

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

Starec

[titine31]

Access 2003

[Invité]

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]

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)

[Invité]

ca ne marche pas.

Re

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

Starec

[titine31]

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

[Invité]

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

[titine31]

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

[titine31]

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"