Hallo,
...hm mit Access mach ich generell weniger, aber da gibt's eigentlich zunächst zwei Möglichkeiten:
-
Du hast ja bereits eine Funktion mit Rückgabemöglichkeit am Start, die könntest Du direkt in Deiner Click-Proc aufrufen:
-
Option Explicit
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)
DateiAuswaehlen = strfile
End Function
Private Sub Befehl244_Click()
'Import in aktuelle DB
DoCmd.TransferDatabase acImport, "Microsoft Access", DateiAuswaehlen, acTable, "Upro", "Upro"
End Sub
-
Allerdings erscheint dann auch jedesmal der File-Dialog, willst Du das nicht, wäre es besser, den Rückgabestring einer öffentlichen Variablen zu übergeben...
-
Option Explicit
Public strfile As String
Public Function DateiAuswaehlen() 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)
End Function
Private Sub Befehl244_Click()
'Import in aktuelle DB
DoCmd.TransferDatabase acImport, "Microsoft Access", strfile, acTable, "Upro", "Upro"
End Sub
Gruß,
|