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