Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Dialog öffnet sich nicht unter Access 2019

Begonnen von Bollerkohl, August 04, 2023, 13:05:03

⏪ vorheriges - nächstes ⏩

Bollerkohl

Hi,
mit nachfolgendem Code kann ich unter Access 2013 ganz normal eine Datei auswählen und im "Bildpfad" speichern.
Leider funktioniert dies unter Access 2019 nicht.

Was mache ich falsch?

Danke Euch


Private Sub L_Auswahl_Click()
Dim dlgOpen As Object
    Dim selectedFile As Variant

    ' Erstellen Sie eine Instanz des Dateiauswahldialogs
    Set dlgOpen = Application.FileDialog(1)

    ' Legen Sie die erlaubten Dateitypen fest
    dlgOpen.Filters.Clear
    dlgOpen.Filters.Add "Bilder", "*.jpg; *.jpeg; *.png; *.gif"
    dlgOpen.Filters.Add "Videos", "*.mp4; *.avi; *.mov"
    dlgOpen.Filters.Add "Office-Dateien", "*.docx; *.xlsx; *.pptx"

    ' Öffnen Sie den Dateiauswahldialog und prüfen Sie, ob eine Datei ausgewählt wurde
    If dlgOpen.Show = -1 Then
        ' Speichern Sie den ausgewählten Dateipfad im Textfeld "Pfad"
        Me.Bildpfad.Value = dlgOpen.SelectedItems(1)
    End If

    ' Löschen Sie die Instanz des Dateiauswahldialogs
    Set dlgOpen = Nothing
End Sub

  •  

andyfau

Hallo,
 hast Du z.B. die Microsoft Office 11.0 Object Library in den Verweisen zugeordnet?

Beste Grüße
Andreas
  •  

Bollerkohl

Hallo,

es sind MS Access 16.0 Object Library und Microsoft Office 16.0 Type Library verfügbar?

Danke dir
  •  

markusxy

Zitat von: Bollerkohl am August 04, 2023, 13:05:03Leider funktioniert dies unter Access 2019 nicht.

Was soll man mit so einer Aussage anfangen?

Versuch es mal mit debuggen und berichte was das konkrete Problem ist.


  •