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
Alles anzeigen
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?