Speichern Funktion um Daten in Base Datei zu speichern

[Freischreiber]

Hallo acco,

danke!

Jetzt habe ich noch eine Frage: wenn ich die Sicherungskopie direkt neben das offene Dokument setzen will, was muß ich am Makro ändern?

Ich habe dieses "Vokabular" gefunden zu den Path Settings:
https://wiki.openoffice.org/wiki/Docume ... h_Settings

Da gibt es aber keinen Ordner, der "current" oder so heißt. Oder bin ich da auf der falschen Fährte?

Gruß
Freischreiber

[RobertG]

Hallo Freischreiber,

Code: Alles auswählen

oDB = ThisComponent
stDir = Left(oDB.Location,Len(oDB.Location)-Len(oDB.Title))	' Der Titel der Datenbank wird von der URL abgetrennt.

müsste Dir den Pfad zu Deiner momentanen Datei geben, wenn das Makro beim Start der Base-Datei ausgeführt wird.

Gruß

Robert

[Freischreiber]

Hallo Robert,

tschuldigung, das übersteigt mich schon wieder.

oDB und stDir kommen bisher in dem Makro noch nicht vor. Muß ich die beiden Zeilen einfach irgendwo zusätzlich eintragen oder etwas anderes ersetzen?

Danke
Freischreiber

[RobertG]

Hallo Freischreiber,

Du hast in dem Sicherungsmakro eine Pfadangabe:

Code: Alles auswählen

oDoc = ThisComponent
sTitel = oDoc.Title	'Name des Dokumentes, z.B. Medien_mit_Makros.odb'
sUrl_Start = oDoc.URL	'Pfad zu dem Titel'
oPath = createUnoService("com.sun.star.util.PathSettings")

Dieser Schnipsel gibt eine Möglichkeit, den Pfad zu bestimmen:

Code: Alles auswählen

oDB = ThisComponent
stDir = Left(oDB.Location,Len(oDB.Location)-Len(oDB.Title))   ' Der Titel der Datenbank wird von der URL abgetrennt.

oDoc vom oberen Makro ist oDB vom unteren Makro. Du müsstest also im unteren Makroschnipsel oDB durch oDoc ersetzen und brauchst nur stDir.
stDir ist der Pfad, der zu Deiner momentanen Datei führt.
oPath aus dem ursprünglichen Makro brauchst Du nicht mehr.
Überall dort, wo oPath.Backup steht, ersetzt Du dies durch stDir.
Dann müsste der Pfad für die Sicherungsdateien nicht mehr im Backup-Pfad liegen sondern dort, wo die momentan aufgerufene Datei liegt.

Gruß

Robert