Hallo Zusammen,
ich hoffe ihr könnt mir helfen bei folgendem VBA Ausschnitt:
Form_Frm_Fortschritt.txtFortschritt.Caption = "3/6 - CSV Download"
Form_Frm_Fortschritt.Refresh
'CSVs runterladen
ShellWait "C:\Users\Le\Desktop\Ordner1\UserDB\CSV_Script.bat"
Form_Frm_Fortschritt.txtFortschritt.Caption = "4/6 aktualisieren"
Form_Frm_Fortschritt.Refresh
CurrentDb.Execute "DELETE * FROM TblListe"
DoCmd.TransferText acImportDelim, "tbllist", "TblListe", DatenbankPfad & "\Liste\Liste.csv", False
Ich möchte, dass der Pfad hinter ShellWait relativ ist genauso wie weiter unten der DatenbankPfad.
Wie mache ich das? Leider bin ich nicht sonderlich erfahren in VBA :(
Der Hintergrund: Immer wenn ich die Accessdatenbank in einen anderen Ordner Verschiebe muss ich den Pfad nur einmal ändern.
Ich bin sehr Dankbar für eure Hilfe
|