Embedded view

Hallo!

Ich habe ein Formular (Firma) mit einem embedded view, in dem Mitarbeiter dargestellt werden sollen, die zu dieser Firma gehören. Dem view habe ich einen Button gegeben, mit dem man einen neuen Mitarbeiter anlegen kann. Damit die Zuordnung klappt, bekommt dieser Mitarbeiter die UniversalID der Firma. Wenn ich den Button das erste Mal drücke, wird ein neues Dokument für den Mitarbeiter angelegt und angezeigt. Das kann ich editieren und wieder schließen, dann wird der embedded view aktualisert. Beim zweiten Drücken des Buttons erscheint die Meldung "Object variable not set".

Der Code des Buttons:

Sub Click(Source As Button)
	Dim w As New NotesUIWorkspace
	Dim parentUI As NotesUIDocument
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument

	Set parentUI = w.CurrentDocument
	Set db = session.CurrentDatabase
	Set doc = db.CreateDocument
	doc.Mitarbeiter_Firma_UNID = parentUI.document.UniversalID	

	Call w.EditDocument(True, doc)
End Sub

Der Debugger funktioniert an dieser Stelle leider nicht. Ich nehme aber an, daß wenn ich den ersten Mitarbeiter öffne, editiere und wieder schließe, auch das UIDocument irgendwie geschlossen wird. Also ist im code das parentUI = nothing, obwohl ich dann im ursprünglichen Dokument (Firma mit embedded view) stehe.

Weiß jemand Rat?

Ich habs mit Messageboxen gemacht und es passiert nach

Set parentUI = w.CurrentDocument

danach ist parentUI = nothing und dann geht natürlich die Zeile:

doc.Mitarbeiter_Firma_UNID = parentUI.document.UniversalID

schief. Aber warum ist parentUI = nothing?

Danke für die Tips, Jungs!

Aber jetzt ist erstmal Wochenende, am Montag geht' dann weiter!

@Axel: Nordbadische Spargelmetropole? Das kann ja nur Schwetzingen sein! Schon mal was vom Munzinger Spargel gehört? Da spielt die Musik! In Südbaden!