Domino 9 und frühere Versionen > ND7: Entwicklung

Postopen-Event startet mit einer Fehlermeldung

(1/1)

Dubidu:
Hallo,
ich habe eine Form ohne Items erstellt und folgendes Code-Beispiel bei dem Event Postopen hinzugefügt:


--- Code: ---Sub Postopen(Source As Notesuidocument)
On Error Goto EH

Dim ns As New NotesSession
Dim ws As New NotesUIWorkspace

Dim note As NotesDocument
Dim theDate As New NotesDateTime( Now )
Set Source = ws.CurrentDocument

If Source.IsNewDoc Then
'setting the name and nate fields to the users' name and the current date/time
note.name = ns.UserName' Hier taucht die Fehlermeldung auf
Set note.date = theDate' Hier ebenfalls, wenn ich note.name auskommentiere
Source.Reload
End If

PE: Exit Sub
EH: Call raiseError("", Err, Error$, Erl)
End Sub
--- Ende Code ---

Es kommt dann folgende Fehlermeldung:


--- Zitat ---Object variable not set
=> Postopen 13
--- Ende Zitat ---

Weiß jemand weiter?

Liebe Grüße
Giordano

botschi:
Du deklarierst "note", weist der Variable aber nix zu...
Postopen 13 ist die Zeile.

Matthias

MadMetzger:
Du hast die Variable note gar nicht initialisiert, daher kommt die Fehlermeldung. Tausch mal

--- Code: ---Set Source = ws.CurrentDocument

--- Ende Code ---
durch

--- Code: ---set note = Source.Document

--- Ende Code ---
aus.

Source brauchst du an der Stelle nicht zu setzen, da das von Notes her schon mit initialisiert wurde. Dir fehlt die Initialisierung des Backend-Dokuments, an dem du was tun willst.

Dubidu:
Ach herrje!
Das hatte ich wirklich übersehen! Tut mir Leid für die Umstände! :(

Liebe Grüße
Giordano

Navigation

[0] Themen-Index