Hallo,
hatte mal eine ähnliches Problem wie Du! Habe mir folgendes Script in eine Aktion gepackt... vielleicht kannst Du es als Basis nehmen und durch ein paar Modifikationen auf Deinen Fall anpassen?!? Falls Du Fragen dazu haben solltest stehe ich gerne zur Verfügung!
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As New NotesDatabase("", "")
Dim wks As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dlgflag As Variant
Set db = session.CurrentDatabase
Set uidoc = wks.CurrentDocument
Set doc = uidoc.Document
On Error Resume Next
'Feldwerte aus dem aktuellen Dokument Beanstandungen_neu auslesen
auftragva = uidoc.FieldGetText("VSTR")
thema = uidoc.FieldGetText("Subject")
aenr = uidoc.FieldGetText("PMAENr")
bearbeiter = uidoc.FieldGetText("Bearbeiter")
'Prüfung der Maske Beanstandungen, ob das Feld Programmänderungsnummer gefüllt ist
If aenr = "" Then
Messagebox ("Die Programmänderungsnummer für den Übernahmeauftrag fehlt!")
If uidoc.EditMode = False Then
uidoc.EditMode = True
Call uidoc.GotoField( "PMAENr" )
End If
Exit Sub
Else
Call uidoc.Save
End If
'Neuen Übernahmeauftrag erstellen
Dim uidoc2 As NotesUIDocument
Set uidoc2 = wks.ComposeDocument("","", "aenderungen")
Call uidoc2.FieldSetText ( "Form", aenderungen)
Call uidoc2.FieldSetText ( "Status", "In Erfassung")
Call uidoc2.FieldSetText ( "AuftragVA", auftragva)
Call uidoc2.FieldSetText ( "Subject", thema)
Call uidoc2.FieldSetText ( "Programmnr", aenr)
Call uidoc2.FieldSetText ( "AnsprechpartnerDV", bearbeiter)
Call uidoc2.FieldSetText ( "Autor", session.CommonUserName)
'Call uidoc2.Save
Messagebox ("Der Übernahmeauftrag wurde erfolgreich erstellt!")
End Sub