Hallo zusammen!
Ich versuche aktuell bei Access einen Filter in einem SubFormular anzuwenden, erhalte jedoch immer die Fehlermeldung, dass ich die AnwendenFilter-Aktion nicht für dieses Fenster anwenden kann.
Der Aufbau ist hierbei aktuell der folgende:
Ich habe ein Navigationsformular [NavForm], ein Formular [Auftrag anlegen] und ein Formular [Auftrag bearbeiten]. Aktuell geht es nur ums Verständnis und den Zugriff auf die Elemente und Tabellen des Formulars [Auftrag bearbeiten].
Hier habe ich ein Formular mit mehreren Elementen erstellt, das mir mithilfe eines Textfeldes und eines Such-Buttons ermöglichen soll, Datensätze mit einer bestimmten PP-Nummer anzuzeigen.
Dem Button habe ich folgendes "FilterAnwenden"-Makro beim klicken zugewiesen:
[PP-Nummer] Wie "*" & [Formulare]![Navigationsformular]![Navigationsunterformular].[Formular]![Text41] & "*"
Text41 ist das Textfeld, in das die zu prüfende PP-Nummer eingetragen werden soll.
Ich habe bereits einen anderen Beitrag hier im Forum zu Rate gezogen, der mir jedoch leider nicht weitergeholfen hat.
Ich hoffe ihr könnt mir bei meinem Problemchen helfen, ich bin über jeden Vorschlag oder Tipp dankbar!
Lieben Gruß
Hallo chrischl,
mit Makros kenne ich mich nicht aus, aber es könnten die Hochkommata fehlen?
"[PP-Nummer] Wie '*" & [Formulare]![Navigationsformular]![Navigationsunterformular].[Formular]![Text41] & "*'"
Navigationsunterformular muss der Name des Unterformular-Steuerelements sein.
Vielleicht kannst du dich zukünftig dazu entschließen, auf VBA-Code umzusteigen, dann bekommst du auch wesentlich leichter/schneller eine Antwort im Forum. ;)
Gruß
Josef
Hallo,
wenn sich der Button im Formular "Auftrag bearbeiten" befindet (Auf Leer- und Sonderzeichen in Objektnamen dringend verzichten!!), so muss es so lauten (VBA, als Ereignisprozedur für Ereignis "Beim Klicken" des Buttons ):
Sub btnSuchen_Click()
Me.Filter = "[PP-Nummer] = " & Me!Text41 'im Fall, dass PP-Nummer vom Datentyp Zahl,Long ist
Me.Filter = "[PP-Nummer] like '*" & Me!Text41 & "*'" 'im Fall, dass PP-Nummer vom Datentyp Text ist
Me.FilterOn =true
End Sub