Filtern in Access2000

Computer: Software & Programmierung Datenbanken allgemein
#1

Halli Ihr,

in meiner schnuckligen Adressdatenbank (Access97) hatte ich jedem Buchstaben des Alphabets ein Button zugewiesen und dahinter folgenden Code gesteckt (Beispiel für alle A’s rausfiltern:

Private Sub Gehezu_A_Click()
DoCmd.ApplyFilter „“, „[Nachname]like“"|"„A“"&""*""|"""
[Nachname].SetFocus
DoCmd.RunCommand acCmdSortAscending
End Sub

in der 2000er Version bekomme ich nur eine Fehlermeldung. Kann mir jemand sagen, was ich ändern muß? Die Datenbank hat 2000 natürlich konvertiert.
Danke Euch, Uli

#2

Ich habe das so gelöst:

Public Function ABC()
Me.Filter = „[Nachname] Like '“ & Me.ActiveControl.Name & „*’“
Me.FilterOn = True
End Function

Die Funktion rufe ich in jedem Button auf, wobei jeder Button nach dem Buchstaben benannt werden muss.

pp

#3

Yippie
Dein Tip hat mir die alte schnucklichkeit wieder zurückgegeben.

Danke Dir,
Uli