Domino 9 und frühere Versionen > Entwicklung

Script geht nicht - Prüfen ob Doc vorhanden!

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite