Filter Wert überprüfen

[pepperbreath]

Hallöchen

ich möchte den aktuell eingestellten Filter überprüfen und wenn es mit einen Wert übereinstimmt dann soll etwas erscheinen

Code [Auswählen] Erweitern

MsgBox Me.Filter
MsgBox
If (Me.Filter = ("Adressenliste.Haarfarbe =" & "'" & "dunkelblond" & "'")) Then
    Me.richtig_3.Visible = True
    Me.falsch_3.Visible = False
Else
    Me.richtig_3.Visible = False
    Me.falsch_3.Visible = True
End If
End Sub

Ich weiss leider nicht, wie VBA das haben möchte.
Das gleiche aber mit Order by ging bei mir problemlos auf.

Code [Auswählen] Erweitern


If (Me.OrderBy = "Adressenliste.Hobbies Desc") Then
    Me.richtig.Visible = True
    Me.falsch.Visible = False
Else
    Me.richtig.Visible = False
    Me.falsch.Visible = True
End If


Danke

[DF6GL]

Hallo,

darf man fragen, was der eigentliche Sinn dieser Prüfung ist?


Probier mal:


If instr(Me.Filter ,"Adressenliste.Haarfarbe =""dunkelblond""") > 0  Then

[pepperbreath]

Vielen Dank! ^^

Nun ich erstelle gerade so ne kleine Übungsdatenbank. Wenn man beispielsweise richtig sortiert oder filter dann erscheint ein grünes Häckchen.
Etwas sehr banales ^^

Dieser instr-Befehl, dient er zur Überprüfung von Variabeln auf gewisse Werte oder kann er noch mehr?
Habe festgestellt, dass wenn man ">0" entfernt, der Befehl trotzdem richtig ausgeführt wird.

Wie müsste es aussehen damit man genau das gleiche einfahc mit einen weiteren Filterkriterium macht?

Code [Auswählen] Erweitern

If instr(Me.Filter ,"Adressenliste.Haarfarbe =""dunkelblond"" AND "Adressenliste.Haarfarbe =""schwarz""" ) > 0  Then

[pepperbreath]

Bin mittlerweile nun selbst auf die Lösung gekommen

Code [Auswählen] Erweitern

InStr(Me.Filter, "(((Adressenliste.Geschlecht=""w""))) AND ((Adressenliste.Lieblingsfach=""Sport""))")

Musste anscheinend auch die Klammer reintun. (Dies hab ich bemerkt nach dem ich Msgbox Me.Filter gemacht hab)

Danke DF6GL für die vorarbeit ^^

Problem gelöst