Formularfeld mit Wertübergabe

[Silver]

Habe folgendes Problem:

In einer Übersichtsmaske kann durch Aktivieren eines Kontrollkästchens eine vorgegebene Menge an Prospekte angefordert werden.
Nun habe ich zur Ansicht des jeweiligen Flyers eine Schaltfläche eingefügt, das nach Klick ein Dialogfenster öffnet, indem eine andere Maske mit Bild des Prospekts geöffnet wird. Die Maske wird über @DialogBox("Maskenname") aufgerufen. Hier habe ich nochmals ein Kontrollkästchen zur Anforderung eingebaut. Wenn dieses also aktiviert wird, soll nach Klick auf "OK" auch das Kästchen des Übersichtsformulars (für das jeweilige Prospekt) aktiviert sein.
Wie muss ich das machen??

[Axel]

Hi,

ich versuchs mal aus dem Kopf. Füge in deine Schaltfläche folgendes Script ein.

Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db  As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dlgdoc As NotesDocument

Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

'Dokument für Dialog anlegen
Set dlgdoc = New NotesDocument(db)

'Dialog anzeigen
If workspace.DialogBox( "Maskenname", True, True, False, False, False, False, "Titel", dlgdoc, True) Then
 'Anforderung aus Dialog übernehmen
 doc.FeldfürAnforderung = dlgdoc.FeldfürAnforderung
 'Übersichtmaske sichern, wenn hier notwendig
 Call doc.Save(True,False)
End If

Die Feldnamen bzw. Maskennamen musst du deinen Gegebenheiten anpassen.

Ich hoffe das hilft dir weiter.
Axel
 

[nafets]

Eigentlich müsste es ausreichen, wenn du den Feldern den gleichen Namen gibst. @Dialogbox zeigt ja nur das gleiche Dokument mit einer anderen Maske an.

Hoffe das hilft dir weiter!  

[Silver]

Mit den gleichen Feldnamen funktioniert das nicht bei Kontrollkästchen. Habe aber eine andere Lösung gefunden. Vielen Dank!