L'ultima volta che l'ho chiuso ho utilizzato un pulsante con questa macro:
Codice: Seleziona tutto
Sub ChiusuraBase()
Dim opcion As integer
opcion = MsgBox ("Vuoi veramente chiudere la contabilità?",36,"Chiusura Contabilità")
If opcion = 6 Then
BackupBilancio
ThisDatabaseDocument.CurrentController.CloseSubComponents() 'chiude tutti i formulari
ThisDataBaseDocument.Close(True)'chiude il database
End if
End Sub