Script geht nicht - Prüfen ob Doc vorhanden!

[tbrenner]

Hallo,
habe folgenden Script geschrieben:

Dim session As New Notessession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("(Today)")
   
   On Error Resume Next
   Set doc = view.GetFirstDocument
   If doc Is Nothing Then
      Set doc = New NotesDocument(db)
      doc.form = "fmToday"
      doc.KeyToday = Today ()
      Call doc.Save (True, True)
   Else
      doc.KeyToday = Today ()
      Call doc.Save (True, True)
   End If

Der Script soll prüfen ob in einer Ansicht ein Doc vorhanden ist, falls nein ein neues anlegen und falls vorhanden nur das Feld KeyToday mit dem heutigen Datum füllen.
Leider haut es nicht hin..er legt immer ein Dokument an...ich will aber nur eins haben...jemand ne Idee an was es liegt
Danke
Tom

[ata]

... gib der View nach dem Save des Docs einen Refresh...

ata

[tbrenner]

Hi ata,
hab nen refresh eingebaut..haut aber auch nicht hin.

Tom

[tbrenner]

Hi ata,
glaub ich habs gefunden....hab die Spalte in der View nicht sortiert gehabt...
So wies aussieht gehts..werds mal genau testen
Mehr dazu morgen
Tom

[koehlerbv]

Nimm mal das On Error Resume Next 'raus und laß den Code im Debugger laufen.
Gibt es überhaupt die View "(Today)" ? Objekte nach dem Instantiieren immer auf Erfolg prüfen:
If view is nothing then
   Messagebox "Das war wohl nix !"
   Exit Sub
End If

On Error Resume Next ist übrigens in der Regel sowas wie Russisches Roulette ...

Bernhard

[koehlerbv]

Hallo, Torn,

View-methods wie GetDocumentByKey funktionieren nur, wenn die erste Spalte nicht sortiert ist, aber GetFirstDocument rührt dies nicht.
Ich habe eben extra nochmal 'ne Test-DB gemacht - die eine Ansicht hat gar keine sortierte Spalte, und GetFirstDocument (und getNextDocument) tut, was es tun soll.

Das kann es also nicht gewesen sein.

Bernhard

[tbrenner]

So ich habs getestet...der Agent läuft...ich hab am Script nix geändert, ausser daß ich die Spalt aufsteigend sortiert habe...
ist komisch...
Trotzdem danke für Eure Tipps
Tom

[ata]

... das konnte eigentlich nur der Refresh sein, denn die Sortierung der Ansicht hat nur dann eine Auswirkung, wenn du mit .GetDocumentByKey oder .GetAllDocumentsByKey arbeitest...

ata