Hallo,
ich schaffs einfach nicht eine Beziehung zwischen Funktion und Sub auf die Beine zu stellen.
ich möchte in meiner Access Datenbank eine Tabelle aus einer anderen Access Datenbank importieren. Ich habe dazu folgende Funktion.
Mit ihr kann ich über ein Dialog Fenster die gewünschte Access Datenbank auswählen.
Public Function DateiAuswaehlen() As String
Dim strfile As String
WizHook.Key = 51488399
Call WizHook.GetFileName(Application.hWndAccessApp, "Microsoft Access", "Datei öffnen", "Öffnen", strfile, CurrentProject.Path, "Access-Datenbanken (*.mdb,*.accdb)", µ 0, 0, 0, False)
Debug.Print strfile
Die Funktion bringt als Ergebnis im Direktbereich den gewünschten Pfad der gewünschten Access Tabelle.
Wie kann ich den Pfad (Strfile) in einem Sub weiterverwenden.
Private Sub Befehl244_Click()
'Import in aktuelle DB
DoCmd.TransferDatabase acImport, "Microsoft Access", "pfad", acTable, "Upro", "Upro"
Ich freu mich über jede Hilfe!
Vielen Dank!
|