View mit SetTargetFrame öffnen

[Gruenkohl]

Hi,

habe folgendes Problem:

Ich habe in einem Frame eine offene Maske. Diese möchte ich löschen und dann eine View öffnen.

Dies versuche ich mit folgendem Script:

Sub Click(Source As Button)
   Dim w As New NotesUiWorkspace
   Dim s As New NotesSession
   Dim View As NotesView
   Dim DB As NotesUIDatabase
   Dim Doc As NotesDocument
   Dim uidoc As NotesUiDocument
   
   Set DB = w.CurrentDatabase
   Set uidoc = w.CurrentDocument
   
   Set Doc = uidoc.Document
   
   If Not Doc Is Nothing Then
      Call w.SetTargetFrame( "fraBody" )
      Call DB.OpenView("vwKunden")
      Call w.Viewrefresh()
   Else
      Msgbox "Es wurde kein Dokument zum löschen gefunden!"
   End If
   
End Sub

Ich bekomme dabei immer die Fehlermeldung:

Aktuelles Programm kann nicht geschlossen werden.

Diese bekomme ich wenn die Maske im Edit/Lese Mode ist.

Hat jemand eine Ahnung woran das liegen könnte??

Danke

Andreas