Discussion :

[samtheh]

Bonjour,

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

Voici mon code :

Code :

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

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 :

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

Avez vous une idée ?

[Tofalu]

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

[samtheh]

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.

[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

[Tofalu]

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.

[samtheh]

Voila mon code à présent :

Code :

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

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.

[Tofalu]

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

Que vaut COL_CMembres.Count ?

[samtheh]

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 :

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

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.

[Arkham46]

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)

[samtheh]

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.

[Arkham46]

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.