[SOLVED] CloseVetoException

[Jjs2060]

I get an error from the following sub: Basic runtime error: an exception occurred. Type: com.sun.star.util.CloseVetoException. What's the problem.
Thanks for the help. Here is the sub:

dim oDoc as object
oDoc = ThisComponent
If hasUNOInterfaces(oDoc,"com.sun.star.util.XCloseable") then
oDoc.close(true)
else
oDoc.dispose()
End If

End Sub

[MTP]

It's a bad idea for a document to try to close itself. If your macro opens an "outside" document then it can close this outside document without any effect on the document the macro is "running out of" and that's fine. Or you can run script from outside of OpenOffice that opens and closes OpenOffice documents. But if a macro is running from inside a document and tries to close that document, you get a chicken-and-egg problem: the document can't close until the macro finishes running, and the macro can't finish running until the document is closed.

[Jjs2060]

Thanks for your direction. I'll throw a different path.

[B Marcelly]

It's a bad idea for a document to try to close itself.

It depends. You must have nothing pending when you close.

A case that comes to my mind : if your macro works in a dialog, you cannot close the document since the dialog is not yet closed. Close the dialog first, then close the document.
Another case : you have started a printout and you try to close before it is finished.

[Jjs2060]

This macro is triggered from a button on a form. I'm done with the form an want to close it. What's creating the error?

[B Marcelly]

.odb documents are special beasts...

How to close the current form from the button, but keep the Base document open :

Code: Select all

Sub closeThisForm
StarDesktop.CurrentFrame.close(True)
End Sub

How to close the form and close the Base document :

Code: Select all

Sub closeFormAndBase
ThisDatabaseDocument.close(True)
End Sub

[Jjs2060]

Thanks sooooooooo much.