Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: chock am 16.09.03 - 12:09:39
-
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?
-
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
-
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
-
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
-
sry, ich dachte meine Erklärung reicht,
war nur so als einstiegshilfe gedacht, komplett ist das skript erst vom Vorredner
-
vielen vielen dank hab alles geklappt