Makro per Makro beenden
Verfasst: Mi, 18.04.2012 13:35
Hallo,
habe ein Makro erzeugt, das bei Start der ODB automatisch ein Formular aufruft. Das soll auch gern so bleiben. Das Problem dabei ist, dass mit dem Beenden der ODB die Lock-Datei erhalten bleibt und die ODB somit nicht "vollständig" beendet ist. Kopieren/ Verschieben/ Umbennen etc. ist dadurch nicht möglich. Ist das Makro nicht aktiviert, bleibt die Lock auch nicht erhalten...
Gibt es eine Möglichkeit per Makro das Aufrufen-Makro zu beenden und damit auch das Schließen der Lock-Datei zu ermöglichen? Anbei mal das Aufrufen-Makro:
Vielen Dank!
habe ein Makro erzeugt, das bei Start der ODB automatisch ein Formular aufruft. Das soll auch gern so bleiben. Das Problem dabei ist, dass mit dem Beenden der ODB die Lock-Datei erhalten bleibt und die ODB somit nicht "vollständig" beendet ist. Kopieren/ Verschieben/ Umbennen etc. ist dadurch nicht möglich. Ist das Makro nicht aktiviert, bleibt die Lock auch nicht erhalten...
Gibt es eine Möglichkeit per Makro das Aufrufen-Makro zu beenden und damit auch das Schließen der Lock-Datei zu ermöglichen? Anbei mal das Aufrufen-Makro:
Code: Alles auswählen
REM ***** BASIC *****
sub open_form
DIM DatabaseContext AS OBJECT
DIM Datenquelle AS OBJECT
DIM Verbindung AS OBJECT
Dim oParms(1) As New com.sun.star.beans.PropertyValue
oCon = ThisDatabaseDocument.CurrentController
If NOT ( oCon.isConnected() ) Then oCon.connect()
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
Datenquelle = DatabaseContext.getByName(ThisDatabaseDocument.getLocation())
Verbindung = Datenquelle.GetConnection("","")
oDoc = ThisComponent.getformdocuments.getbyname("Startseite")
if not isnull (oDoc.getComponent) then
odoc.open
else
oDocname=oDoc.name
oParms(0).name="OpenMode"
oParms(0).value="open"
oParms(1).name="ActiveConnection"
oParms(1).value=Verbindung
oFormDocs=ThisComponent.FormDocuments
oFormDocs.loadComponentFromURL(oDocname, "", 0, oParms())
endif
end sub