Domino 9 und frühere Versionen > Entwicklung

Agent doppelte Dokumente löschen

<< < (2/5) > >>

Axel:
Hi,

nochmal ins Blaue gedacht...

Versuch's mal mit der Search-Methode aus der NotesDatabase-Klasse.

...
strTitel = "Überschrift nach der gesucht werden soll"
strSearch = "Titel = '" & strTitel & "'"
Set collection = db.Search(sSearch, Nothing, 0 )   

If collection.Count > 1 Then
  Messagebox "Mehrere Dokumente vorhanden"
End If
...

Axel

MrMagoo:
@Don Pasquale

irgendwie stehe ich wohl auf dem Schlauch, der Agent macht nix bei mir, ändert auch keine Feld

@Axel
ich will nicht nach einer bestimmte Überschrift suchen, sonder alle miteinander vergleichen und bei denen, die doppelt sind, den ältesten Eintrag rausschmeißen  ??? ??? ???

klaussal:
@MrMagoo,
ignorierst du meine antworten  ???. ich habe doch geschrieben, dass das teil von donpasquale nur das feld DoesDOC_IDexit
 nur auf 0 bzw auf 1 setzt... das war auch nur als anregung gedacht...
lass dir meine idee mal durch den kopf gehen... ::)

Axel:
Hi,

daß ist ja auch nur die Suche ob es weitere Dokumente mit diesem Titel gibt. a gehört noch weitere Logik außenrum.

So zum Beispiel:

...

Set entrycollection = view.AllEntries
Set entry = vc.GetFirstEntry()
While Not (entry Is Nothing)
  Set doc = entry.Document
  strTitel = doc.Titel(0)
  strSearch = "Titel = '" & strTitel & "'"
  Set collection = db.Search(sSearch, Nothing, 0 )  

  If collection.Count > 1 Then
    Messagebox "Mehrere Dokumente vorhanden"

    'Löschen der älteren Dokumente
  End If

  Set entry = vc.GetNextEntry(entry)

Wend
...


Axel

klaussal:
@axel,

in die gleiche richtung zielte meine erste idee. das mit der collection ist natürlich eine gute idee  :D

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete