Feldwerte ersetzen auch wenn Feld nicht vorhanden

[Alexis]

Hallo Forum,

beim Betreff tue ich mich schon schwer. Folgende Hürde:
Eine Anzahl selektierter Dokumente sollen ín einem Mehrfachwert-Feld einen zusätzlichen Wert erhalten. So weit kein Problem.

Set doc = coll.getfirstdocument
   Do Until doc Is Nothing
      Set Item = doc.GetFirstItem("Stage")
      Call item.AppendToTextList( Response$ )
      Call doc.Save( False, True )
      Set doc = coll.getnextdocument(doc)
   Loop

Nun sind aber einige Dokumente jungfräulich und besitzen das Feld noch nicht. Dass heißt ich muss mit New NotesItem das Feld erst definieren. Das beißt sich aber im Falle, dass das Feld bereits existiert, oder

Ich bitte um Rat.

Alexis

[Thomas Schulte]

prüfen ob das Document ein item hat geht mit doc.hasitem

[Alexis]

Danke!

[Alexis]

Ich habe doch noch ein Problem:

Das Field Flag wird offensichtlich nicht auf SUMMARY gesetzt, (was immer das für eine Bedeutung hat).

Konsequenz: Im SELECT erscheinen jene Dokumente nicht, die ich durch Setzen des Feldes auswählen möchte?

Alexis

[Axel]

Dann setz die IsSummary - Eigenschaft auf True.

Beispiel aus der Designer-Hilfe:

Code

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set item = New NotesItem _
( doc, "Topic", "I have something to say" )
item.IsSummary = True
' must specifically set this property
Call doc.Save( False, True )

Axel

[Alexis]

Nochmals Danke.

Ihr seid super!

Alexis