Domino 9 und frühere Versionen > ND6: Entwicklung

Felder setzen

<< < (5/6) > >>

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! :(

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete