Hallo,
ich möchte gerne über eine Funktion aus einem Feld mit Mehrfachwerten einen einzelnen Wert löschen. Wenn ich jetzt aber meine Funktion ausführe bekomme ich einen Fehler 1024 - Operation failed.
Könnt Ihr mir bitte auf die Sprünge helfen?
Mein Script:
Sub deleteReportIDfromProduct( keyProd As Variant, keyReport As Variant)
On Error Goto errorhandler
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim docProduct As NotesDocument
Dim item As NotesItem
Dim ret_eval As Variant
Set db = session.CurrentDatabase
Set view = db.GetView("SCNGHidProID")
Set docProduct = view.GetDocumentByKey( keyProd )
If Not (docProduct Is Nothing) Then
Set item = docProduct.GetFirstItem("containedScrReport")
If item.Contains(keyReport(0)) Then
'----- folgende Zeile bringt den Fehler 1024 -----
ret_eval = Evaluate( |FIELD containedScrReport:= @Trim(@Replace(containedScrReport; "| + keyReport(0) + |"; ""))|, docProduct)
' Call docProduct.Save(False, True)
End If
.....
Irgendwie sitze ich mal wieder auf der Leitung.
Vielen Dank für Eure Hilfe.
Andreas