Fehler beim speichern mit Makro

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Pretender1970
**
Beiträge: 27
Registriert: Fr, 05.01.2018 08:38

Fehler beim speichern mit Makro

Beitrag von Pretender1970 »

Hallo Zusammen,

ich habe folgendes Problem. Manchmal kommt es vor, dass nach dem Button "Speichern"
den ich mit dem unten aufgeführtem Makro belegt habe, Libre Office abbricht.
Hab ich hier ein Fehler, den ich übersehen habe? Liegt es daran, dass nach dem
öffnen des Speicherplatzes er die alte Datei ersetzen soll und anschließend die
Datenbank geschlossen werden soll?

Ich muss auch immer den Schnellstarter schließen, bevor ich Daten eintrage, weil Sie
nach dem speichern nicht gleich aktualisiert werden. Eben erst, wenn der Schnellstarter
geschlossen ist.

Vielen Dank
Marc


SUB speichern_und_beenden(event as object)

oDoc=thisDatabaseDocument
oDoc.DataSource.flush
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "calc8"

arg = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
dialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
dialog.Initialize(arg())
dialog.appendFilter("ODB Datenbank (*.odb)", "*.odb")

IF Msgbox ("Bitte Datei abspeichern unter, " & vbNewLine & _
""& vbNewLine & _
"FA19-GS / Abteilung Geschäftsstelle /" & vbNewLine & _
""& vbNewLine & _
"/ Programm / Archiv")= 1 then
dialog.SetMultiselectionMode(false)

dialog.DefaultName = Filename
ok = dialog.execute()
end if
if ok = 1 Then
datei = dialog.getFiles()
URL = datei(0)
oDoc.storeasurl(URL, args1())
end if
oDoc.close(True)
END SUB