Filtern mit Schaltfläche

[uwe01]

Hallo,
Ich habe mir in ein Formular eine Filter Schaltfläche aus der Toolbox gesetzt. Wenn ich auf den Schaltfläche drücke passiert nix. In den Eigenschaften steht dieser VBA Code

Private Sub Befehl25_Click()
On Error GoTo Err_Befehl25_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 2, acMenuVer70
Exit_Befehl25_Click:
    Exit Sub
Err_Befehl25_Click:
    MsgBox Err.Description
    Resume Exit_Befehl25_Click
   End Sub

???Jetzt meine Frage ?
Muss ich bei dem Code noch angeben was er Filtern soll z.B. Nachname usw.
Und was und wie in welcher Zeile muss Ich das eingeben, damit er z.B. Nachname Aufsteigend sortiert.

Danke für eure Hilfe

[database]

Hallo,

Muss ich bei dem Code noch angeben was er Filtern soll

Naja, bitte ... VBA ist ja keine unintelligente Programmiersprache aber riechen kann sie noch nicht, daher wäre es schon gut, anzugeben WONACH gefiltert werden soll. 

Anfrage wegen Formularfilter kommen in regelmäßigen Abständen immer wieder vor.
Bemühe bitte mal die Forumsuche und gib als Suchbegriff 'Filter' oder 'Filter setzen' ein.
Du bekommst -zig Beiträge angezeigt, die sich mit genau deinem Problem befassen - inkl. interessanter Codebeispiele

HTH

[oma]

Hallo,

die Methodik aus deinem Code sollte man (schon lange) nicht  mehr verwenden, ich vermute , der Assistent schreibt noch sowas zusammen!

Die Methode DoMenuItem sollte man nicht mehr verwenden, deine Buttons sollten auch einen Namen erhalten, statt wie bei dir Befehl25; wenn du später viel Code hast sagt die Befehl25 nun nicht mehr soo viel

Wenn du z.B. nach den Nachnamen filtern willst, musst du natürlich auch angeben, nach welchen Namen denn nun gefiltert werden soll.
Hierzu gibt es verschiedene Möglichkeiten; Du kannst z.B. in einem Formularkopf ein ungebundenes Feld (Feld ohne Bezug zu einem Feld der Datenherkunft) mit Namen   txtSuchfeld  erstellen. Dann erstellst du z.B ein Button mit Namen cndFiltern u. fügst folgenden Code beim Ereignis "Beim Klicken"  ein

Code [Auswählen] Erweitern

Private Sub cndFiltern_Click()
Me.Filter = "Nachname LIKE ' * " & Me!txtSuchfeld & " * ' "
Me.FilterOn = True
End Sub

Hierbei kannst du für den Namen auch nur bestimmte Teile des Namens eingeben!

Gruß Oma

PS: wie Database hinweist, suche mal im Forum, denn der angeführte Code kann noch vielfach erweitert werden! Soll nur eine erste Hilfe zum Probieren geben