Hallo Bernhard,
danke für die Antwort. :)
Komisch dann komme ich aber trotzdem nicht weiter und kenne den Grund nicht.
Folgender Code soll im PostOpen (die Felder kann ich mit dem Debugger sehen, zwar leer aber sie sind da) das Feld n_exist_call_number befüllen. Das Feld n_exist_call_number ist ein Computed Feld und als Number vom Typ.
Und trotzdem wird am Ende, bei AppendItemValue, das Item nicht gefüllt.
Ist mein Code falsch oder was mache ich falsch?
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim v As NotesView
Dim item As NotesItem
Dim number_call As Integer
Set db = s.CurrentDatabase
Set v = db.GetView("($exist_Call_Nr)")
If v.EntryCount <> 0 Then
Set doc = v.GetLastDocument
Set item = doc.GetFirstItem("n_exist_call_number")
number_call = Cint(item.Text)
Call Source.Document.AppendItemValue("n_exist_call_number", number_call)
Else
number_call = 1
Call Source.Document.AppendItemValue("n_exist_call_number", number_call)
End If
Wenn ich das Event PostOpen gucke in einem Form, da steht doch ganz klar:
Sub Postopen(Source As Notesuidocument)
Ist das nicht NotesUIDocument????
Ich verstehe das gerade nicht. ??? :)
Nein, ich bin jetzt nur verwirrt... :-[
Mit diesem Befehl:
Call Source.Document.AppendItemValue("n_exist_call_number", number_call)
spreche ich doch das UIDocument an, oder? Also nach meinem Verständnis, das gerade geöffnete. Weil im Post Open, wo der Code steht Source As NotesuiDocument deklariert ist.
Und vorher habe ich dann doc as NotesDocument deklariert, das mag ja sein, aber da will ich mir ja im Hintergrund Werte aus einem Dokuemnt holen... !?!?!?