Felder setzen

[TripleH]

Tach auch,
Ich schon wieder, ich sitz gerade davor und habe deinen Tip gleich getestet. Allerdings hatte ich dabei eine Fehlermeldung:

           Angebot: Queryopendocument: 16: not a sub function name: WS

Was will der Rechner mir damit sagen??

mfG Robi !!

[Glombi]

Du hast an das

dim ws as New NotesUIWorkspace

gedacht !?

[TripleH]

Oha ja danke. hab ich jetzt eingesetzt, aber er aktualisiert immer noch nicht automatisch. nur wenn ich mit f9 aktualisiere. ich krieg hier gleich nen absturz!  

[Glombi]

Evtl. liegt das an der merkwürdigen Konstellation, dass das alles in der UI View ist.

Nächster Versuch:

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.

call Source.Refresh

End sub

[TripleH]

ich krieg immer den selben fehler: Angebot: Queryopendocument 17: Not a member: REFRESH
ich zeig dir mal den quellcode:

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
   
   Dim s As NotesSession              
   Set s = New NotesSession
   Dim db As notesdatabase
   Set db = s.CurrentDatabase
   Dim docs As NotesDocumentCollection
   Dim doc As NotesDocument
   Set docs = Source.Documents
   Set doc = docs.GetFirstDocument
   Dim ws As New NotesUIWorkspace
   
   
   Call doc.ReplaceItemValue("Status","bereit")
   Call doc.Save(True,True)
   Call ws.viewRefresh
   Call source.Refresh
End Sub

ich weiß nicht aber irgendwie bin ich zu dumm dafür!

[Glombi]

Sorry, in der Klasse NotesUIView gibt es gar kein Refresh - das haben die glatt bei IBM vergessen  

Also evtl. so:
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
   
   Dim s As NotesSession              
   Set s = New NotesSession
   Dim db As notesdatabase
   Set db = s.CurrentDatabase
dim view as NotesView
   Dim docs As NotesDocumentCollection
   Dim doc As NotesDocument
   Set docs = Source.Documents
   Set doc = docs.GetFirstDocument
   
   
   Call doc.ReplaceItemValue("Status","bereit")
   Call doc.Save(True,True)

set view = Source.View
   Call view.Refresh
End Sub

Ob sich das allerdings gleich auf die bereits geöffnete Ansicht auswirkt, weiß ich nicht.

Andreas

[Glombi]

oder

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
dim ws as New NotesUIWorkspace  
   Dim s As NotesSession              
   Set s = New NotesSession
   Dim db As notesdatabase
   Set db = s.CurrentDatabase
   Dim docs As NotesDocumentCollection
   Dim doc As NotesDocument
   Set docs = Source.Documents
   Set doc = docs.GetFirstDocument
   
   
   Call doc.ReplaceItemValue("Status","bereit")
   Call doc.Save(True,True)

   Call ws.ViewRebuild
End Sub

[koehlerbv]

NotesUIWorkspace.ViewRefresh heisst die erforderliche Methode ;-)

Bernhard

[Glombi]

NotesUIWorkspace.ViewRefresh heisst die erforderliche Methode ;-)

Hi Bernhard,
das hatten wir schon - laut TripleH stürzt Notes dabei ab...

Andreas

[animate]

ich zitiere nochmal mich:

Du könntest versuchen, die ComputeWithForm-Methode deines Document-Objekts aufzurufen, bevor du es speicherst, vielleicht ändert das was an dem Verhalten.

hat bei mir in einem ähnlichen Fall funktioniert.