type variable item collection

Bonjour,

Quel type doit-on mettre lorsque l'on fait appel à la méthode item d'une collection ?

Voici mon code :

Code:

---

1 2 3 4 5 6 7

Public Function searchMembreI(index As Integer) As M_CMembre 'retour d'un membre en fonction de la clef primaire Dim i As Variant i = "K_" & index Set searchMembreI = COL_CMembres.Item(CVar(i)) End Function

---

Et lorsque j'execute cela j'obtiens le message suivant :

Citation:

---

Erreur d'execution '91' :
Variable objet ou variable de bloc with non définie

---

Avez vous une idée ?

Le type doit être celui de l'objet dans la collection ou bien Object

Le problème ici c'est plutot que COL_CMembres n'existe pas

Je ne comprend pas que le type attendu soit du meme type que les objets contenus dans la collection. A quoi sert cette méthode ?

http://sinarf.developpez.com/access/vbaclass/#L3

Je me suis basé sur ce tuto.

COL_CMembres appartient à ma classe (variable privée), et la méthode aussi.

Bjr,

C'est au choix :
- soit la clé utilisé au moment de l'ajout (avec la méthode Add), c'est un string
- soit la position de l'élément (numéroté à partir de 1), c'est un long

Citation:

---

Envoyé par Arkham46

Bjr,

C'est au choix :
- soit la clé utilisé au moment de l'ajout (avec la méthode Add), c'est un string
- soit la position de l'élément (numéroté à partir de 1), c'est un long

---

Forcément, je n'avais pas compris la question. :mouarf:

Voila mon code à présent :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function searchMembreI(index As Integer) As M_CMembre 'retour d'un membre en fonction de la clef primaire Dim i As String i = "K_" & CStr(index) Debug.Print "key : " & i Debug.Print "te : " & COL_CMembres.Count Set searchMembreI = COL_CMembres.Item(i) End Function

---

Et j'ai toujours l'erreur d'execution 91. Les deux debug affichent bien les bonnes valeurs. Une idée sur mon problème ? Quelle est la valeur de retour de la méthode item ? peut-on voir les clefs qui ont été saisies dans la collection ? Merci de votre aide.

Où est défini col_cmembres ? Est t'elle instanciée ?

Que vaut COL_CMembres.Count ?

COL_CMembres est définie dans ma classe.
Instanciée dans class_Initialize

La valeur de count est 7 ce qui est tout a fait normal.

J'ai changé ma fonction en ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Function searchMembreI(index As Integer) As M_CMembre 'retour d'un membre en fonction de la clef primaire Dim i As String i = "K_" & CStr(index) Debug.Print "key : " & i Debug.Print "test : " & COL_CMembres.Item(i).getNom Debug.Print "te : " & COL_CMembres.Count   Set searchMembreI = COL_CMembres.Item(i) End Function

---

Et le debug "test" me renvoi bien la bonne valeur.

Bjr,

Quel est le code d'appel de la fonction searchMembreI?
Les membres ajoutés à la collection sont ils bien définis au niveau du module?
(à noter que l'insertion d'un objet dans une collection ne copie pas l'objet, il se crée un lien et donc la portée de l'objet doit être suffisante pour qu'il puisse être récupéré ensuite dans la fonction searchMembreI)

:? Dans l'appel de ma fonction je ne mettais pas le Set devant la variable.....trop moche. Merci de votre aide. J'ai un problème sur une autre fonction maintenant, mais je vais créer un nouveau thread.

Par contre pas compris pour la collection ?
Ca veut dire que si l'objet instancié ajouté à la collection est détruit il sera pas possible de le retrouver ?

J'ai une fonction pour ajouter dans ma colelction qui crée un membre temporaire, qui est rajouté à la collection et qui doit etre detruit à la fin de la fonction. Pourtant tout marche.

Citation:

---

Envoyé par samtheh

Par contre pas compris pour la collection ?
Ca veut dire que si l'objet instancié ajouté à la collection est détruit il sera pas possible de le retrouver ?

---

Non désolé en fait oublie ce que j'ai dis au dessus, dans ce cas ça marche.