Checkbox automatisch markieren

[stitze]

Sorry das ich euch auf den Senkel gehe, aber ich sitzte seit ca. 8:00 an dem prob und ich bekomme es nicht hin. Meine Laune verschlechtert sich von Minute zu Minute und der Monitor lernt gleich das Fliegen. 

Ich möchte eine automatisch generierte Auswahl (in Form von Checkboxen, bzw. eines Listenfeldes, via Button markieren, also alle Elemente. Dazu habe ich folgenden LS Code geschrieben, kann mir einer sagen warum das nicht funktioniert?

Code

Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim item As NotesItem
	
	Dim strMarkierung() As String
	
	Set uidoc = workspace.CurrentDocument
	Set item = uidoc.Document.GetFirstItem( "txtAenderungsbriefe" )
	
	Forall entry In item.Values 
		Redim Preserve strMarkierung(intZaehler) As String
		strMarkierung(intZaehler) = entry
		intZaehler = intZaehler + 1
	End Forall
	
	uidoc.document.chkAendeurngsbriefe = strMarkierung()
	
	Call uidoc.Refresh 

Zornerfüllten Gruß (nicht wegen Euch )

Sebastian

[klaussal]

Call uidoc.Save()
   uidoc.document.chkAendeurngsbriefe = strMarkierung()

Was funzt nicht ?
Stimmt hier überhaupt die Reihenfolge... ?

[stitze]

Sry mein Fehler, das mit dem Save war ein Tipp eines Arbeitskollegen, das sollte raus, ich edititiere es eben.

Es wird kein einziger Eintrag markiert.

[umi]

- Hast Du schon mal den Debugger bemüht?
- Ist im FeldtxtAenderungsbriefe etwas enthalten ?
- evtl. das UIDokument schliessen und erneut laden
- evtl. vor dem neuladen des UIDokuments das zugehörige Dokument speichern.