Base beenden. CloseVetoException

[DPunch]

Servus

Siehe dazu:
Bericht reload aus Makro heraus

[F3K Total]

hat sich erledigt

Und würdest Du uns auch mitteilen, wieso?
R

[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

[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