Ich habe eine Aktion in einer Maske erstellt. Diese Maske ist in einem Rahmen in einer Rahmengruppe geöffnet.
Bei der Aktion soll er das Dok speichern , dann den Targetframe auf den Frame wo das Dok ist legen und in dem Frame eine Ansicht öffnen, sodass das Dok verschwindet. Nun passiert aber das folgende: (Bild)
Hier das Skript:
Code
Sub Click(Source As Button)
Dim uiDoc As NotesUIDocument
Dim doc As NotesDocument
Dim ws As New NotesUIWorkspace
Dim tf As Boolean
Dim uidb As NotesUIDatabase
Dim arr As Variant
Dim chk As Boolean
Set uiDoc = ws.CurrentDocument
Set doc = uiDoc.Document
Set uidb = ws.GetCurrentDatabase
chk = False
tf = check
If tf Then
uiDoc.Save
Msgbox "Datensatz erfolgreich gespeichert!", MB_ICONINFORMATION, "alles klar!"
ws.SetTargetFrame("r_main")
uidb.OpenView("aktuell901")
End If
End Sub
Alles anzeigen