---

Hallo Leute

Wie bekomme ich von einer Reference MyPub.Valuation den Zugriff auf das referenzierte Objekt? (Zeile 07)

Ich möchte überprüfen, ob ein Body schon veröffentlicht ist.

Eine Möglichkeit ist das umbenennen des Body's mit dem InternalName und danach Body.Name mit dem Publication.Displayname zu vergleichen. Nach dem Vergleich wird der vorherige Name des Body's wieder hergestellt. Ich habe den InteranlName verwendet, da der Body nach dem veröffentlichen umbenannt worden sein kann, oder in einer boolschen Strucktur mehrere Körper mit gleichem Namen auftreten können.
Diese Variante ist aber nicht elegant, da ich umbenennen muss. Besser wäre es, auf den veröffentlichten Body direkt zugreifen zu können.

So Könnte ich mit dem Is - Operator die beiden Objekte vergleichen, oder die beiden InternalName's vergleichen, aber ohen umbenennen.

hier noch ein Codeschnippsel 

Code:

---

Set SelBody = oSel.Item2(1).Value
01 Set myProd = oSel.Item2(1).LeafProduct
02 Set myPubls = myProd.Publications
03
04 M = 0
05 For i = 1 To myPubls.Count
06    Set MyPub = myPubls.Item(i)
07    Set PubObject =  XXXXXX (MyPub.Valuation)
08    If (pubObject Is SelBody) then
09      M = M + 1
10    End If
11 Next i 'publication
12
13 If M > 0 Then
14    MsgBox "Element veröffentlicht"
15 Else
16    MsgBox "Element nicht veröffentlicht"
17 End If

---

Schon mal Danke für Eure Bemühungen

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