Dokumente in Datenbank suchen und Werte ändern

[klaussal]

Set doc = dc.GetFirstDocument()

Wer lesen kann, ist eindeutig im Vorteil.

[DAU-in]

Wenn ich "Dim doc as NotesDokument" einfüge lässt sich das Script nicht mehr speichern.

Dann würde ich es mal mit

 "Dim doc as NotesDocument"

versuchen.

Und schalte doch mal Option declare ein.

[klaussal]

Und schalte doch mal Option declare ein.

Das haben wir schon ein paar Mal empfohlen: er hört aber nicht auf uns !

[m3]

Set doc = dc.GetFirstDocument()

Wer lesen kann, ist eindeutig im Vorteil.

Ja, da stimme ich Dir zu. Nur wo siehst Du das in dem Code VOR dem While() ?

Code

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Set db = session.CurrentDatabase
   Set view = db.GetView( "A1" )
   Set dc = view.GetAllDocumentsByKey("A_USER")
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("Status", "7")
      Call doc.Save( True, False )
      Set doc = collection.GetNextDocument(doc)   
   Wend      
End Sub

[DAU-in]

Und schalte doch mal Option declare ein.

Das haben wir schon ein paar Mal empfohlen: er hört aber nicht auf uns !

Auf euch nicht, aber vielleicht auf eine T.....trägerin.   

Männer brauchen manchmal eine Konzentrationshilfe 

[Blitz]

Danke!

Wie muss ich das Machen?

set doc =


Jetzt blick ich bald gar nicht mehr durch.

[Blitz]

Habe die Antworten nicht gesehen.

Ich melde mich nochmal!

Danke

[Klafu]

Na, du hast eine Schleife in der du prüfst, ob doc leer ist.
Das ist es aber immer, da du im erst IN der Schleife einen Wert zuweist.
Und da kommst du nicht rein wegen dem WHILE NOT(doc is Nothing)

 

[DAU-in]

Und das Zuweisen innerhalb der Scheife würde auch nicht funzen, da du ja doc immer den Nachbarn des alten docs zuweist. Ohne doc jubts aber auch kein Nextdoc.

du brauchst getfirstdocument  (siehe Hilfe oder Beitrag von Klauss)

[Blitz]

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDokument   
   Set db = session.CurrentDatabase
   Set view = db.GetView( "A1" )
   Set dc = view.GetAllDocumentsByKey("A_USER")
   Set doc = dc.GetFirstDocument()   
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("Status", "7")
      Call doc.Save( True, False )
      Set doc = collection.GetNextDocument(doc)   
   Wend      
End Sub

Habe das Script jetzt so geändert.

Kann aber leider declare nicht einschalten, da das Script sich nicht speichern lässt.

Class or Type not found: Notesdocument

Tut mir leid, wenn ich so oft nachfargen muss. Hoffe ich komme bald dahinter!

Danke

[DAU-in]

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDokument   
   Set db = session.CurrentDatabase
   Set view = db.GetView( "A1" )
   Set dc = view.GetAllDocumentsByKey("A_USER")
   Set doc = dc.GetFirstDocument()   
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("Status", "7")
      Call doc.Save( True, False )
      Set doc = collection.GetNextDocument(doc)   
   Wend      
End Sub

Habe das Script jetzt so geändert.

Kann aber leider declare nicht einschalten, da das Script sich nicht speichern lässt.

Class or Type not found: Notesdocument

Tut mir leid, wenn ich so oft nachfargen muss. Hoffe ich komme bald dahinter!

Danke

vergleich doch mal deine Schreibweise mit der Schreibweise der collection eine Zeile weiter oben

[Blitz]

Danke.

War echt blind.

Jetzt kann ich weiter testen!

[bikerboy]

Warum eigentlich eine Schleife die alle Dokumente durchgeht, wenn er sowieso keine Prüfung vornimmt. Wie is es denn mit NotesDocumentCollection.StampAll ?