Supportnet / Forum / Datenbanken
FileDialog .Filters.Add Methode
Frage
Hallo
Folgender Code bereitet mir Probleme... Beim durchführen dieses Codes erscheint folgende Meldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Der Fehler liegt angeblich in der Zeile mit " .Filters.Add "Alle Dateien", "*.*" "
Weiss jemand Rat?
[code]
Dim lFileDialog As FileDialog
Set lFileDialog = Application.FileDialog(msoFileDialogOpen)
With lFileDialog
.Title = "Datei wählen"
.ButtonName = "Öffnen"
.Filters.Clear
.Filters.Add "Alle Dateien", "*.*"
.Show
If .SelectedItems.Count = 0 Then
Exit Sub
End If
' Nur zu Testzwecken
MsgBox .SelectedItems(1)
End With
[/code]
Antwort 1 von reto
Hast du A97 habe dies auch schon probiert hat aber auch nie funktioniert
Antwort 2 von MikeNikles
Nein habe Access 2002 (XP)...