Ich sehe das auch so wie Toni. Vor allem das mit dem Ton - ich habe mir vor meiner letzten Antwort mal die vorherigen Postings angeschaut und daher so harsch reagiert ("... ist der Code also Unfug ...")
Um nun auch keinen Quark zu erzählen, habe ich mir die "Mühe" gemacht (nein, das Thema ist ja auch interessant - und Jürgens Behauptung oder Beschreibung sowieso), mal meine Aussage zu verifizieren.
Also: Ansicht erzeugt, im QueryOpenDocument steht
Sub Queryopendocument (Source As Notesuiview, Continue As Variant)
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
On Error Goto ErrorRoutine
Messagebox uidoc.Document.Form (0)
'Call uidoc.Refresh
Continue = False
Exit Sub
ErrorRoutine:
Call ErrorHandler ("View - QueryOpenDocument")
Exit Sub
End Sub
Also Jürgens Originalcode, ergänzt um einen ErrorHandler (hier nicht kriegsentscheidend!) und den Ersatz des uidoc.Refresh durch eine Messagebox, um das Item Form des angeblich instantiierten Frontend-Dokuments mit der eingebetteten Ansicht auszugeben.
Das Ergebnis: uidoc bleibt nothing, der ErrorHandler schlägt in der Zeile mit "Messagebox ..." zu - der Debugger zeigt es schon vorher an.
Wohlgemerkt: Die eingebette Ansicht war der Einfachheit halber eine vollkommene normale Ansicht - nicht privat noch sonst irgendetwas.
Und jetzt kommst Du, Jürgen - und komme bitte nicht wieder unbegründet damit, wir hätten dieses und jenes nicht gelesen. Erkläre bei der Gelegenheit bitte auch, warum Du in Deinem letzten Posting auf einmal CaretNoteID ins Spiel bringst - davon ist in Deinem Code keine Rede ...
Bernhard