Collection Exists

...og jeg har ikke brug for en løsning der løber igennem min collection for på den måde at finde ud af om værdien allerede eksisterer ;-)

"Jeg har forøgt mig med MyCollection.Item(MyParam) men det virker ikke."
Hmmm - det er ellers måden, vil jeg mene.

On Error Resume Next
Set Item = MyCollection.item(MyIndex)
if err.number <> 0 then
  msgbox "Objektet findes"
End if

PS. En collection består af objekter, ikke værdier, bare for at være flueknepper ;o)

He he Martin - jeg er sgu ikke særlig vild med at du anvender Error Resume Next i dit eksempel... men de andre eksempler jeg har set på benytter samme fremgangsmåde som din... måske er den eneste sober løsninger at løbe igennem collection også sammenligne objekterne med MyParam værdien. ;-)

Du sætter Item = MyCollection.Item(MyIndex) - hvad retunere Item ???

Et objekt

Du kan også være mere specifik:

On Error Resume Next
Set Item = MyCollection.item(MyIndex)
if err.number = 9 then    '<--- RETTET
  msgbox "Objektet findes ikke"  '<--- RETTET
End if

Jf. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vamthItem.asp, hvor fejlkoden er angivet som 9.

err.Number vil altid være forskellig fra 0 - om MyIndex eksistere i MyCollection eller ej.

Da ikke hvis der ikke er nogen fejl! Så er err.Number = 0

Hmmm det virker lidt mystisk... den eneste fejl nummer jeg kan fremprovokere er tallet 5.

Her min kode:

On Error Resume Next

Dim aStrItem As Object

Set aStrItem = gStrNodeListArray.Item(aStrNodeList.Text)

MsgBox Err.Number

Er du sikker på at din collection indeholder noget - og hvilken fejlbesked hører til err.number 5?
Har du evt. glemt at bruge New..?
Kan du overhovedet loope igennem alle dine items?

Fejlbeskeden 5 har følgende beskrivelse: "Invalid procedure call or argument (Error 5)"

Min collection indeholder objekter og man kan ikke anvende New når man dimensionere et objekt (VB giver en fejl).

Og jeg kan godt løbe igennem alle mine items.

Så har du nok en stavefejl eller lignende et eller andet sted...