Browser Button in Formular

[boehnli01]

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

[database]

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:

Code [Auswählen] Erweitern


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

[boehnli01]

Genial. Vielen Dank.