Chiusura con pulsante X

[Giove]

Ciao a tutti.
Ho notato che se chiudo il database con il pulsante X, la macro autoexec, alla riapertura del database non funziona.
Vorrei eliminare questo pulsante o fare in modo che se chiudo con pulsante X il database si chiuda in modo corretto.
Grazie

[charlie]

Ho notato che se chiudo il database con il pulsante X, la macro autoexec, alla riapertura del database non funziona.

In quale altro modo chiudi il database?

[Giove]

Lo chiudo con pulsante collegato a Macro.

Codice: Seleziona tutto

Sub escidaooo
If MsgBox (" Sei sicuro di voler terminare il lavoro? ", 17, "CHIUSURA DATABASE") = 2 then   '    
     EXIT Sub
   
End If  
oDoc = ThisDatabaseDocument
If (oDoc.isModified) Then
If (oDoc.hasLocation AND (Not oDoc.isReadOnly)) Then
oDoc.store()
Else
oDoc.setModified(False)
End If
End If
oDoc.close(True)

 REM  ThisComponent.CurrentController.Frame.close(True)
   REM ThisDatabaseDocument.close( true )
End sub

[charlie]

E al primo avvio, autoexec funziona? Sarebbe inspiegabile.

[Giove]

Si, funziona perfettamente, il problema si presenta solo se chiudo il database con il pulsante X.. è un problema di OpenOffice.. penso.

[charlie]

Se posti il file possiamo provare con versioni diverse e con Libre Office.

[Giove]

Grazie, allego link per scaricare il database.
Vorrei Usare Openoffice!

https://dl.dropboxusercontent.com/u/258 ... rovadb.odb