---

Eigl. dachte ich es wäre nicht kompliziert ein Product (Part oder Product) in einer Baugruppe, anhand der PartNumber zu finden, da diese ja nicht mehrfach in einer Baugruppe vorkommen kann.

Derzeit habe ich eine Liste mit allen PartNumber's, die in der aktuellen Baugruppe vorkommen. In dieser Baugruppe können auch weitere Produkte verbaut sein.

Soweit so gut, dann wollte ich mit einer Function eben wieder das Product finden, das ich in der PartNumber-Liste auswähle.

Public Function FindProduct(oProduct As Product, PartNumber As String) As Product
   
    Dim oProducts As Products
    Set oProducts = oProduct.Products
   
    If PartNumber = oProduct.PartNumber Then
        FindProduct = oProduct
    Else
        Dim i As Integer
        For i = 1 To oProducts.Count
            FindProduct = FindProduct(oProducts.Item(i).ReferenceProduct, PartNumber)
        Next
    End If

End Function

Aber das funktioniert nicht, ich versteh nur nicht wieso.
Die Zeile die mit "FindProduct =" anfängt erzeugt den fehler das die object variable oder der with block nicht gesetzt ist.
Kann mir da jemand helfen?

[Diese Nachricht wurde von mycon am 01. Mai. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

anhand deiner Fehlermeldung würde ich folgende Lösung vorschlagen:
Public Function FindProduct(oProduct As Product, PartNumber As String) As Product
 
    Dim oProducts As Products
    Set oProducts = oProduct.Products
 
    If PartNumber = oProduct.PartNumber Then
        Set FindProduct = oProduct
    Else
        Dim i As Integer
        For i = 1 To oProducts.Count
            Set FindProduct = FindProduct(oProducts.Item(i).ReferenceProduct, PartNumber)
        Next
    End If

End Function

Immer, wenn ein Objekt an eine Variable zugewiesen wird (also kein Integer, String, Double, Boolean oder solche einfache Datentypen), muss ein Set davor vorhanden sein.

Gruß,
Zoltan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank.
Manchmal sieht man den Wald vor lauter Bäumen nicht 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP