Domino 9 und frühere Versionen > ND6: Entwicklung

Felder setzen

<< < (4/6) > >>

animate:

--- Zitat von: TripleH am 11.01.04 - 21:43:41 ---Hallo!
Oh Thomas. Kannst du mich nicht noch mit der Nase drauf stoßen?
Also notesUIView  steht als Platzhalter.
Aber tut mir Leid ich blicke jetzt hier nicht ganz hinter das Problem ich schau auf meinen Quelltext und seh jetzt nicht ganz was da zu verbessern ist.

--- Ende Zitat ---

du musst halt in deinem Code das Wort notesUIView (das ist der Name einer Klasse) durch Source (das ist ein Objekt dieser Klasse) ersetzen.

TripleH:
Hallo!
Oh mann es geht immer noch nicht bin ich zu blöd?
Dacht ich eigentlich nicht:)

Ich hab den Text so geändert:

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
   Set s = New NotesSession
   Dim db As notesdatabase
   Set db = s.CurrentDatabase  
   Dim c As NotesDocumentCollection
   Set c = db.UnprocessedDocuments
   Dim doc As NotesDocument
   Set notesDocumentCollection = Source.Documents
   
   Set doc= c.GetFirstDocument
   While Not (doc Is Nothing)
      
      Call doc.ReplaceItemValue("Status","Bitte")
      Call doc.Save(True,True)
      
      Set doc= c.GetNextDocument(doc)
   Wend
   
   
End Sub

Wo ist mein Fehler?Ich verzweifele schon langsam.

Gruß

Robert

animate:
schön wäre gewesen, wenn du schreiben würdest, wie das "funktioniert nicht" aussieht (Fehlermeldungen, keine Änderungen am Dokument, etc.)
scheinbar kommen wir so nicht weiter und da du ja nie wieder mit Notes zu tun hast, nachdem du hier fertig bist, hier ein Vorschlag, der funktionieren sollte.

Stand eigentlcih auch schon 2-3 Posts weiter oben aber dann halt nochmal das Beispiel:

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
  Dim docs As NotesDocumentCollection
  Dim doc As NotesDocument
  Set docs = Source.Documents
  Set doc = docs.GetFirstDocument

'bis hierher kannst du das 1:1 übernehmen.
'dann kommen deine 2 Zeilen
      Call doc.ReplaceItemValue("Status","Bitte")
      Call doc.Save(True,True)

'und fertig.

End sub

TripleH:
Tach auch,

Ich habe deinen Lösungsansatz gerade mal ausprobiert, nun habe ich das Problem, das sich das Statusfeld nicht ändert. Eine Fehlermeldung kommt nicht.
Erst nach schließen des Programms und neu laden ist die Ansicht aktualisiert bzw. das Statusfeld geändert.
Hast du vieleicht auch dafür noch eine Lösung parat?
schon mal danke im voraus.
mfG
Robi!!

Glombi:
So:

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
dim ws as New NotesUIWorkspace
  Dim docs As NotesDocumentCollection
  Dim doc As NotesDocument
  Set docs = Source.Documents
  Set doc = docs.GetFirstDocument

'bis hierher kannst du das 1:1 übernehmen.
'dann kommen deine 2 Zeilen
      Call doc.ReplaceItemValue("Status","Bitte")
      Call doc.Save(True,True)

'und fertig.

call ws.ViewRefresh

End sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete