Hallo zusammen,
Ich will Tabellen von einer access db in andere access db's exportieren. Dazu habe ich ein Formular mit einen Textfeld . Nun möchte ich aber über einen Button die Destinations DB aufrufen und direkt im Textfeld eintragen. Der Export selber geht dann über einen andere Button den ich aber bereits gemacht habe und funktioniert.
Kann mir jemand helfen bitte.
Danke
Hallo,
denkbar wäre es, deine Vorstellung mit folgendem Konstrukt zu lösen.
wobei ein 'FileOpen-Dialog' geöffnet wird und die Auswahl einer *.mdb anbietet.
Der Dateiname samt Pfad wird nach der Auswahl automatisch in ein von dir im 'Klick-Ereignis des Button zu bestimmendes Textfeld eingtragen:
Private Sub DeinButton_Click()
Dim pfad As String
pfad = FileOpenDlg
Me!DeinTexfeld = pfad
End Sub
Private Function FileOpenDlg(Optional FileEnd As String = "*.mdb") As String
On Error GoTo Err_FileOpenDlg
Dim fdlg, itm
Set fdlg = Application.FileDialog(1)
fdlg.Title = "Datenbank wählen"
fdlg.InitialFileName = FileEnd
If fdlg.Show = -1 Then
For Each itm In fdlg.SelectedItems
FileOpenDlg = FileOpenDlg & ";" & itm
Next
FileOpenDlg = Mid(FileOpenDlg, 2)
Else
FileOpenDlg = ""
End If
Exit_FileOpenDlg:
Set fdlg = Nothing
Exit Function
Err_FileOpenDlg:
MsgBox Err.Description
Resume Exit_FileOpenDlg
End Function
HTH
Genial. Vielen Dank.