Kontrollkästcheninhalte per Script übertragen

[Wiesel]

Hallo!
Ich möchte aus einem geöffneten Dokument die Inhalte in ein anderes zu öffnendes Dokument packen.
Das ist grundsätzlich auch kein Problem. Nur die Kontrollkästchen machen mir ein Problem. Wenn hier nur ein Wert eingetragen ist, wird es übertragen. Wenn mehrere Werte vorhanden sind und ich mir das mal per MsgBox anschaue, dann werden die Werte per Semikolon getrennt. Das Kontrollkästchen trennt ja aber nach Komma. Wie kriege ich Mehrfachwerte nun übertragen?

Hier mal mein Script aus einer Schaltfläche:

Sub Click(Source As Button)
   Dim S As New NotesSession
   Dim DB As NotesDatabase   
   Dim NewDoc As NotesDocument
   Dim Doc As NotesDocument
   Dim WS As New NotesUIWorkspace
   Dim UIDoc As NotesUIDocument
   
   'Neues Dokument erstellen
   Set DB = S.CurrentDatabase
   Set NewDoc = DB.CreateDocument
   NewDoc.Form = "Vorlage"
   'Call NewDoc.Save(True,True,True)
   
   Set UIDoc = WS.CurrentDocument
   Set Doc = UIDoc.Document
   
   'Felder übertragen
   NewDoc.txtStatus = "in Arbeit"
   NewDoc.chkDezernent = UIDoc.FieldGetText("chkDezernent")   NewDoc.txtPersonen = UIDoc.FieldGetText("txtPersonen")
   NewDoc.txtBetreff = UIDoc.FieldGetText("txtBetreff")
      
   'Dokument zum Bearbeiten anzeigen
   Call WS.EditDocument(True,NewDoc)
   
   Call UIDoc.save
   Call UIDoc.Close
   
End Sub

Das Feld chkDezernent ist das Kontrollkästchenfeld.

Wie setzt man das um?

Danke und erkältete Grüße,
Wiesel

[ascabg]

Hallo,

Koenntest Du nicht einfach mit

doc.CopyItem(...)

das ganze loesen?


Andreas

[tks]

NewDoc.chkDezernent = doc.GetItemValue("chkDezernent")

[Wiesel]

Hallo tks!
DAs klappt super! Da werden die Sachen ja quasi "blind" übertragen )