Hallo!
Ich habe folgendes Script in einem Button eingebunden. Es füllt mir beim Betätigen des Buttons alle relevanten Felder in einer Maske.
Ich möchte nun nicht immer auf den Button drücken um die Felder zu füllen, sondern die Felder sollen schon beim Aufrufen der Maske gefüllt werden. Die Maske soll nur zu Ansichtszwecken dienen und brauch auch nicht gespeichert werden.
Dim ws As New NotesUIWorkspace
Dim note As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc1 As NotesDocumentCollection
Dim doc1 As NotesDocument
Set db = session.CurrentDatabase
Set dc1 = db.AllDocuments
Set doc1 = dc1.GetFirstDocument
Set note = ws.CurrentDocument
While Not doc1 Is Nothing
Call note.FieldSetText (doc1.Uebersicht(0), doc1.Subject(0))
Set doc1 = dc1.GetNextDocument(doc1)
Wend
Ich bin noch nicht so Erfahren in der Entwicklung von Notes und kenne deshalb die einzelnen Funktionen der Events noch nicht genau. Vielleicht könnt ihr mir weiterhelfen. Danke im Voraus.
