OpenOffice.info

Hallo,

ich habe hier eine MySQL Datenbank in Base eingebunden. Es besteht ein Formular zur Dateneingabe und zusätzlich zahlreiche Abfragen und Berichte.

Nun möchte ich auf dem Formular der Dateneingabe/-ausgabe Schaltflächen erstellen über die es möglich ist per click entspr. Abfragen und Berichte aufzurufen.
Da werde ich wohl um Programmierkenntnisse nicht drum rum kommen, oder?

Gibt es evt. schon fertige Macros, die ich hier einbinden kann? Bislang habe ich leider keine gefunden und wäre für jeden Hinweis dankbar.

Gruß,
TopCop

Jetzt muß ich mir doch glatt selber antworten ....

Nach vielen Suchanfragen und googeln hab ich nun entspr. Makros gefunden. Meine Belange kann ich damit erfüllen.


TopCop

Bitte: stelle einen entsprechenden Codeausschnitt hier zur Verfügung, damit ein kommender Suchender dann auch hier eine Antwort findet; Danke!

Hi Winfried,

aber gern doch.

Hier das erforderliche Makro um über eine Schaltfläche aus einem Formular einen Bericht aufzurufen:

------------
sub ClickBericht_oefnnen
Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim ReportDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim ReportName As String

ReportName = "Name_des_Berichts"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("Name_der_Datenbank")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
ReportDoc=DB.DatabaseDocument.ReportDocuments.loadComponentFromURL(ReportName,"_self",2,Args) REM << BASIC-Laufzeitfehler.
ReportDoc.CurrentController.Frame.ContainerWindow.setFocus()
End Sub
------------


Gruß,
TopCop