Call doc.FieldAppendText in script einbinden

[seerow]

Hallo,

kurze Frage, ich habe vor einiger Zeit mal in diesen Forum ein tolles script gefunden,
welches ein Feld über die Ansicht mit einen Wert aus einer Picklist füllte.
Leider wird der Wert bei einen erneuten update überschrieben. Könnte man das mit der "Call doc.FieldAppendText"
Formel verhindern?

Code

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim picklist As Variant
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   picklist = workspace.Pickliststrings(3, False,db.Server,db.FilePath,"sw_update", "Titel", "Eingabeaufforderung", 1)
   
   Set doc = collection.GetFirstDocument
   While Not (doc Is Nothing)
      doc.sw_update_history = picklist
      Call doc.Save(True,False)
      Set doc = collection.GetNextDocument(doc)
   Wend
End Sub

[Glombi]

Das geht nicht, da es eine Metode für ein NotesUIDocument ist.
Du kannst aber aus dem Feld eine Mehrfachwert machen und dann mit

Dim item as NotesItem
... ... ...
Set item = doc.GetFirstItem( "sw_update_history" )
Call item.AppendToTextList( picklist )

arbeiten.

Andreas

[seerow]

prima, hat gefunkst...

Danke

[seerow]

Also ich glaube ich spinn......

Jetzt habe ich den code von meiner Entwicklungs DB in die produktions DB übernommen, und jetzt bringt es die Fehlermeldung

"Object Variable not exist"

[seerow]

upps code vergessen ...

Code

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim picklist As Variant
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   picklist = workspace.Pickliststrings(3, False,db.Server,db.FilePath,"sw_update", "Titel", "Eingabeaufforderung", 1)
   
   Set doc = collection.GetFirstDocument
   While Not (doc Is Nothing)
      
      
      Set item = doc.GetFirstItem( "update" )
      Call item.AppendToTextList( picklist )
      
      Call doc.Save(True,False)
      Set doc = collection.GetNextDocument(doc)
   Wend
End Sub

[Glombi]

Dim item as NotesItem

fehlt

[Semeaphoros]

Schuss in den Nebel, Du schreibst nicht, in welcher Zeile der Fehler auftritt (der wahrscheinlich Object Variable Not Set heisst).

Vermutlich gibt es nicht in jedem Doc das Item "update" und dann bleibt die Variable "item" tatsächlich leer

[Glombi]

Ja er hat es ja nicht dimensioniert, daher der Fehler. Es gehörte zum neuen Programmcode, den ich gepostet hatte. Daher stach es gleich ins Auge (Aua).

Andreas

[seerow]

Hallo,

naja ich habe noch einmal etwas getestet, er bringt die FM weil das Feld beim ersten feldupdate leer ist.
Kann man das irgendwie umgehen.

[Glombi]

Das geht so:

if not doc.HasItem("update") then
 set item = doc.ReplaceItemValue("update",picklist)
else
 Set item = doc.GetFirstItem( "update" )
 Call item.AppendToTextList( picklist )
end if      

Andreas

[seerow]

danke, funktioniert Prima