Hallo liebe Leute,
ich habe mal wieder ein Brett vor dem Kopf. Ich ändere in einem Dokument ein Feld (KEINE Mehrfachwerte). Der alte Feldinhalt wird zuvor abgespeichert. Danach möchte ich, dass in einer Collection aus anderen Dokumente alle, die den alten Wert enthalten (hier gibt es Mehrfachwerte) auf den neuen Wert geändert werden. So weit, so schlecht! Das Skript läuft prima bis zum Evaluate. Hier quittiert mir Notes "Operation failed" und bricht ab. Der Debugger sagt mir auch nix.
Wo habe ich nur meinen Denkfehler???
Gruß Joe
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim eval As Variant
Dim formula As String
Dim a,b As String
Set uidoc = workspace.CurrentDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim dc As NotesDocumentCollection
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set view = db.GetView( "(Prüfung)" )
Set dc = view.GetAllDocumentsByKey(uidoc.FieldGetText("Stichwort_alt"),True)
a = uidoc.FieldGetText("Stichwort_alt")
b = uidoc.FieldGetText("Stichwort")
Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)
formula = {FIELD Stichwort := @Trim(@Replace(Stichwort;"} + a + {";"} + b + {"))}
eval = Evaluate(formula,doc)
Call doc.ReplaceItemValue("Stichwort", eval)
Call doc.Save(True,True)
Set doc = dc.GetNextDocument(doc)
Wend
Call uidoc.Close
Call workspace.ViewRefresh
End Sub
