Private Sub btnAlleAnzeigen_Click()
On Error GoTo Err_btnAlleAnzeigen_Click
    Me.subfrmMitglieder.Form.Filter = "''"
 
Exit_btnAlleAnzeigen_Click:
    Exit Sub
Err_btnAlleAnzeigen_Click:
    ' Mit Me.Name wird der aktuelle Name des Formulars,
    ' des Berichtes oder des Moduls übergeben
    ' Mit dem Text "Fehler_Rechnen_Click" über geben Sie der Funktion
    ' den Namen des genauen Code-Bereiches. Hier muß immer der
    ' aktuelle Sub- bzw. Funktionsname stehen!
    FehlerAufnahme Me.Name, "btnAlleAnzeigen_Click"
    GoTo Exit_btnAlleAnzeigen_Click
 
End Sub