ich sitz mal wieder einem Problem für Doofe:
der Code unten läuft in einer Webapplikation und bricht immer bei
'Set itemTree = testDoc.ReplaceItemValue( fieldName, Tree0 )'
Was mache ich da falsch?
Alle Werte sind belegt, ich bin gerade (wieder einmal) ratlos
Dim Tree0 As String
Dim Tree1 As String
Dim testdoc As NotesDocument ' für schleife
Dim fieldCounter As Integer ' für Feldbenamsung
Dim itemTree As notesItem
Dim fieldName As String
Tree0 = ""
Tree1 = ""
fieldCounter = 0
While Len(tree)> 30000
Tree0 = Left(tree, 30000)
tree = Mid(tree,30000)
Set testdoc = projectDC.GetFirstDocument 'wird weiter oben deklariert
dbg Cstr(projectDC.Count)
While Not testDoc Is Nothing
dbg "tree" & fieldCounter
dbg Len(tree0)
fieldName = "tree" & fieldCounter
dbg fieldName
Set itemTree = testDoc.ReplaceItemValue( fieldName, Tree0 )
dbg " hinter itemTree"
testDoc.Save False,False
Set testDoc = projectDC.GetNextDocument(testDoc)
Wend
fieldCounter= fieldCounter + 1
Wend