Office: (Office 2010) Mehrfachfilter im gleichen Feld

ios707 · 7. Januar 2021

von Nouba

... Intersect ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für das Stichwort, wieder was gelernt. Diese Seite hier fand ich dazu ganz interessant, weil ich selbst auch gerne Mengendiagramme verwende um die Wirkungsweise von Joins zu visualisieren:

https://blog.jooq.org/2015/10/06/you...-often-enough/

Jack Raiden · 20. Juni 2016

Das läuft ja schon fast so wie ich es haben wollte. :-) Vielen Dank abs17 und Kyron9000. Ich würde gern nur noch ein paar Schönheitsfehler beseitigen. Zum einen wie kann ich die Markierungen in der Liste nach dem Klick auf Filter Off wieder aufheben? Ich habe es mal damit versucht aber das hat leider nicht geklappt :-)
Code:

Me.RecordSource = "qryQualifikationen"
Me.lstQualifikation = Null
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zum anderen, wäre es evtl. möglich den Code so zu gestalten, dass wenn nur eine Qualifikation ausgewählt wird, alle Personen angezeigt werden die über diese Qualifikation verfügen?

ebs17 · 20. Juni 2016

dass wenn nur eine Qualifikation ausgewählt wird, alle Personen angezeigt werden die über diese Qualifikation verfügen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Code berücksichtigt wechselnde Anzahlen in der Auswahl. Der Hinweis in #2 (farbige Markierung) gilt immer noch.
Code:

Me.lstQualifikation = Null
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein Listenfeld mit Mehrfachauswahl hat stets den Rückgabewert Null. Eine Zuweisung in dieser Form bringt also nichts.
Genau, wie das Listenfeld per VBA in Schleife auszuwerten ist, sind die Auswahlen per Schleife wieder zurückzusetzen.

Nouba · 20. Juni 2016

Hallo,

Me.lstQualifikation.RowSource = Me.lstQualifikation.RowSource setzt die Auswahl zurück.

Kyron9000 · 20. Juni 2016

kannst so versuchen, wenn du möchtest...
Code:

Option Compare Database
Option Explicit

Private Sub btnFilter_Click()
Dim ctl As Control
Dim varItm As Variant
Dim varFilter As Variant
Dim sIn As String
Dim sSQL As String
Dim i As Integer
Set ctl = Me.lstQualifikation
For Each varItm In ctl.ItemsSelected
If varFilter "" Then varFilter = varFilter & ","
varFilter = varFilter & ctl.Column(0, varItm)
i = i + 1
Next varItm
sIn = "In (" & varFilter & ")"

If Len(varFilter) > 0 Then
If i > 1 Then
sSQL = " SELECT tblpersonen.persovorname, " _
& " tblpersonen.personachname, " _
& " tblqualifikationen.qualilegenidref, " _
& " tbllegende.LegenBezeichnung " _
& " FROM ((SELECT Q2.qualipersoidref, " _
& " Count(Q2.qualiLegenIDRef) As Anz " _
& " FROM tblqualifikationen AS Q2" _
& " WHERE (( ( Q2.qualilegenidref ) " & sIn & ")) " _
& " GROUP BY Q2.qualipersoidref " _
& " HAVING (( ( Count(Q2.qualilegenidref) ) >= 2 ))) AS Q " _
& " INNER JOIN tblpersonen " _
& " ON Q.qualipersoidref = tblpersonen.persoid) " _
& " INNER JOIN (tbllegende " _
& " INNER JOIN tblqualifikationen " _
& " ON tbllegende.legenid = " _
& " tblqualifikationen.qualilegenidref) " _
& " ON tblpersonen.persoid = tblqualifikationen.qualipersoidref " _
& " WHERE (( ( tbllegende.legenid ) " & sIn & ")) " _
& " ORDER BY tblqualifikationen.qualidatumbis DESC "
Else
sSQL = " SELECT tblpersonen.persovorname, " _
& " tblpersonen.personachname, " _
& " tblqualifikationen.qualilegenidref, " _
& " tbllegende.LegenBezeichnung " _
& " FROM tblpersonen " _
& " INNER JOIN (tbllegende " _
& " INNER JOIN tblqualifikationen " _
& " ON tbllegende.legenid = tblqualifikationen.qualilegenidref)" _
& " ON tblpersonen.persoid = tblqualifikationen.qualipersoidref" _
& " WHERE (( ( tbllegende.legenid ) " & sIn & ")) " _
& " ORDER BY tblqualifikationen.qualidatumbis DESC "

End If
Me.RecordSource = sSQL
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 20. Juni 2016

Noch einmal zur Vollständigkeit:
Code:

& " HAVING (( ( Count(Q2.qualilegenidref) ) >= 2 ))) AS Q " _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Festeinstellung der Auswahlenanzahl bei variablen Auswahlen zerstört die Anwendungslogik und wird somit auch falsche Ergebnisse zulassen.

Kyron9000 · 21. Juni 2016

*Smilie ok hast recht, habe ich zuerst nicht daran gedacht!
Könnte auch so funktionieren!
Code:

Option Compare Database
Option Explicit

Private Sub btnFilter_Click()
Dim ctl As Control
Dim varItm As Variant
Dim varFilter As Variant
Dim sIn As String
Dim sSQL As String
Dim i As Integer
Set ctl = Me.lstQualifikation
For Each varItm In ctl.ItemsSelected
If varFilter "" Then varFilter = varFilter & ","
varFilter = varFilter & ctl.Column(0, varItm)
i = i + 1
Next varItm
sIn = "In (" & varFilter & ")"

If Len(varFilter) > 0 Then
sSQL = " SELECT tblpersonen.persovorname, " _
& " tblpersonen.personachname, " _
& " tblqualifikationen.qualilegenidref, " _
& " tbllegende.LegenBezeichnung " _
& " FROM ((SELECT Q2.qualipersoidref, " _
& " Count(Q2.qualiLegenIDRef) As Anz " _
& " FROM tblqualifikationen AS Q2" _
& " WHERE (( ( Q2.qualilegenidref ) " & sIn & ")) " _
& " GROUP BY Q2.qualipersoidref " _
& " HAVING (( ( Count(Q2.qualilegenidref) ) >= " & i & " ))) AS Q " _
& " INNER JOIN tblpersonen " _
& " ON Q.qualipersoidref = tblpersonen.persoid) " _
& " INNER JOIN (tbllegende " _
& " INNER JOIN tblqualifikationen " _
& " ON tbllegende.legenid = " _
& " tblqualifikationen.qualilegenidref) " _
& " ON tblpersonen.persoid = tblqualifikationen.qualipersoidref " _
& " WHERE (( ( tbllegende.legenid ) " & sIn & ")) " _
& " ORDER BY tblqualifikationen.qualidatumbis DESC "
Me.RecordSource = sSQL
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 21. Juni 2016

Wäre jetzt nur noch zu klären, ob qualiDatumBis aus der ursprünglichen Aufgabenstellung auch angezeigt werden soll (daher hatte ich meine Abfrage deutlich umgestellt) oder nicht.

Kyron9000 · 21. Juni 2016

...das Datum ist keine gr. Sache, muss ja nur zur Anzeige gebracht werden.
Einfach einfügen...
Code:

& " tbllegende.LegenBezeichnung, " _
& " tblqualifikationen.qualidatumbis " _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn es aber 2 Daten werden sollten, sieht es wieder anders aus, da müsste man das Letzte verwenden!
Denke aber, das es keine 2 Daten geben wird.

Jack Raiden · 24. Juni 2016

\@Nouba
Vielen Dank. Läuft perfekt *Smilie

@Kyron9000 und @ebs17
Euch beiden ebenfalls vielen Dank. Jetzt funktioniert es einwandfrei. *Smilie

Ich bin mir zwar nicht sicher was damit gemeint ist

Wenn es aber 2 Daten werden sollten, sieht es wieder anders aus, da müsste man das Letzte verwenden!
Denke aber, das es keine 2 Daten geben wird.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber ich habe mittlerweile ein paar mehr Felder zur Anzeigen hinzugefügt als die 4 aus #22 und es funktioniert soweit ganz gut. *happy

Office: (Office 2010) Mehrfachfilter im gleichen Feld

Mehrfachfilter im gleichen Feld

Mehrfachfilter im gleichen Feld

Mehrfachfilter im gleichen Feld

Mehrfachfilter im gleichen Feld

Mehrfachfilter im gleichen Feld - Similar Threads - Mehrfachfilter gleichen Feld

Buchsatz mit Word: untere Zeile der Seiten immer auf der gleichen Höhe

konti aufzählung und wert gleicher konti zusammenfassen

KKLEINSTE mit gleichen Werten

Formatierung eines Datumsfelds, wenn das gleiche Datum woanders erscheint

Antwort-E-Mail-Adresse gleich Empfang-E-Mail-Adresse

Mehrere Abfragen mit gleichen Kriterien in bestimmten Felder

Formel für gleiche Werte suchen und bei übereinstimmung einen andern Wert schreiben