Kontrollkästchen Mehrfachfilter

[90_Cristel]

Hallo Zusammen,

Vielleicht kann mir einer von euch bei meinem Problem helfen, leider komme ich absolut nicht weiter.
In einem Hauptformular habe ich Kontrollkästchen gesetzt, die Ergebnisse sollen in einem Ufo angezeigt werden.
Nun möchte ich, dass ich quasi eine Multiselektion der Kontrollkästchen durchführen kann und mir die jeweiligen Ergebnisse im Ufo angezeigt werden.

Ich habe für  drei unterschiedliche Airlines "Group" (Lufthansa, Swiss und Austrian) und drei unterschiedliche Flugzeugtypen "AC_Types" (A319,A320 und A321) jeweils ein Kontrollkästchen erstellt.  Diese 6 Kontrollkästchen können ausgewählt werden und über einen Button "Filter" dann die Daten auswerfen.

Momentan kann ich mit dem folgenden Code, genau eine Zuordnung treffen. D.h. ich kann bei der Airline nur Lufthansa und A319 filtern. Dabei möchte ich z.B. zwei Airlines, Lufthansa und Swiss auswählen und einen Flugzeugtypen A319.

Weiß jmd, wie ich die Schleife verändern muss? Lieben Dank

Private Sub cmdfilter_Click()
Dim strfilter As String

If Me.optLufthansa Then
strfilter = strfilter & " and Group = 'Lufthansa'"
End If

If Me.optSWISS Then
strfilter = strfilter & " and Group = 'Swiss'"
End If

If Me.opt319 Then
strfilter = strfilter & " and AC_Type = 'A319'"
End If

If Len(strfilter) > 0 Then strfilter = Mid(strfilter, 6)

Me.Filter = strfilter
Me.FilterOn = True

End Sub

[MzKlMu]

Hallo,
die Filterung über die Klartexte deutet schon mal auf ein falsches Datenmodell hin.
Filterungen erfolgen in einer Datenbank im Regelfall über entsprechende Schlüsselzahlen.
Hier sind als 3 Tabellen notwendig.

- Airlines
- Typen
- TypZuAirline

In der 3. Tabelle werden Airlines und Typen zusammengeführt in je einem Datensatz.
Dabei werden aber die Primärschlüssel von Airline und Typ jeweils als Fremdschlüssel gespeichert.

Wie ist denn bei Dir die zu Grunde liegende Tabelle aufgebaut ?

[90_Cristel]

Hallo Klaus,
erst mal vielen Dank für deine Antwort.

Ich habe das alles in einer Tabelle gespeichert. Wusste nicht, dass es später beim Filtern Probleme machen könnte.
Ich versuche es mal mit den 3 Tabellen.