OpenOffice.info

Aloha

[quote="paradigma"]Dass allerdings nicht zumindest eine Fehlermeldung kommt, wenn du das Makro ausführst, finde ich seltsam.[/quote]
Könnte darauf hindeuten, dass die Makrosicherheit zu hoch eingestellt ist, ansonsten wäre das tatsächlich kaum erklärbar.

Hallo

Anpassen musst du auf jeden Fall etwas.

In der Zeile sURL = ConvertToURL musst du den Pfad und den Namen der DB anpassen.

Dass allerdings nicht zumindest eine Fehlermeldung kommt, wenn du das Makro ausführst, finde ich seltsam. Evtl. musst du deine Datenbank noch in oo anmelden. Ich habe diesen Code jedoch noch nie getestet.

Wenns nicht klappt, such doch nochmals in diesem Forum. Ich bin mir sicher, dass es zu diesem Thema Beiträge mit konkreten Lösungen und Erklärungen hat.

Gruss
paradigma

Sub openBaseForm
   Dim pProp(1) As New com.sun.star.beans.PropertyValue
   sURL = ConvertToURL("/home/USERNAME/Documents/oo2/OpenOffice.odb")
   oDoc = starDesktop.loadComponentFromURL(sURL,"_blank",0,Array())
   oForms = oDoc.getFormDocuments()
   'oReps = oDoc.getReportDocuments() 
   oAConnection = oDoc.DataSource.getConnection("","")
   'set properties
   pProp(0).Name = "ActiveConnection"
   pProp(0).Value = oAConnection
   pProp(1).Name = "OpenMode"
   pProp(1).Value = "open" ' OR: openDesign
   ' load the form: TargetFrameName and SearchFlags aren't used
   oFormulario = oForms.loadComponentFromURL("Bereich","_blank",0,pProp())
End Sub 

Hallo Paradigma,

habe den Code

[code]Sub openBaseForm
Dim pProp(1) As New com.sun.star.beans.PropertyValue
sURL = ConvertToURL("/home/USERNAME/Documents/oo2/OpenOffice.odb")
oDoc = starDesktop.loadComponentFromURL(sURL,"_blank",0,Array())
oForms = oDoc.getFormDocuments()
'oReps = oDoc.getReportDocuments()
oAConnection = oDoc.DataSource.getConnection("","")
'set properties
pProp(0).Name = "ActiveConnection"
pProp(0).Value = oAConnection
pProp(1).Name = "OpenMode"
pProp(1).Value = "open" ' OR: openDesign
' load the form: TargetFrameName and SearchFlags aren't used
oFormulario = oForms.loadComponentFromURL("Bereich","_blank",0,pProp())
End Sub [/code]

als Makro eingefügt. Button bleibt aber ohne Funktion obwohl ich es unter "ausführen" eingefügt habe.
Muss ich am Code noch was anpassen?

Grüße

Hallo Marcel

[quote]Auf dem Formular Startseite sind 5 Buttons, einer für jedes Jahr.
Wenn ich nun auf 2008 klicke möchte ich, dass das Formular 2008 öffnet[/quote]

Ja, das ist möglich. Du benötigst dazu ein Makro, das du an ein Buttonereignis (ich glaube es heisst Ausführen) bindest. Schau mal unter folgendem Link:

[url]http://de.openoffice.info/viewtopic.php?f=8&t=13262&p=72979&hilit=button+formular[/url]

[quote]Hier soll es dann wieder einen Button "Startseite" geben, der zurück auf die Startseite führt[/quote]

Das geht sicher auch irgendwie, allerdings verstehe ich den Zweck davon nicht. Wenn du ein Formular von deiner Startseite öffnest, bleibt die Startseite auch geöffnet. Wenn du dann das geöffnete Formular wieder schliesst, dann bist du im prinzip automatisch wieder auf deiner Startseite.

Gruss
paradigma

Hallo,

ich habe mehrere Formulare
2007
2008
2009
2010
2011
und ein
Startseite

Auf dem Formular Startseite sind 5 Buttons, einer für jedes Jahr.
Wenn ich nun auf 2008 klicke möchte ich, dass das Formular 2008 öffnet
Hier soll es dann wieder einen Button "Startseite" geben, der zurück auf die Startseite führt

Ist so etwas machbar?

Grüße
Marcel