Hinzufügen einer Datei-browser-Taste, um eine MS Access-Formular

Möchte ich hinzufügen eine Schaltfläche "Durchsuchen", um eine MS-Access-2007-Formular, die ein standard-Windows-Datei-browser (als modales Fenster) und dem Benutzer erlauben, ein Verzeichnis auszuwählen. Wenn der Benutzer OKs aus, dass der browser, den Pfad, der in das ausgewählte Verzeichnis geschrieben werden soll, um ein Textfeld in das Access-Formular.

Was ist der beste Weg, dies zu tun? Gibt es einen einheitlichen Zugang Weg?

InformationsquelleAutor Isaac Moses | 2011-06-01
  1. 12

    Erstellen Sie eine Funktion, die verwendet Application.FileDialog. Die FileDialog ist modal.

    Diese Funktion gibt dem Benutzer die Ordner zur Auswahl, wenn Sie eine, oder ein leerer string, wenn Sie auf Abbrechen geklickt haben, auf die FileDialog.

    Public Function FolderSelection() As String
    Dim objFD As Object
    Dim strOut As String

    strOut = vbNullString
    'msoFileDialogFolderPicker = 4
    Set objFD = Application.FileDialog(4)
    If objFD.Show = -1 Then
        strOut = objFD.SelectedItems(1)
    End If
    Set objFD = Nothing
    FolderSelection = strOut
End Function

    Ich denke, Sie können verwenden Sie diese Funktion in Ihrem Befehl der Schaltfläche click-Ereignis.

    Dim strChoice As String
strChoice = FolderSelection
If Len(strChoice) > 0 Then
    Me.TextBoxName = strChoice
Else
    ' what should happen if user cancelled selection?
End If

    Wenn Sie befürchten, dass Microsoft möglicherweise entfernen Sie den FileDialog - Objekt von Office eines Tages, können Sie mithilfe der Windows-API-Methode statt: BrowseFolder Dialog.

    • Das hat geklappt. Danke!
    • Ich empfehle immer die Verwendung der Windows-API statt, da traue ich MS nicht zu entfernen, das FileDialog-Objekt von Office eines Tages, als Sie entfernt das FileSearch-Objekt von Office 2007.
    InformationsquelleAutor HansUp
Schreibe einen Kommentar