I’m developing an ongoing split database application with OSX 10.10.5 with LO Version: 184.108.40.206
I want to give my users a clean exit from the application AND importantly from LO. Currently I’m using this macro actioned from a push button on switchboard form:
public sub sbTerminate dim nf As Integer dim oCollection As Object dim StarDesktop as object 'close all open forms Set oCollection = Application.Forms() For nf = 0 To oCollection.Count-1 Application.Forms(nf).mclose() Next nf ' close the database call DBClose ' now close the application Application.Quit end sub
However I see this ABORT message when it runs
Error #1501 (No active connection to a
database found) occurred in a call to
My question is what do I need to do to my macro to achieve my objective?
N.B. I would prefer NOT to have to kill any LO process by shelling out to the underlying system since the application is designed to be platform independent.
I have tried the macro without the call DbClose statement BUT I cannot guarantee that the application does a clean re-startup every time. Sometimes it does and sometimes it has to recover the database, which is an unnecessary worry for my mainly non-IT users.
Thanks JPL to answer your questions DBCLOSE is a routine to close a SPLIT database
I’ve taken your advice and experimented with my routine and it now looks like this
public sub sbTerminate ' terminate the database gracefully dim nf As Integer dim i as integer dim fnames() as string dim oCollection As Object dim closingMsg as string ' set up error trapping & call stack tracking on error goto sbTerminate_Error call acbPushStack("sbTerminate") ' close all recordsets closingMsg="closing the recordsets" Application.Currentdb().CloseAllRecordsets() ' close all OPEN forms closingMsg="closing the open forms" Set oCollection = Application.Forms() nf=oCollection.Count if nf<>0 then ' get the names ' n.b.looping through Application.Forms(i).mclose() ' DOES NOT work if there is more than 1 form ' because the count & index references change ' each time Application.Forms is called within the loop ' so have to reference forms by NAME to close. redim fnames(nf-1) For i = 0 To nf-1 fnames(i)=Application.Forms(i).Name Next i ' close all forms for i=0 to nf-1 Application.Forms(fnames(i)).mclose() next i endif ' shutdown & compact the database closingMsg="shutting down & compacting the database" DoCmd.RunSQL("SHUTDOWN COMPACT") ' disabled closing the database connection ' becase this gives problems with Application.Quit ' closingMsg="closing the database connection" ' call DBClose ' finally quit the application sbTerminate_Exit: call acbPopStack call QuitApplication exit sub sbTerminate_Error: call ErrorReport("Problem with " & closingMsg) resume sbTerminate_Exit: end sub sub QuitApplication ' currently this quits the Base ' application it does NOT ' shutdown LibreOffice Application.Quit end sub
To explain: the acb… calls are to my stack tracing & error logging routines. I’ve deliberately separated out the problem of terminating LibreOffice into another routine because I’ve realised want to do five things:
- close down any open record sets and any open forms
- shut down the database
- close the connection to the database
- close down BASE
- shutdown LibreOffice
sbTerminate does 1 & 2 - if I try and do 3 (the logical thing to do) it interferes with 4 - because 4 tries to do it as well and fails. That’s why 3 is commented out. I’ve discovered then that 4 (QuitApplication) works. I separated it out into another routine because in an emergency (like the application trapping more than 2 errors) I want to just stop everything at once.
However I’m still left with the problem of 5, essentially wanting to do the key strokes [cmd-Q] with a macro.
The sequence I now have works except that the user is left with LO open AND if they attempt to restart the application it complains about a database connection problem. If the user shuts down LO manually and then restarts everything is OK.