Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: tbrenner am 10.09.03 - 16:47:52
-
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
-
... gib der View nach dem Save des Docs einen Refresh...
ata
-
Hi ata,
hab nen refresh eingebaut..haut aber auch nicht hin.
Tom
-
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
-
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
-
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
-
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... ;D
Trotzdem danke für Eure Tipps
Tom
-
... 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