Filter setzen

[thorstens1304]

Hallo,

was ist an meinem Beispiel falsch?

Code [Auswählen] Erweitern

    Me.Filter = "LicenseProgram = '*" & Me!Filter_LicenseProgram & "*' AND ProductGroup = '*" & Me!Filter_ProductGroup & "*'"
    Me.FilterOn = True 'Filter einschalten


Ich möchte beim Feld "LicenseProgram" genau den angegebenen Wert gefiltert bekommen und bei "ProductGoup" alle Datesätze die in dem Feld diesen Wert (oder mehr) beinhalten.

Mein Ergebnis ist aber immer leer. Wer kann mir helfen?

[MzKlMu]

Hallo,
Textvergleiche mit dem Joker (*) müssen mit Like (Wie) gemacht werden. Das = funktioniert nur bei exakter Übereinstimmumng.

Code [Auswählen] Erweitern

Me.Filter = "LicenseProgram Like '*" & Me!Filter_LicenseProgram & "*' AND ProductGroup Like '*" & Me!Filter_ProductGroup & "*'"

Wenn für LicenseProgram genaue Übereinstimmung gefordert ist, müssen die Joker weg. Dann kann auch = verwendet werden.

Also so:

Code [Auswählen] Erweitern

Me.Filter = "LicenseProgram = '" & Me!Filter_LicenseProgram & "' AND ProductGroup Like '*" & Me!Filter_ProductGroup & "*'"

und bei "ProductGoup" alle Datesätze die in dem Feld diesen Wert (oder mehr) beinhalten.

Wenn hier wirklich mehrere Produktgruppen in einem Feld stehen, ist das Datenmodell falsch. Üblicherweise würde man auch nicht über den Klartext filtern, sondern mit dem hoffentlich vorhandenen Primärschlüssel.