Discussion :

[cuicui08]

Bonjour,

je travaille actuellement sous Access et je dois réaliser des formulaires que je dois remplir avec des donnée de table. J'ai donc repris un ancien code que j'avais réaliser sous Outlook dans le même but (j'utilisais la méthode AddItem). Or, il s'avère que cette méthode ne marche pas sous Access: j'ai donc tenté d'utiliser RowSource.. sans succès, et je ne comprends vraiment pas pourquoi. Voici mon code de remplissage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    With rstLogi
        If (.State = adStateOpen) And (Not (.EOF And .BOF)) Then
        .MoveFirst
            Do Until .EOF
                strChaine = .Fields("designation")
                Form_LIST_LOGI.List_Logi.RowSource = strChaine
                .MoveNext
            Loop
        Else
            MsgBox "Pas d'objet"
            End
        End If
    End With

Sachant que strChaine est de type String et qu'il contient une requête SQL (qui est correct), quelqu'un saurait t'il me dire pourquoi cela ne marche pas ? Ai je omis quelque chose ?

Merci

Cuicui

[cuicui08]

Personne ne sait ?

Si vous voulez que j'ajoute plus d'élément (comme ma requête ainsi que son execution par exemple, ou encore l'appelle de la sous routine) n'hésitez pas à me le faire savoir

Merci

[Invité]

Salut,

La méthode Additme n'éxiste qu'à partir d'Access 2002

Code :

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

1
2
3
4
5
6
7
8
 
dim strChaine as String
strChaine = ""
while not rstLogi.EOF
     strChaine = rstLogi("designation") & ";" & strChaine
     rstLogi.MoveNext
wend
me.maliste.rowsource = strChaine

Et mettre liteValeurs dans les propriétés de ta liste.


Ce code est tapè à la main, pas dans l'éditeur VB, mais le principe est là


Starec

[cuicui08]

Toujours le même problème.. La liste box ne se remplit pas.

En outre, j'ai tenter de faire cela pour voir si elle se replissait mais sans succès

Code :

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

Form_LIST_LOGI.List_Logi.RowSource = ("cuicui";"kilvan";"oiseau")

Il doit me manquer un élément, mais je ne voit vraiment pas quoi..

[Invité]

Re

Il me semble qu'il ne faut pas de parenthèse, as-tu controler listeValeurs dans les propriétés

Starec

[cuicui08]

Re

Si je ne met pas de parenthese, il me dit "Erreur : Fin d'instruction"

Par contre, je t'avoue que je suis un peu perdu (pourquoi on ne peut pas utiliser AddItem snif..) Que veux tu dire par controler ListeValeur dans propriété ? J'imagine que c'est dans les propriétés de la listbox mais je dois vérifier quoi ?

[ouskel'n'or]

J'ai bien une idée mais j'ignore si elle va fonctionner aver access (il y a un forum Access)
Au lieu de tenter de renseigner la listbox dans la boucle, crée un tableau dans la boucle - avec redim preserve Tableau(NoLigne) - puis, remplis ta listbox du tableau

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
16
Dim strChaine()
   With rstLogi 
        If (.State = adStateOpen) And (Not (.EOF And .BOF)) Then 
        .MoveFirst 
            Do Until .EOF 
                i = i + 1
                Redim preserve strChaine(i)
                strChaine(i) = .Fields("designation") 
                .MoveNext 
            Loop 
        Else 
            MsgBox "Pas d'objet" 
            End 
        End If 
    End With
Form_LIST_LOGI.List_Logi.List()= strChaine()

Comme je ne peux pas vérifier, je me suis inspiré de ça

Code :

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

1
2
3
4
5
6
7
Dim Tableau()
    Do While i < 15
        i = i + 1
        ReDim Preserve Tableau(i)
        Tableau(i) = Worksheets("Feuil1").Cells(i, 2).Formula
    Loop
UserForm1.MaListeBox.List() = Tableau()

qui fonctionne en VBA-E

A toutes fins utiles ... et à tout hasard, donc !

[cuicui08]

Ok, merci bien

Je vais vérifier tout de suite. par contre, je laisse strChaine en type string ou je le met en tableau ? Si je dois le déclarer en temps que tableau, je met quoi comme nom de variable en VBA ?
(le code que tu t'es inspiré est du VBScript me semble t'il ? )

Encore merci pour votre aide

[ouskel'n'or]

Non, c'est du VBA97 !!!
Quant à ta strChaine, comme j'ai essayé ça vite fait, c'est un variant mais fais l'essai avec string.
Bref, tu peux essayer ça pour moi ? Tu nous donneras le résultat de ton expérience...

Merci pour tout

A+

[cuicui08]

Lol je viens d'essayer rapidement sans trop tenter de changer quoi que ce soit. Il attend effectivement un tableau :s. Je vais retenter d'autre manip.. Je comprends vraiment pas pourquoi ma listbox ne se remplit pas :S. Au fait, c'est moi qui te remercie lol

[ouskel'n'or]

Je viens de voir une erreur possible :

Au lieu de

Code :

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

1
2
3
        End If 
    End With 
Form_LIST_LOGI.List_Logi.List()= strChaine()

Mets

Code :

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

1
2
3
        End If 
        Form_LIST_LOGI.List_Logi.List()= strChaine() 
    End With

Tu dis

A+

[AlainTech]

Toujours le même problème.. La liste box ne se remplit pas.

En outre, j'ai tenter de faire cela pour voir si elle se replissait mais sans succès

Code :

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

Form_LIST_LOGI.List_Logi.RowSource = ("cuicui";"kilvan";"oiseau")

Il doit me manquer un élément, mais je ne voit vraiment pas quoi..

As-tu essayé

Code :

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

Form_LIST_LOGI.List_Logi.RowSource = Array("cuicui";"kilvan";"oiseau")

:

Edit --> Ou, comme le suggère ouskel'n'or:

Code :

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

Form_LIST_LOGI.List_Logi.List() = Array("cuicui";"kilvan";"oiseau")

[cuicui08]

Bonjour,

désolé de ne pas avoir donnée de signe de vie avant mais je n'ai pas pu me connecter à Internet ce week end. Je viens de tester vos différentes manières, sans succès.. (si je laisse les point virgules, il génère une erreur et la ligne devient rouger et si je remplace par des virgules, il me dis :"Imconpatibilité du type") Je ne comprend vraiment pas ..

[ouskel'n'or]

Pourquoi ne passes-tu pas par un tableau ?
(En VBA, le séparateur est une virgule, en VB je ne sais pas)

Code :

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

1
2
Tableau = array("","cuicui","kilvan","oiseau","nid","branche", "arbre","derrière chez moi", "un petit bois")
Form_LIST_LOGI.List_Logi.RowSource = Tableau

Ça, je suis bien certain que ça marche. Attention, ton tableau commence à 0 et la chaîne vide est là pour ça

Tu dis

[cuicui08]

Je vais essayer voir si ca marche, mais en fait le vrai but de mon projet est de joindre des requêtes SQL à la listbox, c'est pourquoi je n'ai pas osé utiliser de tableau, de peur que ça ne marche pas (je me suis peut etre tromper, non ?). Bon, je vais tester ce que tu m'as donné et je vous redis quoi. Encore merci

[cuicui08]

Je viens de faire un copier/coller, pour bvoir si la listbox se rempliçait enfin Il me dis qu'une bibliothèque n'est pas ouverte. Je dois ouvrir quoi dans l'explorateur d'objet pour utiliser les tableaux ?

[ouskel'n'or]

En VBA Excel j'aurais écrit
Form_LIST_LOGI.List_Logi.List= Tableau
et non RowSource qui pour moi voudrait dire que j'attends une plage de données dans une feuille de calcul... :

A+

[ouskel'n'or]

Dans Outils -> Références si tu vois marqué MANQUANT, c'est que la référence est ... manquante.
Mais pour VBA Access, je vais te laisser avec ceux qui connaissent...

A+

[cuicui08]

Ok, encore un grand merci. Je vais donc faire comme tu viens de me dire (j'y arriverais à afficher ces éléments dans la listbox.. j'y arriverais )