Domino 9 und frühere Versionen > Entwicklung

Dokument mit anderer Maske bearbeiten

<< < (2/2)

rar:
Ins Queryopen der Maske Schreibst du:

Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim ws As New NotesUIWorkspace
Set uidoc = Source
If uidoc.EditMode = False Then
    Set doc = uidoc.Document
    Call uidoc.close()
    doc.Form = "Maske B"
    Call ws.EditDocument(True,doc)
End If

Im Querysave mußt du auch abfragen, ob das Document gleich im Bearbeitungsmodus geöffnet wird. Wenn Ja, mußt du ja auch die Maske wechseln.
Gleiches Script nur mit der Änderung
If uidoc.EditMode = True Then

Und im Querysave muß die Maske wieder auf Maske A umgesetzt werden
Einfach:
Source.Document.Form = "Maske A"

Das müßte es eigntlich sein.
Wenn was nicht passt, laß es mich wissen.

-rar

Fbaum:
Hallo,
funktioniert soweit. Nur musste ich das Script ins QuerymodeChange Ereignis eintragen.
Aber es geht.
Vielen Dank und Gruß
FBaum  :)

rar:
Sorry. Natürlich gehört es ins QueryModeChange. Ich habe keine Ahnung wie sich das QueryOpen in mein Eintrag geschwindelt hat. Waren sicher irgendwelche Hacker ;)

Navigation

[0] Themen-Index

[*] Vorherige Sete