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 = "Berichtname"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("Datenbankname")
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
Code in einen Makro einfügen
anschließend Berichtname ändern und den Datenbankname
speichern,
anschließend Formularordner in Datenbanköffnen Schaltfläsche einfügen , rechter Mausklick, Ruprik Kontrollfeld öffen , dann Ereignisse anklicken, und Maustaste gedrück aussuchen .... anklicken und dann das Markoauswählen für bericht_öffnen, speichern gruss whoopy 84
