FileDialog persistent vorherige Filter

Question

Ich mache Formular in Access-Datenbank Ich muss Dateidialogfenster einige Male öffnen. Ich verstehe einfach nicht warum, nachdem ich den Optionswert einige Male geändert habe und das Dateidialogfenster geöffnet hatte, änderte er die Filter nicht.

Public Sub Command17_Click() 
Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogOpen) 
    With fd 
     .AllowMultiSelect = False 
     If Option18.Value = True Then 
     .Filters.Add "Access", "*.accdb", 1 
     Else 
     If Option20.Value = True Then 
     .Filters.Add "Excel", "*.xlsx", 1 
     End If 
     End If 
     .Show 

Text0.Value = fd.SelectedItems(1) 
    End With 
    Set fb = Nothing 
End Sub 

Answer 1

Sie müssen die Filter löschen.

With .Filters 
    .Clear 
    .Add "Access", "*.accdb", 1 
    '... 
End with