Office: (Office 2010) Filter über zwei Spalten mit unterschiedlichen Kriterien

Verstummel · 13. September 2020

Hallo,
ich habe folgendes Problem mit der Filterung eines Formulares (geteiltes Formular).
Datensatzherkunft ist eine Abfrage aus drei Tabellen, welche so aussieht:

ID_Auftrag | Datum_Auftrag | Firma | Ladung
1 | 10.10.2020 | AA | X
1 | 10.10.2020 | B | X
2 | 10.10.2020 | HH | g
2 | 10.10.2020 | K | g
3 | 11.10.2020 | AA | X
3 | 11.10.2020 | C | X
4 | 11.10.2020 | LL | t
4 | 11.10.2020 | M | t

Ich möchte nun nach Firma AA und gleichzeitig nach ID_Auftrag filtern, daß folgendes Ergebnis dabei heraus kommt:

ID_Auftrag | Datum_Auftrag | Firma | Ladung
1 | 10.10.2020 | AA | X
1 | 10.10.2020 | B | X
3 | 11.10.2020 | AA | X
3 | 11.10.2020 | C | X

sprich suche nach Firma (AA) und wenn ID_Auftrag gleich ist, zeige dies an.

Ich hab das über ein Kombifeld im Formularkopf und über ein listenfeld mit Textfeld im extra Filterformular. Filtern nach der Firma kein Problem aber wie bekomm ich den dazu gehörigen zweiten Datensatz mit hinein.

Danke schon mal im Voraus
Verstummel

:)

ebs17 · 15. September 2020

Als vollständige Abfrage:
Code:

SELECT
*
FROM
AbfrageX
WHERE
ID_Auftrag IN
(
SELECT
ID_Auftrag
FROM
AbfrageX
WHERE
Firma = 'AA'
)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Verstummel · 15. September 2020

Hallo,
Danke für die schnelle Antwort.
Werde ich heute Abend gleich mal ausprobieren, und
versuchen mein Suchtextfeld mit ein zu binden.

Verstummel · 16. September 2020

Hallo,
als Abfrage funktioniert der Code hervorragend - Super!
Wenn ich ihn als Datensatzherkunft in Kombinationsfeld eintrage passiert letztlich nichts.
Ich bräuchte sowas als Filter für die Formularabfrage oder [WHERE Firma = 'AA'] sollte sich auf das Kombinationsfeld beziehen. Da ich variabel filtern möchte.

Vielen Dank
Verstummel

ebs17 · 16. September 2020

Code:

Private Sub IrgendeinEreignis()
Dim sSQL As String
sSQL = "SELECT * FROM AbfrageX WHERE ID_Auftrag IN (SELECT ID_Auftrag FROM AbfrageX" & _
" WHERE Firma = '" & Me.cboFirma & "')"
Me.RecordSource = sSQL

' oder
Dim sFilter As String
sFilter = "ID_Auftrag IN (SELECT ID_Auftrag FROM AbfrageX" & _
" WHERE Firma = '" & Me.cboFirma & "')"
Me.Filter = sFilter
Me.FilterOn = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Verstummel · 17. September 2020

Hallo ebs17,

Vielen Dank für deine große Hilfe. Jetzt funktioniert alles wie es soll.

Office: (Office 2010) Filter über zwei Spalten mit unterschiedlichen Kriterien

Filter über zwei Spalten mit unterschiedlichen Kriterien

Filter über zwei Spalten mit unterschiedlichen Kriterien

Filter über zwei Spalten mit unterschiedlichen Kriterien

Filter über zwei Spalten mit unterschiedlichen Kriterien - Similar Threads - Filter Spalten unterschiedlichen

Wert aus Datenzeile filtern & in eigene Spalte bringen

Text auflisten wenn Wert in gleicher Spalte enthält X

Filter: Spalten statt Zeilen

versch. Wörter (Farben) aus Text filter und in neue Spalte kopieren

spezialfilter Wert kann in jeder Spalte sein

Informationen aus mehreren Spalten vergleichen und ausgeben

Meherere unterschiedliche Werte einer Spalte aus einer anderen Spalte rausfiltern