Domino 9 und frühere Versionen > ND6: Entwicklung

Dokumente in Datenbank suchen und Werte ändern

<< < (7/7)

DAU-in:

--- Zitat von: Blitz am 22.09.08 - 12:36:10 ---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


--- Ende Zitat ---

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 ?

Navigation

[0] Themen-Index

[*] Vorherige Sete