OVH Cloud OVH Cloud

Classe et Collection

3 réponses
Avatar
Patrick
Bonjour,

J'ai créé une classe et une collection d'objets de cette classe.

Ensuite, je renseigne des enregistrements en allant rechercher un membre de
la collection avec sa clé.

Comment puis-je savoir que la clé n'a pas été trouvée ?

Voici une partie de mon code :
With cPayrolls.Item(sBadge)
If Not IsNull(.Badge) Then

Merci pour votre aide.

--
Patrick

3 réponses

Avatar
christophe-pasde
Bonjour,

sic la MSDN: "Si la valeur fournie pour l'argument index ne correspond
à aucun membre existant de la collection, une erreur se produit." , je
pense qu'en utilisant la clef au lieu de l'index c'est pareil.

Donc la solution intercepter l'erreur.

on error resume next
err.clear
With cPayrolls.Item(sBadge)
on error goto 0
if err.number<>0 then
'pas d'item correspondant
else
If Not IsNull(.Badge) Then
end if
end if

Christophe


Patrick a écrit :

Bonjour,

J'ai créé une classe et une collection d'objets de cette classe.

Ensuite, je renseigne des enregistrements en allant rechercher un membre de
la collection avec sa clé.

Comment puis-je savoir que la clé n'a pas été trouvée ?

Voici une partie de mon code :
With cPayrolls.Item(sBadge)
If Not IsNull(.Badge) Then

Merci pour votre aide.



Avatar
Patrick
Christophe,

Merci pour ta réponse.

En fait, j'avais mis un contrôle d'erreur avant la partie de code que tu as
vu et, par erreur, il n'était pas enlevé. Donc l'erreur causé par l'absence
de l'objet n'était pas détecté. C'est le fait que tu m'aies confirmé que
cela produisait une erreur qui m'a permet de m'en rendre compte.

Merci.

--
Patrick

"christophe-pasde<> @wanadoo.fr>" <"christophe-pasde<> wrote in message
news:cipqr2$fs1$
Bonjour,

sic la MSDN: "Si la valeur fournie pour l'argument index ne correspond
à aucun membre existant de la collection, une erreur se produit." , je
pense qu'en utilisant la clef au lieu de l'index c'est pareil.

Donc la solution intercepter l'erreur.

on error resume next
err.clear
With cPayrolls.Item(sBadge)
on error goto 0
if err.number<>0 then
'pas d'item correspondant
else
If Not IsNull(.Badge) Then
end if
end if

Christophe


Patrick a écrit :

> Bonjour,
>
> J'ai créé une classe et une collection d'objets de cette classe.
>
> Ensuite, je renseigne des enregistrements en allant rechercher un membre


de
> la collection avec sa clé.
>
> Comment puis-je savoir que la clé n'a pas été trouvée ?
>
> Voici une partie de mon code :
> With cPayrolls.Item(sBadge)
> If Not IsNull(.Badge) Then
>
> Merci pour votre aide.
>


Avatar
christophe-pasde
pas de quoi

Patrick a écrit :

Christophe,

Merci pour ta réponse.

En fait, j'avais mis un contrôle d'erreur avant la partie de code que tu as
vu et, par erreur, il n'était pas enlevé. Donc l'erreur causé par l'absence
de l'objet n'était pas détecté. C'est le fait que tu m'aies confirmé que
cela produisait une erreur qui m'a permet de m'en rendre compte.

Merci.