Hallöchen
ich möchte den aktuell eingestellten Filter überprüfen und wenn es mit einen Wert übereinstimmt dann soll etwas erscheinen
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.
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
Hallo,
darf man fragen, was der eigentliche Sinn dieser Prüfung ist?
Probier mal:
If instr(Me.Filter ,"Adressenliste.Haarfarbe =""dunkelblond""") > 0 Then
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?
If instr(Me.Filter ,"Adressenliste.Haarfarbe =""dunkelblond"" AND "Adressenliste.Haarfarbe =""schwarz""" ) > 0 Then
Bin mittlerweile nun selbst auf die Lösung gekommen
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