Dokument speichern und neu öffnen

[Roam]

Guten Morgen.

Ich habe folgenden Problem. Ich habe eine Maske mit Speichern Button. Nun soll das Dokument gespeichert werden und anschliessend möchte ich neue Werte eintragen können ohne das das vorhandene Dokument überspeichert wird.
   Dim ws As New NotesUIWorkspace
   Set uidoc = ws.CurrentDocument
                Dim uidoc as notesdocument
   Dim uidoc2 As notesuidocument
   Set uidoc2 = uidoc
   Call uidoc.Save
   Set uidoc = ws.EditDocument(True, uidoc2).

Hierbei kommt immer der Fehler "Function requires a valid adt argument".
Hoffe mir kann jemand helfen oder mir einen anderen Lösungsweg verraten.

MFG Roam

[Tode]

Wenn Du nicht willst, dass das aktuelle Dokument überschrieben wird, dann musst Du ein neues machen:

call uidoc.Save
call uidoc.Close( True )
Dim newDoc as New NotesDocument( db )
newDoc.Form = "DeinMaskennname"
call ws.EditDocument( True, newDoc )

Natürlich fehlt hier noch dim und zuweisung von db, und der code ist ohne Debugger "aus dem Kopf" runtergetippt, aber Du wirst sowieso wieder fragen, denn Dir fehlen die Grundlagen Script (NotesUIDocument <> NotesDocument) und Notes (Unterschied Formulare (MS Access) , Masken und Dokumente), ohne die Du ruck zuck wieder hier landen wirst...

Tode