Domino 9 und frühere Versionen > Entwicklung

Löschung von Dokumenten verhindern / steuern

<< < (3/3)

MadMetzger:
alles klar! habs verstanden! danke nochmal!

MadMetzger:
Wenn ich dieses Script im querydocument delete einbinde kommt immer "Type Mismatch" beim Versuch zu löschen. Wo liegt der Fehler?
     Dim col As notesdocumentcollection
     Dim doc As notesdocument
     Dim session As New notessession
     Dim rolle As String
     
     Set col = source.documents
     Set doc = col.getfirstdocument
     Const macro = "@UserRoles"
     continue = False
     rolle = Evaluate (macro)
     
     While Not (doc Is Nothing)
          If doc.ANTStatusTX (0) = "15" Then
               continue = True
          End If
          If doc.ANTStatusTX (0) = "25" Then
               continue = True
          End If
          If rolle = "[Personal]" Then
               continue = True
          End If
          Set doc = col.getnextdocument(doc)
     Wend

Axel:
Hi,

Evaluate liefert einen Variant-Wert zurück.

Dim rolle As Variant
...
If rolle(0) = ....


So müsste es funktionieren.

Axel

MadMetzger:
so hat es funktioniert!

Navigation

[0] Themen-Index

[*] Vorherige Sete