[MS Access] DateiDialog (ÖffnenDialog) anzeigen, eine Bild-Datei auswählen und diese auf einem Formular anzeigen

Auf dem Formular müssen mind. ein Textfeld namens ‘Dateipfad’, ein Button ‘btnOpenImage’ und ein Bild ‘picImage’ liegen.

Option Compare Database
Option Explicit

Private Sub btnOpenImage_Click()
   ' im Codefenster (Visual Basic-Editor) im Menü Extras->Verweise->Microsoft Office 12.0-Objektbibliothek hinzufügen (anhaken)
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant

   ' Dialog vom Typ FilePicker erzeugen
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      .Title = "Bitte ein Bild auswählen"
      
      ' erstmal Mehrfachauswahl verhindern
      .AllowMultiSelect = False

      ' Dateifilter
      .Filters.Clear
      .Filters.Add "JPEG (*.jpg)", "*.jpg"
      .Filters.Add "Bitmap (*.bmp)", "*.bmp"
      .Filters.Add "All Files", "*.*"

      If .Show = True Then
         ' For Each ist hier eigentlich nur wichtig bei AllowMultiSelect = true (bei Mehrfachauswahl)
         For Each varFile In .SelectedItems
            ' Textfeld "Dateipfad" auf dem Formular leeren
            Me.Dateipfad.SetFocus
            Me.Dateipfad.Text = varFile
            ' Bildatei dem Bildobjekt zuordnen
            Me.picImage.Picture = varFile
         Next
      End If
   End With
End Sub