Fehler beim speichern mit Makro

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

Moderator: Moderatoren

Pretender1970
**
Beiträge: 28
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

Code: Alles auswählen

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

Moderation,4: CODE tags gesetzt