Hallo
Ich möchte per Button ein weiteres Formular aus einem bestehenden heraus aufrufen. Dies habe ich mit folgendem Makro versucht:
...Schnipp.....
Sub Formular_aufrufen
dim sFormularName as string
dim aFormulare()
dim oDatenbank as object, oVerb as object
dim arg(1) as New com.sun.star.beans.ProbertyValue
sFormularName = "Kundenumsatz"
oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDatenbank = oContext.getByName(StarDesktop.CurrentComponent.getParent.getLocation())
oVerb = oDatenbank.getConnection("","")
arg(0).Name = "OpenMode"
arg(0).Value = "open"
arg(1).Name = "ActiveConnection"
arg(1).Value = oVerb
StarDesktop.CurrentComponent.getParent.getFromDocuments().loadComponentFromURL(sFormularName, "", 0, Arg())
End Sub
..Schnapp...
Es ist wie einige evtl merken aus dem Buchen "Datenbanken mit OpenOffice.org 3" Seite 380 von Herrn Krumbein
Naja, es geht net so einfach... Ich bekomme die Fehlermeldung "Kein Zugriff auf Object.Ungültige Objectreferenz" und die Zeile wird markiert: "dim arg(1) as New com.sun.star.beans.ProbertyValue"
Bestimmt habe ich etwas übersehen beim Einrichten meiner Datenbank und freue mich über jede Hilfe.
Viele Grüße
Kaffeetasse