Hallo,
hier (Relative Pfade für registrierte DB für Serienbrief) wurde die Schwierigkeit bereits im Jahre 2011 ergebnislos diskutiert, aber nun ich stehe vor der gleichen Herausforderung und konnte bisher keine Lösung finden.
Ist es mittlerweile in OpenOffice 4.1.6 (Writer) möglich, einen relativen Pfad zu einer im gleichen Ordner befindlichen Datenbank anzugeben?
Auch hier soll der Zugriff nicht nur an meinem System funktionieren, sondern auch an anderen Geräten, ohne vor dem eigentlichen Gebrauch auf dem anderen System eine erneute Datenbankregistrierung vornehmen zu müssen.
In freudiger Erwartung auf mögliche Lösungsansätze
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗
Relative Pfadangabe zu Datenbank
Relative Pfadangabe zu Datenbank
Schöne Grüße
Joni
Joni
Re: Relative Pfadangabe zu Datenbank
Hi,
folgendes Makro, gebunden an das Ereignis "Dokument öffnen" der Writer Serienbriefdatei
Damit das Makro laufen darf, stellt man unter Extras/Einstellungen/Openoffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wird man beim Öffnen von Dokumenten gefragt, ob Makros ausgeführt werden dürfen, was man bejahen sollte.
Gruß R
folgendes Makro, gebunden an das Ereignis "Dokument öffnen" der Writer Serienbriefdatei
- schaut im gleichen Ordner nach, ob eine .odb Datei existiert, wird eine gefunden dann
- schaut das Makro nach, ob eine .odb mit gleichem Namen schon angemeldet ist, wenn ja wird sie abgemeldet und mit der gefundenen überschrieben, wenn nein, wird die gefundene angemeldet.
Code: Alles auswählen
sub registerDataBase
sFolderUrl = ConverttoURL(replace(ThisComponent.URL,ThisComponent.Title,""))
NextFile = Dir(sFolderUrl)
if right(NextFile,4) = ".odb" then
sDBFileName = NextFile
bfound = true
else
While NextFile <> ""
NextFile = Dir
if right(NextFile,4) = ".odb" then
sDBFileName = NextFile
bfound = true
endif
Wend
if not bFound Then
print "keine Datenbankdatei gefunden"
exit sub
endif
sDBName = replace(sDBFileName,".odb","")
endif
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
if not DatabaseContext.hasByName(sDBName) then
NeuDB = DatabaseContext.getByName(sFolderUrl & sDBFileName)
DatabaseContext.registerobject(sDBName,NeuDB)
else
DatabaseContext.revokeObject(sDBName)
NeuDB = DatabaseContext.getByName(sFolderUrl & sDBFileName)
DatabaseContext.registerobject(sDBName,NeuDB)
endif
end sub
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO