MultipleValues Felder nur 1 Wert korrigieren

[Stephanie]

Hallo Zusammen

Ich habe folgendes Problem. Im Dokument kann der User verschiedene Schlüsselwörter zuordnen. Damit wenn ein Schlüsselwort geändert wird nicht immer alle Dokumente neu gespeichert werden müssen habe ich ein Script geschrieben, welches das jeweil korrigierte Schlüsselwort auf allen Dokumenten ändert.

Hier mein Script:

Dim uiwMain As New NotesUIWorkspace
Dim uidKeyword As NotesUIdocument
Dim docKeyword As Notesdocument
Dim ndbCurrent As Notesdatabase
Dim dclMaindoc As Notesdocumentcollection
Dim docMain As Notesdocument
Dim viwKeys As Notesview
Dim i As Integer
   
Set uidKeyword = uiwMain.CurrentDocument
If uidKeyword.Editmode Then
Call uidKeyword.Save
End If
   
Set docKeyword = uidKeyword.Document
Set ndbCurrent = docKeyword.Parentdatabase
   
Set viwKeys = ndbCurrent.GetView ("(LUPKeyworddocs)")
   
Set dclMaindoc = viwKeys.GetAllDocumentsByKey (docKeyword.oldCategoryName(0), True)
For i = 1 To dclMaindoc.Count
Set docMain = dclMaindoc.Getnthdocument (i)
docMain.Keyword = docKeyword.CategoryName(0)
docMain.KeywordF = docKeyword.CategoryNameF(0)
Call docMain.Save (True, True)
   
docKeyword.oldCategoryName = docKeyword.CategoryName(0)
docKeyword.oldCategoryNameF = docKeyword.CategoryNameF(0)
Call docKeyword.Save (True, True)
   
Messagebox "Alle Dokumenten wurden aktualisiert.",,"Keyword-Aktualisierung"

Dies funktioniert auch wunderbar, solange nur ein Schlüsselwort zugeordnet wurde. Sind mehrere Schlüsselwörter zugeordet, wird zwar das entsprechende korrigiert, die anderen jedoch gelöscht.

Hat jemand eine Idee wie ich mein Script ausbauen kann.

Besten Dank im voraus.

Gruss

Stéphanie

[Thomas Schulte]

Ist doch logisch. Wenn du das hier
docMain.Keyword = docKeyword.CategoryName(0)
docMain.KeywordF = docKeyword.CategoryNameF(0)
machst weist du dem Item direkt einen neuen Wert zu. Du musst also statt direkt zu arbeiten über Notesitem gehen und dann über die Values durch den Inhalt loopen und wenn Gleich ersetzen.

Thomas