Felder setzen

[chock]

Hallo,

wie kann ich aus der Maske1 über einen Aktionsbutton eine andere Maske2 im Hintergrund öffnen, dabei sollen Felder in der Maske2 mit Werten aus Maske 1 gefüllt werden.
Wie könnte ich vorgehen?

[Micha]

Im Hintergrund heißt wahrscheinlich im Backend.
Frondend doc speichern, dann

aktuellesDoc = frontendDoc.document '
Das würde bedeuten einfach neues dokument erstellen:

Set doc = New NotesDocument( db )
doc.Form = "FormName"
Fals alle Items reinsollen
success = doc.ComputeWithForm( False, False )
 If success Then
  Call doc.Save( True, True )
End If
und so den Inhalt kopieren
doc.Feld1 = aktuellesDoc.Feld1 (0)
oder replaceItemValue benutzen falls Item nicht vorhanden

[chock]

Ein neues Dokument legt er mir an aber übernimmt den Wert vom t_mit nicht mit in das Feld n_name.

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument ( db )
   doc.Form = "#statistik_mitarbeiter"
   doc.t_mit = Doc.n_name (0)
   success = doc.ComputeWithForm( False, False )
   If success Then
      Call doc.Save( True, True )
   End If
End Sub

[MadMetzger]

Dazu musst du dir auch noch das gerade geöffnete Dokument in eine zweite Variable packen:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim ws as New NotesUIWorkspace
   Dim uidoc as New NotesUIDocument
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim aktdoc as NoteDocument
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument ( db )
   doc.Form = "#statistik_mitarbeiter"
   set uidoc = ws.currentdocument
   set aktdoc = uidoc.document
   doc.t_mit = aktdoc.n_name (0)
   success = doc.ComputeWithForm( False, False )
   If success Then
      Call doc.Save( True, True )
   End If
End Sub

[Micha]

sry, ich dachte meine Erklärung reicht,
war nur so als einstiegshilfe gedacht, komplett ist das skript erst vom Vorredner

[chock]

vielen vielen dank hab alles geklappt