Hallo liebe Gemeinde,
ich würde gerne ein Array in einem Dokument speichern. Hintergrund ist, dass eine relativ Umfangreiche Auswertung gefahren wird, die den Client sonst 1 Stunde lahmlegt. Diese Auswertung soll auf den Server geschoben werden, so dass dieser nachts in Ruhe die Auswertung fahren kann und der User morgens nur noch "Exportiere nach Excel" drücken muss. Dazu muss dieses Array ja irgendwo geparkt werden.
Ich habe bereits hier im Forum gesucht und gefunden, dass ich ein Array über notesitem in ein Dokument speichern kann, wenn ich das allerdings versuche, erscheint der Fehler:
Fehler 4078 - Could not create field
Bisher liegt die Code für die Auswertung in einer Scribtlb, da ich erstmal nur die Sache mit dem Speichern eines Arrays in einem Dokument schaffen will. Alternativ hatte ich auch die Funktion direkt in das New Notesitem(....,Jahresabschluss()) geschrieben, hier gab der Funktionsaufruf das Array as Variant zurück. Hat aber auch nicht funktionert.
Die Dimension des Arrays ist im Bereich (1-11000,1-5,0-1).
Sub Click(Source As Button)
On Error Goto Fehlermeldung
Dim ws As New Notesuiworkspace
Dim uidoc As Notesuidocument
Dim frontdoc As NotesDocument
Set uidoc = ws.CurrentDocument
Set frontdoc = uidoc.Document
Dim notesitem As Notesitem
Dim FehlerNExcel () As String
Call Jahresabschluss (FehlerNExcel)
Set notesitem = New Notesitem(frontdoc,"Abschluss", FehlerNExcel) ' Diese Zeile gibt den Fehler aus
Call frontdoc.Save(1,1)
Exit Sub ' Wichtig, sonst gibt es immer ne Fehlermeldung mit Zeile 0 etc.
Fehlermeldung:
Msgbox "Fehler " + Cstr(Err) + ": " + Error() + " in Zeile " + Cstr(Erl) + "aufgetreten(Jahreswechsel-Button) "
Exit Sub
End Sub
Thorsten