Office: (Office 2010) Listenfeld filtern mit Textfeld und Kontrollkästchen

anpejo · 3. September 2016

Hallo Zusammen,

ich habe ein Problem beim Hinzufügen eines zweiten Filters.
Bisher wird das Listenfeld meider Bücher-Datenabank mit Hilfe eines Textfeldes gefiltert.
Jetzt würde ich gerne weitere Filter (Checkbox-Filter) einbauen. Wenn ich z.B. alle Bücher angezeigt haben möchte, die ich als gelesen markiert habe und anschließend mit dem Textfeld suchen möchte.

Hier sind meine Elemente:

Listenfeld: lstDateien
Suchfeld: txtSuche
Checkbox 1: chkFilterFavoriten
Checkbox 2: chkFilterGelesen

Hier ist mein bisheriger Code zur Suche mit Textfeld:
Code:

Private Sub txtSuche_Change() 'Gibt die Quelle und das Kriterium für die Suche an
Dim strKriterium As String
strKriterium = "ReiheSerieTitelAutor LIKE '*" & Me!txtSuche.Text & "*'"
Debug.Print strKriterium
Me!lstDateien.RowSource = "SELECT * " & _
"FROM qryReiheSerieTitelUntertitelAutorFuerFormBuecherFertig " & _
"WHERE " & strKriterium & " "
Me!lblDateien.Caption = Me.lstDateien.ListCount & " Bücher"
Me!lstDateien = Me!lstDateien.ItemData(0) 'wird der erste Datensatz im Unterformular geöffnet
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe jemand kam´nn mir helfen *Smilie

Vielen Dank

anpejo

:)

Beaker s.a. · 5. September 2016

Code:

strKriterium = "ReiheSerieTitelAutor LIKE '*" & Me!txtSuche.Text & "*' AND TabFeldGelesen = " & Me!chkFilterGelesen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder ?

Kyron9000 · 5. September 2016

...oder...
Code:

strKriterium = "ReiheSerieTitelAutor LIKE '*" & Me!txtSuche.Text & "*'"
If Me.chkGelesen = True Then
strKriterium = strKriterium & " AND Gelesen = True "
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

..oder...
Code:

If Len(Me.txtSuche.Text) = 0 Then
strKriterium = ""
Else
strKriterium = "WHERE ReiheSerieTitelAutor LIKE '*" & Me!txtSuche.Text & "*'"
If Me.chbGelesen = True Then
strKriterium = strKriterium & " AND Gelesen = True "
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber, alles ungetestet!

Beaker s.a. · 5. September 2016

Hallo,
Ja, besser *Smilie
Man benötigt aber, so oder so, ein zusätzliches Ereignis um den Filter
zurücksetzen zu können.
Edit: hat sich überschnitten.

Ich würde daher ein Kombi verwenden ("alle"; "gelesen"; "ungelesen"); -
kann ich alles in einer Prozedur behandeln.
gruss ekkehard

anpejo · 5. September 2016

Vielen Dank für die schnelle Antwort,
ich werde es gelich nach Feierabend ausprobieren :-)

Kyron9000 · 5. September 2016

#ok, zuwenig gelesen *Smilie

Office: (Office 2010) Listenfeld filtern mit Textfeld und Kontrollkästchen

Listenfeld filtern mit Textfeld und Kontrollkästchen

Listenfeld filtern mit Textfeld und Kontrollkästchen

Listenfeld filtern mit Textfeld und Kontrollkästchen

Listenfeld filtern mit Textfeld und Kontrollkästchen - Similar Threads - Listenfeld filtern Textfeld

Listenfeld im Endlosformular

Listenfeld aus Textfeld heraus füllen

4 Suchfelder ein Listenfeld per Suchbutton filtern

Listenfeld mit Kombinationsfeld filter = Listenfeld bleibt leer

Listenfeld filtern

ungebundenes Listenfeld filtern

Listenfeld filtern