ich habe folgende Problemstellung:
Ich rufe aus einem Formular 1 per Button und Makro ein Formular 2 auf. Dort wähle ich einen Datensatz aus, welcher dann per Makro in die zugehörigen Spalten der Tabelle von Formular 1 kopiert wird. Das Funktioniert aus prima. Nach dem Kopieren wird Formular 2 mit folgendem Code geschlossen:
Code: Alles auswählen
Dim oDoc As Object
Dim oDispatch As Object
oThisComponent.Parent.store() ' Save Data
oDoc = oThisComponent.CurrentController.Frame
oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
oDispatch.executeDispatch(oDoc, ".uno:CloseDoc", "", 0, Array())
Das habe ich mit folgendem code leider erfolglos versucht:
Code: Alles auswählen
ThisDatabaseDocument.formdocuments.getbyname("Data").getbyname("Basic Data").open
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms.getByName("Filter").getByName("Basic_Data")
oForm.reload()
Code: Alles auswählen
oForm = oDrawpage.Forms.getByName("Filter").getByName("Basic_Data")
Kann mir hierbei jemand weiterhelfen?
Marko