Seite 1 von 1

Re: Base beenden. CloseVetoException

Verfasst: Sa, 26.01.2013 12:27
von DPunch

Re: Base beenden. CloseVetoException

Verfasst: Sa, 26.01.2013 15:51
von F3K Total
PeterP hat geschrieben:hat sich erledigt
Und würdest Du uns auch mitteilen, wieso?
R

Re: Base beenden. CloseVetoException

Verfasst: Sa, 26.01.2013 17:42
von F3K Total
Hi,
habe den Code gerade ausprobiert.
Wenn Du nur eine Base Datei geöffnet hast und diese dann aus dem Formular schliesst, schau mal in Deinen Task-Manager. Ich vermute da bleibt auch bei Dir ein soffice.bin und ein soffice.exe stehen?

Gruß R

Re: Base beenden. CloseVetoException

Verfasst: Sa, 26.01.2013 20:07
von F3K Total
Hi,
ich hatte auch schon geforscht, darum auch meine Nachfrage. Jetzt habe ich diesen Code:

Code: Alles auswählen

sub close_DB (event)
    oform = event.source.model.parent
    oconnection = oform.activeconnection
    sqlStatement = oconnection.createstatement
    ssql = "Shutdown Compact"
    sqlStatement.execute(SSql)
    ocomponent = stardesktop.currentcomponent.parent'Databasedocument ist .parent von Formulardokument
    with ocomponent
        if .isModified then .store
        .close(true)
    end with
    ocomponentsenumeration = stardesktop.components.createenumeration
    if ocomponentsenumeration.hasmoreelements = false then stardesktop.terminate' nix weiter offen
end sub
Er darf nicht dem Dokument zugeordnet sein, sondern muß unter "meine Makros" stehen.
Ausgelöst von einem Button auf einem Formular der Datenbank.

Funzt.

Gruß R