[VBA] Collection dans un module de classe

Bonjour,

j'aimerais comprendre le phénomène suivant (sous VB6) :

- J'ai un module de classe Commande qui possède une collection Proprietes qui permet de stocker les valeurs retournées par un SELECT, et contenues dans un recordset rs.

- Je renseigne la collection Proprietes étape par étape dans la méthode Initialiser. Exemple :

Code:

---

1 2 3 4 5 6

Public Function Initialiser(p_NumCommande as Integer) as Boolean '... Proprietes.Add rs.fields("champ1"), "champ1" Proprietes.Add rs.fields("champ1"), "champ1" '... End Function

---

- Puis au sein d'une autre fonction, j'exécute le code suivant, qui fonctionne parfaitement :

Code:

---

1 2 3

Dim toto as New Commande toto.Initialiser "n° de commande quelconque" debug.print toto.Proprietes(1).Name

---

- Ensuite, j'ai voulu renseigner la collection Proprietes dynamiquement (plus élégant) :

Code:

---

1 2 3

For each fld in rs.Fields Proprietes.Add fld.Value, fld.Name Next fld

---

- J'ai maintenant l'erreur d'exécution 424 (objet requis) sur le debug.print

Pouquoi tant de haine ? :calim2:

Bonjour,

As-tu vérifier que ta boucle for each parcours bien les différents champs de ton recordset?

Cordialement

Bonjour,

merci pour la réponse.

Oui, la collection est correctement renseignée : le code suivant fonctionne pour récupérer la valeur de la propriété :

Code:

---

debug.print toto.Proprietes(1)

---

Celui-ci fonctionne aussi :

Code:

---

debug.print toto.Proprietes("maProp")

---

C'est donc spécifiquement l'accès à la clé de l'élément de collection qui pose problème

Bonjour

J'ai testé ton code. J'ai, évidemment, le même problème. En regardant les valeurs espions, je vois que lorsque l'on utilise rs!..., on passe un objet à la collection, alors que lorsque l'on utilise fld.value et fld.name, on passe une variable...

Si pas de solution début d'après-midi, je chercherai une solution

Re,

Avant de vérifier si ta collection marche bien, Vérifie que ton "for each fld in rs.fields" fonctionnement correctement. A mon avis le probleme ne vient pas la collection puisse que tu réussis à la renseigner manuellement.

Pour tester ta boucle tu peu faire un :

Code:

---

1 2 3 4

For each fld in rs.Fields MsgBox fld.Value & " / " & fld.Name Next fld

---

As-tu bien déclarer Fld comme un field?

Cordialement

Merci pour vos réponses.

- Psyko : la boucle qui parcourt le recordset fonctionne comme il faut. J'arrive à renseigner la valeurs des propriétés et à y accéder.

- Pierre : je pense que vous avez mis le doigt sur le coeur du problème. Je suis en train de travailler sur une solution de contournement qui me semble du coup être la bonne : créer un autre module de classe Propriete qui me permettra d'ajouter des objets à la collection tout en conservant ma boucle For Each... Next. Ce qui me permettra notamment de pouvoir modifier la structure des tables sans avoir à toucher au code des modules.

Merci encore à vous deux pour votre aide. :ccool: