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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?