Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Dubidu am 08.04.08 - 09:24:27

Titel: Postopen-Event startet mit einer Fehlermeldung
Beitrag von: Dubidu am 08.04.08 - 09:24:27

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

Es kommt dann folgende Fehlermeldung:

Zitat

Object variable not set
=> Postopen 13

Weiß jemand weiter?

Liebe Grüße
Giordano

Titel: Re: Postopen-Event startet mit einer Fehlermeldung
Beitrag von: botschi am 08.04.08 - 09:26:43

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

Matthias

Titel: Re: Postopen-Event startet mit einer Fehlermeldung
Beitrag von: MadMetzger am 08.04.08 - 09:28:39

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

Code

Set Source = ws.CurrentDocument

durch

Code

set note = Source.Document

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.

Titel: Re: Postopen-Event startet mit einer Fehlermeldung
Beitrag von: Dubidu am 08.04.08 - 09:48:04

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

Liebe Grüße
Giordano