Filter via Togglebutton in Formularlistbox

Computer: Software & Programmierung Microsoft Access
#1

Ich habe folgendes Problem:

Ich verwende Access 2000. (
Nr | Name | Jahr_1 | Jahr_2 | Jahr_3
1 | Tätigkeit xy | x | x |
2 | Tätigkeit ab | x | | x
3 | Tätigkeit cs | | x | x
4 | Tätigkeit de | x | | x

In Tabelle2 steht der Bearbeitungszustand:

Nr | Name | Status
1 | Tätigkeit xy | started
2 | Tätigkeit ab | started
3 | Tätigkeit cs | finished
4 | Tätigkeit de | started

Mit Query1 filtere ich nach nur „started“ und mit Query2 nach nur „finished“. In einem Formular habe ich 2 ListBoxen, die jeweils eine Query ausgeben.

Mein Vorhaben ist jetzt, dass ich durch ToggleButtons in beiden ListBoxen nach dem Jahr filtern will, sprich:

Aktivierung TB_Jahr_1 zeigt in beiden ListBoxen alle Einträge die bei Jahr_1 ein „x“ haben; zusätzliche Aktivierung von TB_Jahr_2 zeigt nur noch die Einträge, die in Jahr_1 UND Jahr_2 ein „x“ haben. Bei Deaktivierung des jeweiligen ToggleButtons soll der entsprechende Filter wieder entfernt werden.

How to?

Schon mal Danke im Voraus
elo_taran

#2

Nimm mal anstelle der "x"e Ja/Nein-Felder, das ist der Aufgabenstellung angemessener (und die redundante Verteilung der Daten auf 2 verschiedene Tabellen sowie die Denormalisierung der Jahresangaben erschließt sich auch nicht unmittelbar…) Aber des Menschen Wille ist ja bekanntermaßen sein Himmelreich:

Private Sub FiltereDasListenFeld()
Me!MeinListenfeld.Rowsource = "SELECT Nr, Name, Status FROM Tabelle2 " " & \_
 "WHERE Nr IN (SELECT Nr FROM Tabelle1 " & \_
 "WHERE Jahr\_1 = " & IIF(Me!TB\_Jahr\_1,"True","False") & \_
 " AND Jahr\_2 = " & IIF(Me!TB\_Jahr\_2,"True","False") & \_
 " AND Jahr\_3 = " & IIF(Me!TB\_Jahr\_3,"True","False") & ")"
end sub
 
Private Sub TB\_Jahr\_1\_Click()
 Call FiltereDasListenFeld
end sub
 
Private Sub TB\_Jahr\_2\_Click()
 Call FiltereDasListenFeld
end sub
 
Private Sub TB\_Jahr\_3\_Click()
 Call FiltereDasListenFeld
end sub

Gruß aus dem Norden
Reinhard Kraasch