Domino 9 und frühere Versionen > ND7: Entwicklung

Massenänderung Script-Problem

<< < (4/7) > >>

Driri:
Mir fällt gerade noch etwas auf:


--- Zitat ---MsgBox var ,MB_OK , Historie

--- Ende Zitat ---

Der dritte Parameter ist ein String. Wenn Du das so übergibst, würde versucht, der Inhalt einer Variablen "Historie" als Titel für die Messagebox auszugeben.

Ich gehe davon aus, daß Du aber das Wort "Historie" als Titel haben willst. Dann müßtest Du das in Anführungszeichen setzen.

gismored:
hallo ingo,

vielen dank für die hilfe.
das klappt jetzt auch .

im debugger seh ich jetzt bei der var alle einträge aus der historie.

wie kann ich nun erreichen, dass die variable in das feld "historie" wieder nach meinem eintrag:
doc.Historie = "wurde geändert von "+session.CommonUserName + " am " +Now +Chr(13)
wieder hinzugefügt wird?

gruß thomas

anbei das ganze script:

Sub Initialize
   Dim session As New NotesSession   
   Dim db As NotesDatabase         
   Dim doc As NotesDocument         
   Dim coll As NotesDocumentCollection 
   Set db=Session.CurrentDatabase       
   Set coll=db.UnprocessedDocuments     
   Dim rt As NotesItem
   Dim var As Variant
   If coll.count>0 Then                             
      For Count = 1 To coll.Count             
         Set doc=Coll.GetNthDocument(Count) 
         Set rt = doc.GetFirstItem("Historie")
         var = Split(rt.Text, Chr(13) +Chr(10))
         doc.Lagerort = "MSC"
         doc.Status = "im MSC"
         doc.Historie = "wurde geändert von "+session.CommonUserName + " am " +Now +Chr(13)
         Call doc.Save (True, False)               
      Next                                 
   End If
End Sub

Tode:
ersetze

--- Code: ---doc.Historie = "wurde geändert von "+session.CommonUserName + " am " +Now +Chr(13)
--- Ende Code ---
durch

--- Code: ---Dim itemHistorie as NotesItem
...
For ...
    Set itemHistorie = doc.GetFirstItem( "Historie" )
    Call itemHistorie.AppendToTextList( "wurde geändert von "+session.CommonUserName + " am " +Now +Chr(13) )
--- Ende Code ---

gismored:
hallo torsten

es funktioniert. ich danke dir.

das bedeutet aber dass alles mit split und so viel zu viel aufwand gewesen wäre.

aber ich möchte ja was lernen.
wenn ich mit der split aktion weiter gemacht hätte,
gäbe es eine andere variante, wie ich die variable hinzugefügt bekommen hätte,
denn ich hatte immer wieder das problem dass var nicht string sein konnte wegen dem inhalt
aber mein rtf string gebraucht hätte damit ich es mit "+var" in meine zeile bekommen hätte.
oder lieg ich da falsch ?

gruß thomas

gismored:
hmmm.

warum funktioniert es heute morgen nicht mehr?
gestern hat es einwandfrei geklappt:
es kommt immer wieder object variable not set
Sub Initialize
   Dim session As New NotesSession   
   Dim db As NotesDatabase         
   Dim doc As NotesDocument         
   Dim coll As NotesDocumentCollection 
   Set db=Session.CurrentDatabase       
   Set coll=db.UnprocessedDocuments     
   Dim itemHistorie As NotesItem
   If coll.count>0 Then                             
      For Count = 1 To coll.Count             
         Set doc=Coll.GetNthDocument(Count) 
         doc.Lagerort = "MSC"
         doc.Status = "im MSC"
         Set itemHistorie = doc.GetFirstItem( "Historie" )
         Call itemHistorie.AppendToTextList( "wurde geändert von "+session.CommonUserName + " am " +Now +Chr(13) )
         Call doc.Save (True, False)               
      Next                                 
   End If
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete