Datei schliesen via button = Fehlermeldung

[TuoDesperado]

Hallo zusammen,

also ich hab mir mal eure Diskussion mit angesehen und muss sagen, super, das ist mal eine tolle Teamarbeit.

Hab mir gedacht, da kann ich doch sicherlich auch meinen Nutzen daraus ziehen.

hab hierzu noch diese Diskussion viewtopic.php?f=18&t=40701, viewtopic.php?f=18&t=38688 und den Beitrag viewtopic.php?f=18&t=35713 dazu gezogen, denn ich möchte gerne mein Formular via Button schießen und ggf. via Button auch die komplette Anwendung beenden.

hierzu hab ich mir folgende Codes zusammen gebastelt.

Code: Alles auswählen

sub schliesen

'Formular schiesen 
	oDoc = thisComponent.currentController.frame
	oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
	oDispatch.executeDispatch(oDoc, ".uno:CloseDoc", "", 0, Array())

'Oo beenden Version 1 (ohne das Shell)
	oDoc = ThisDatabaseDocument
	oDoc.store()
	oDoc.close(True)
	'Shell("soffice.exe",1)

'Oo beenden Version 2
	'StarDesktop.terminate()

end sub

Das schließen des Fensters funktioniert tadellos, das beenden von Oo mit Variante 1 und Variante 2 eigentlich auch, wäre da nicht eine Fehlermeldung, die ich bei beiden Varianten habe.

Durch einen unerwarteten Fehler ist Oo abgestüzt... ...Dokumentenwiederherstellung... ...bla bla

Was mach ich falsch???