Re: Base beenden. CloseVetoException
Verfasst: Sa, 26.01.2013 12:27
deutsches Forum rund um Apache OpenOffice und LibreOffice
http://de.openoffice.info/
Und würdest Du uns auch mitteilen, wieso?PeterP hat geschrieben:hat sich erledigt
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