[Solved] Finish a Loop when closing form (window)

[dvd251996]

This should be really easy but I can't find it out. Im trying to do a loop for saving the form records(on a base) every minute. Which works but when I close the form the macro keeps running and eventually returns a unwanted error because form is no longer open:

BASIC runtime error.
An exception occurred
Type: com.sun.star.lang.DisposedException
Message: Frame disposed.

This is my macro

Code: Select all

Sub Save_loop
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

   Do While '???Window is open
       dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
       wait 60000
   Loop
End Sub

What can I put on the While/Until for not returning this error?

[UnklDonald418]

Where are you storing the macro?
I stored it in the document and in my tests the macro stopped when the document was closed.

Instead of the macro why not set Tools>Options>Load/Save>General Save AutoRecovery information every ... to 1 minutes?

[dvd251996]

Im storing the macro at the document, and I also tried in My macros and got same error. The error comes when I close the window of the form, not the document.

And the option of AutoRecovery doesn't seem to work to me. Im not sure why, but probably because I have the tables in a external base and that option only saves the document.

[UnklDonald418]

Try adding an error handler
Near the beginning of the macro something like

Code: Select all

On Error GoTo Error1

then after the Loop statement, just before End Sub add

Code: Select all

Error1: Exit Sub

[dvd251996]

That works like a charm. Thank you a lot!