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
Hallo,
hast Du z.B. die Microsoft Office 11.0 Object Library in den Verweisen zugeordnet?
Beste Grüße
Andreas
Hallo,
es sind MS Access 16.0 Object Library und Microsoft Office 16.0 Type Library verfügbar?
Danke dir
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 (https://www.vba-tutorial.de/fehler/debuggen.htm) und berichte was das konkrete Problem ist.