Domino 9 und frühere Versionen > ND6: Entwicklung

Dokumente in Datenbank suchen und Werte ändern

<< < (6/7) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete