Ins Queryopen der Maske Schreibst du:
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim ws As New NotesUIWorkspace
Set uidoc = Source
If uidoc.EditMode = False Then
Set doc = uidoc.Document
Call uidoc.close()
doc.Form = "Maske B"
Call ws.EditDocument(True,doc)
End If
Im Querysave mußt du auch abfragen, ob das Document gleich im Bearbeitungsmodus geöffnet wird. Wenn Ja, mußt du ja auch die Maske wechseln.
Gleiches Script nur mit der Änderung
If uidoc.EditMode = True Then
Und im Querysave muß die Maske wieder auf Maske A umgesetzt werden
Einfach:
Source.Document.Form = "Maske A"
Das müßte es eigntlich sein.
Wenn was nicht passt, laß es mich wissen.
-rar