Pfad für OpenDatabase aus Registry

25/10/2008 - 20:17 von Joerg M. | Report spam
Hallo NG,

ich habe den Pfad zu einer Access-DB in die Registry geschrieben und rufe
aus einem Outlook-VBA-Projekt den Wert wie folgt ab:

GetSetting("Outlook", "Mein Programm", "Pfad_Datenbank", "")

Diesen Wert würde ich gerne für OpenDatabse verwenden, also an Stelle von
"C:\Meine Datenbank\DB.mdb"

Set oDataBase = OpenDatabase("C:\Meine Datenbank\DB.mdb")

Aber leider funktioniert es nicht, wenn ich es so schreibe:

Set oDataBase = OpenDatabase(
GetSetting("Outlook", "Mein Programm", "Pfad_Datenbank", ""))

1.)
Daher die Frage, wie ich es schreiben muss.

2.)
Alternativ und m.E. besser wàre aber, den Wert einmal im VBA Projekt einer
Variablen / Konstanten ??? zuzuweisen und dann diese (wie auch immer???) für
OpenDatabase zu verwenden, da ich den Pfad öfter im Projekt brauche. Aber wie
das geht, weiß ich leider auch nicht wirklich.

Vielen Dank!

Gruß Jörg
 

Lesen sie die antworten

#1 Gunter Avenius
25/10/2008 - 20:39 | Warnen spam
Hallo Joerg M.,

Joerg M. schrieb folgendes:
ich habe den Pfad zu einer Access-DB in die Registry geschrieben und rufe
aus einem Outlook-VBA-Projekt den Wert wie folgt ab:

GetSetting("Outlook", "Mein Programm", "Pfad_Datenbank", "")

Diesen Wert würde ich gerne für OpenDatabse verwenden, also an Stelle von
"C:\Meine Datenbank\DB.mdb"

Set oDataBase = OpenDatabase("C:\Meine Datenbank\DB.mdb")

Aber leider funktioniert es nicht, wenn ich es so schreibe:



dim strPath as string
strPath=GetSetting("Outlook", "Mein Programm", "Pfad_Datenbank", "")

Msgbox strPath

'liefert hier die MsgBox einen richtigen Pfad?
'Dann sollte
Set oDataBase = OpenDatabase(strPath)
'funktionieren

Set oDataBase = OpenDatabase(
GetSetting("Outlook", "Mein Programm", "Pfad_Datenbank", ""))

1.)
Daher die Frage, wie ich es schreiben muss.

2.)
Alternativ und m.E. besser wàre aber, den Wert einmal im VBA Projekt einer
Variablen / Konstanten ??? zuzuweisen und dann diese (wie auch immer???) für
OpenDatabase zu verwenden, da ich den Pfad öfter im Projekt brauche. Aber wie
das geht, weiß ich leider auch nicht wirklich.



Schreibe den Wert z.B Tabelle in eine Tabelle und rufe den Wert daraus
ab.

Dim strPath as String
strPath=Dlookup("DeinFeldInDemDerPfadAbgelegtIst","tblDeineSettingstabelle")

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
11. Access-Entwickler-Konferenz http://donkarl.com/?AEK
Nürnberg, 18./19.10. + 25./26.10.2008

home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen