Maske und Rahmengruppe wechseln

[Raimund]

Hi Entwickler,

Habe folgendes Problem.
Ich soll bestehende DB's auf zweite Sprache erweitern.

Bis schon so weit, dass ich mit einem Button die Masken, von Eingabe auf EingabeGB,wechseln kann. Was mir noch fehlt, ist die Möglichkeit mit dem selben Button auch die Rahmengruppe, vonMain auf MainGB, zu wechseln.

Hier mein Script für den Maskenwechsel:

Sub Click(Source As Button)
     
           'Die benötigten Objektvariablen werden deklariert
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim col As NotesDocumentCollection
     Dim doc As NotesDocument
     
     'Die Datenbank ist die aktuelle Datenbank und die markierten Dokumente
     'werden in der Dokumentensammlung gespeichert.
     Set db = session.CurrentDatabase
     Set col = db.allDocuments
     
     'Alle Dokumente der Sammlung werden bearbeitet und der Maskenname auf EingabeGB
     'gesetzt. Das Dokument wird gespeichert. Durch die Sammlung wird mit der Methode
     'GetNthDocument navigiert.
     For i = 1 To col.Count
           Set doc = col.GetNthDocument(i)
           doc.Form = "EingabeGB"
           
           Call doc.Save(True, False)
           
     Next
End Sub

Damit scheint es zu funktionieren, dass alle Dokumente der Datenbank auf die Andere Maske umgestellt werden.
Vielleicht sehe ich als Anfänger den Fehler nicht.


Hoffe auf jede Hilfe.

Vielen Dank im Voraus

Gruß
Raimund

[Raimund]

Hi @ALL,

bin schon weiter gekommen.
Das Problem: Es wird ein neues Fenster aufgemacht.

Wie kann ich es abstellen???

Hier mein Script:


Sub Click(Source As Button)
     'Die benötigten Objektvariablen werden deklariert
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim col As NotesDocumentCollection
     Dim doc As NotesDocument
     
     Dim workspace As New NotesUIWorkspace
     
     
     'Die Datenbank ist die aktuelle Datenbank und die markierten Dokumente
     'werden in der Dokumentensammlung gespeichert.
     Set db = session.CurrentDatabase
     Set col = db.allDocuments
     
     'Alle Dokumente der Sammlung werden bearbeitet und der Maskenname auf EingabeGB      'gesetzt. Das Dokument wird gespeichert. Durch die Sammlung wird mit der Methode
     'GetNthDocument navigiert.
     For i = 1 To col.Count
           Set doc = col.GetNthDocument(i)
           doc.Form = "EingabeGB"
           Call doc.Save(True, False)
           Call workspace.OpenframeSet("MainGB")
     Next
End Sub


Gruß
Raimund