Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: tismo am Oktober 26, 2018, 17:14:30

Titel: Ordnerpfad über Schaltfläche suchen und in Textfeld einfügen
Beitrag von: tismo am Oktober 26, 2018, 17:14:30
Hallo,

in einem meiner Formulare muss ein Ordnerpfad (Bsp. D:\Users\User\Documents\) in einem Textfeld eingetragen werden. Wie könnte ein vba aussehen, damit über eine Schaltfläche der Explorer geöffnet wir und ich bequem darüber den ensprechenden Ordner auswählen kann und dieser dann sofort in meinem Textfeld angezeigt wird?

Gruß,
Lars
Titel: Re: Ordnerpfad über Schaltfläche suchen und in Textfeld einfügen
Beitrag von: daolix am Oktober 26, 2018, 19:26:43
ggf

With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Nz(Me.TB_Path, "")
        .Show
        If .SelectedItems.Count Then
            Me.TB_Path = .SelectedItems(1)
        Else
            Me.TB_Path = ""
        End If
    End With
voher noch nen verweis auf die Microsoft Office X.XX Library setzen oder die Zeile "With Application.FileDialog(msoFileDialogFolderPicker)" selbst eintippen dann fragt acc nach ob das gesetzt werden soll.