... hier mein Vorschlag:
... verwende meine Demo-DB http://www.anton-tauscher.de/download/dynview.nsf (http://www.anton-tauscher.de/download/dynview.nsf)
... tausche den Code des Agenten "IsEmbeddedView" durch folgenden Code - und du hast die Lösung:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim uiview As notesuiview
Set uidoc = ws.CurrentDocument
Call uidoc.Close
Set uiview=ws.currentview
' # check to see if cursor is in the embedded view
If Not (uiview Is Nothing) Then
Call ws.currentdocument.clear
End If
ata