OpenOffice.info

klar,
wenn man die Meldung beim Öffnen der DB nicht liest, kommt das dabei raus.
Vielen Dank für Deine Mühen und Geduld.
Manni

Hallo Manni,

hast Du vielleicht die Ausführung von Makros unterbunden? Wenn sich gar nichts tut, dann dürfte das der Fall sein.
Extras > Optionen > ...Office > Sicherheit > Makrosicherheit > Mittel
... dann wirst Du gefragt, ob Du Makros ausführen lassen willst.
Ich habe da ein Verzeichnis angegeben, in dem die Dateien liegen, von denen die Makros immer ausgeführt werden dürfen. Dann entfällt die Nachfrage.

Ich nehme an, dass die Pfade von AOO und LO sich hier nicht unterscheiden. Wenn Du AOO benutzt musst Du sonst gegebenenfalls etwas suchen.

Gruß

Robert

Hallo, vielen Dank,
habe meinen Fehler verstanden!
Ich gehe davon aus, dass die Anwahl der Formulare bei Dir funktioniert.
Bei mir nicht.

Kann es sein, dass bei meinen oo noch irgend ein AddOn fehlt??

mfG
Manni

Hallo Manfred,

ich habe das einmal in Deine erste DB eingebaut. Schau Dir einmal an, was unter den Zusatzinformationen steht.

Gruß

Robert

Hallo Robert, Hallo R,
habe Roberts Makro eingebunden, in den Button bei Zusatzinformation den Formularnamen eingetragen und bei dem Ereigniss "Aktion ausführen" das Makro angegeben.
Ferner hab ich das Makro von R als Makro "Navigation2" eingebunden und ebenfalls die Zusatzinformation und "aktion ausführen" ergänzt mit dem Makro Navigation2.
Beides klappt nicht.
Mein Sohn meinte, von der Syntax der Makros müsste es klappen.
Muss ich bei den Eigenschaften der Schaltfläche / Allgemein / Action noch was eingeben/Auswählen ?

mfG
Manfred Bartsch

Hallo R.,

Danke, übernehme ich natürlich gleich für das Handbuch. Ich schaue mir nur noch einmal an, ob es unbedingt 5 Optionen sein müssen, mit denen das Array gefüttert wird.

Gruß

Robert

SUB Navigation(oEvent AS OBJECT)
	DIM stTag AS String
	stTag = oEvent.Source.Model.Tag
	aOpen() = Split(stTag, ",")
	SELECT CASE Trim(aOpen(0))
		CASE "form"
			ThisDatabaseDocument.FormDocuments.getByName(Trim(aOpen(1))).open
		CASE "report"
			ThisDatabaseDocument.ReportDocuments.getByName(Trim(aOpen(1))).open
		CASE "query"
		    nType = 1
		    Open_Table_Query_View(Trim(aOpen(1)),nType)
		CASE "table"
		    nType = 0
		    Open_Table_Query_View(Trim(aOpen(1)),nType)
	END SELECT	
END SUB

Sub Open_Table_Query_View(sName,nType)
    oController = ThisDatabasedocument.CurrentController
    if not oController.isconnected then oController.connect
    Dim URL as New com.sun.star.util.URL
    Dim Args(5) as New com.sun.star.beans.PropertyValue
    oConnetion = oController.ActiveConnection
    URL.Complete = ".component:DB/DataSourceBrowser"
    Dispatch = StarDesktop.queryDispatch(URL,"_Blank",8)
    Args(0).Name = "ActiveConnection" 
    Args(0).Value = oConnetion
    Args(1).Name = "CommandType"
    Args(1).Value = nType   '0=Table 1=SQL_Query 2=Command
    Args(2).Name = "Command"
    Args(2).Value = sName
    Args(3).Name = "ShowMenu"
    Args(3).Value = True
    Args(4).Name = "ShowTreeView"
    Args(4).Value = False
    Args(5).Name = "ShowTreeViewButton"
    Args(5).Value = False
    Dispatch.dispatch(URL, Args)
End Sub

Guten Morgen Robert[quote=RobertG post_id=267316 time=1484988535 user_id=47077]
Für Abfragen kann ich Dir nicht helfen.
[/quote]Anbei dein Code, etwas erweitert, und ein zusätzliches Makro. Damit kann man, ausgehend von der Zusatzinformation einer Schaltfläche auch Abfragen und Tabellen öffnen. Ansichten werden wie Tabellen behandelt, Beispiele für die Zusatzinformation:

[list][*]form,fMeinFormular
[*]report,rMeinBericht
[*]query,qMeineAbfrage
[*]table,tMeineTabelle
[*]table,vMeineAnsicht[/list]

[code]SUB Navigation(oEvent AS OBJECT)
DIM stTag AS String
stTag = oEvent.Source.Model.Tag
aOpen() = Split(stTag, ",")
SELECT CASE Trim(aOpen(0))
CASE "form"
ThisDatabaseDocument.FormDocuments.getByName(Trim(aOpen(1))).open
CASE "report"
ThisDatabaseDocument.ReportDocuments.getByName(Trim(aOpen(1))).open
CASE "query"
nType = 1
Open_Table_Query_View(Trim(aOpen(1)),nType)
CASE "table"
nType = 0
Open_Table_Query_View(Trim(aOpen(1)),nType)
END SELECT
END SUB

Sub Open_Table_Query_View(sName,nType)
oController = ThisDatabasedocument.CurrentController
if not oController.isconnected then oController.connect
Dim URL as New com.sun.star.util.URL
Dim Args(5) as New com.sun.star.beans.PropertyValue
oConnetion = oController.ActiveConnection
URL.Complete = ".component:DB/DataSourceBrowser"
Dispatch = StarDesktop.queryDispatch(URL,"_Blank",8)
Args(0).Name = "ActiveConnection"
Args(0).Value = oConnetion
Args(1).Name = "CommandType"
Args(1).Value = nType '0=Table 1=SQL_Query 2=Command
Args(2).Name = "Command"
Args(2).Value = sName
Args(3).Name = "ShowMenu"
Args(3).Value = True
Args(4).Name = "ShowTreeView"
Args(4).Value = False
Args(5).Name = "ShowTreeViewButton"
Args(5).Value = False
Dispatch.dispatch(URL, Args)
End Sub[/code]
Gruß R

SUB Navigation(oEvent AS OBJECT)
	DIM stTag AS String
	stTag = oEvent.Source.Model.Tag
	aOpen() = Split(stTag, ",")
	SELECT CASE Trim(aOpen(0))
		CASE "form"
			ThisDatabaseDocument.FormDocuments.getByName(Trim(aOpen(1))).open
		CASE "report"
			ThisDatabaseDocument.ReportDocuments.getByName(Trim(aOpen(1))).open
		CASE "query"
	END SELECT	
END SUB

Hallo Eupendiver,

ein Ansatz mit einem Makro:
[code]SUB Navigation(oEvent AS OBJECT)
DIM stTag AS String
stTag = oEvent.Source.Model.Tag
aOpen() = Split(stTag, ",")
SELECT CASE Trim(aOpen(0))
CASE "form"
ThisDatabaseDocument.FormDocuments.getByName(Trim(aOpen(1))).open
CASE "report"
ThisDatabaseDocument.ReportDocuments.getByName(Trim(aOpen(1))).open
CASE "query"
END SELECT
END SUB
[/code]
Du schreibst in jeden der Buttons in die Zusatzinformation form,Formularname bzw. report,Berichtsname. Das Makro startest Du über das Ereignis "Aktion ausführen" des jeweiligen Buttons.

Für Abfragen kann ich Dir nicht helfen. Das sind keine separaten Dokumente, die in dem Datenbankcontainer liegen. Die können also nicht so einfach geöffnet werden. Ich würde einfach die Abfragen als Tabellenkontrollfeld in Formulare packen.

Gruß

Robert

Hallo Zusammen,
ich möchte ein Formular haben, das als Hauptmenue dient und von dem ich auf verschiedene
Tabellen, Abfragen und Bericht per Button zugreifen kann.
(siehe Beispiel)[attachment=0]MenueTest.odb[/attachment]