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
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 ?
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.