Domino 9 und frühere Versionen > ND6: Entwicklung

Maske in den Bearbeitungsmodus setzen

<< < (2/2)

Egon:

--- Zitat von: Egon am 12.08.04 - 14:45:44 ---Hier ist mein Script

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Set db = s.CurrentDatabase
Dim doc As New NotesDocument(db)    
doc.Form = "Maske"
Set uidoc = ws.EditDocument(True, Doc)

Da muss jetzt nur noch so eine Art EditDocument für die Maske SM und ein speichern dieser hinein. Dies allerdings bevor die 2. Maske (hier Maske) geöffnet wird.

--- Ende Zitat ---

Ich habe mein Script nochmal geändert

Sub Click(Source As Button)
Dim s As New NotesSession
Dim workspace1 As New NotesUIWorkspace
Dim editUIdoc As NotesUIDocument
Dim editdoc As NotesDocument
Set editUIdoc = workspace1.CurrentDocument
editUIdoc.EditMode = True
Set editdoc = editUIdoc.Document
Call editdoc.Save(True,True)

'Messagebox" huhu !!!"

Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument

Set db = s.CurrentDatabase
Dim doc As New NotesDocument(db)
doc.Form = "Neue_Maske"
Set uidoc = ws.EditDocument(True, Doc)
End Sub

Dieses Script setzt eine bestehende Maske in den Editmodus und soll sie danach speichern. Die 2. Aufgabe es Scriptes ist es eine 2. Maske im Bearbeitungsmodus aufgehen zu lassen. Leider funktioniert das Script noch nicht richtig. Das mit dem Speichern der 1. Maske klappt nicht. Leider brauch ich aber dieses Feature, weil beim Speichern der 1. Maske ein Wert in eine Ansicht abgelegt wird, der später für die 2. Maske als berechneter Wert benötigt wird.

Navigation

[0] Themen-Index

[*] Vorherige Sete