OpenOffice.info

Weiss irgendwer, wie man das Konfigurationswindow vom Switchboard benutzen kann, wenn man die Icons nicht sieht ??

Martin

Herzlichen Dank für die schnelle Antwort. Das sieht gut aus, ich werde es ausprobieren - mir scheint, ich sollte erst mal mehr mit den Makros machen, bevor ich hier allen auf die Nerven gehe :-)

VG

Martin

p.s.: Was muss ich tun, um den Konfigurationswizward aufzurufen ?

Sub openFormWithButtonName( oEvent ) 
 
' ANPASSEN !
sDatenbank = "hsqldb" ' registrierter Datenbankname
 
 
sFormName_Open = oEvent.Source.Model.Label ' Beschriftung der Schaltfläche
 
'
oDBContext = createUnoService( "com.sun.star.sdb.DatabaseContext" )
oDatenbank = oDBContext.getByName( sDatenbank )
oDatenbankDok = oDatenbank.DatabaseDocument
 
oConnection = oEvent.Source.getModel().getParent().ActiveConnection
dim aOpenArgs(1) as new com.sun.star.beans.PropertyValue
aOpenArgs(0).Name = "OpenMode"
aOpenArgs(0).Value = "open"
aOpenArgs(1).Name = "ActiveConnection"
aOpenArgs(1).Value = oConnection
 
oDatenbankDok.FormDocuments.loadComponentFromURL( sFormName_Open, "_blank", 0, aOpenArgs() )
 
 
End Sub

Vielleicht hilft Dir das weiter:

[url=http://extensions.services.openoffice.org/de/project/SwitchBoard]Extension: Switchboard[/url]
[url=http://baseprogramming.com/Extensions/SwitchboardEXtensionManual.pdf]Tutorial/Handbuch dazu[/url]


Oder eine Makro-Lösung: Wechseln zum Formular gleichen Namens wie die Schaltfläche
[code]Sub openFormWithButtonName( oEvent )

' ANPASSEN !
sDatenbank = "hsqldb" ' registrierter Datenbankname


sFormName_Open = oEvent.Source.Model.Label ' Beschriftung der Schaltfläche

'
oDBContext = createUnoService( "com.sun.star.sdb.DatabaseContext" )
oDatenbank = oDBContext.getByName( sDatenbank )
oDatenbankDok = oDatenbank.DatabaseDocument

oConnection = oEvent.Source.getModel().getParent().ActiveConnection
dim aOpenArgs(1) as new com.sun.star.beans.PropertyValue
aOpenArgs(0).Name = "OpenMode"
aOpenArgs(0).Value = "open"
aOpenArgs(1).Name = "ActiveConnection"
aOpenArgs(1).Value = oConnection

oDatenbankDok.FormDocuments.loadComponentFromURL( sFormName_Open, "_blank", 0, aOpenArgs() )


End Sub[/code]
Quelle: [url=http://www.lo-portal.de/forum/21-Base/190-Button-mit-funktion-hinterlegen.html]Original-Posting[/url]

Hallo Leute,

ich habe eine Datenbank mit später ca. 20 Tabellen. Jetzt suche ich eine Möglichkeit, den zugriff darauf zu steuern, d. h. eine Art Steuer-Formular zu erstellen, von dem aus ich die weiteren Formulare (z. B. zur Erfassung neuer Datensätze) aufrufen kann. Eine Button-Aktion scheint es hierfür nicht zu geben, wie kann ich das realisieren? Gibt es evtl. auch Pull-Down-Menutes für Formulare ?

VG

Martin