Office: (Office 2016) Listenfeld wird nicht immer gefüllt

Hallo alle Kenner,
in einer Datenbank sind die Werke verschiedener Komponisten mit ihren Werken erfasst. Über ein Kombinationsfeld werden z.B. die Kategorien ausgewählt und die entsprechen Werke in einem Listenfeld zusammengefasst. Das klappt auch fast immer. Nur bei der Auswahl einer Kategorie bleibt das Listenfeld leer. Der gleiche Code zeigt diese Auswahl auch in einer Abfrage. Die Komponisten werden in einem Hauptformular, die Werke in einem Unterformular ausgewählt, in dem die ID des Komponisten zuvor als Textfeld (tbKOMP) korrekt abgelegt wird. Die Zuordnung ALLER Werke des ausgewählten Komponisten wird ais Quelle der Werke als RecordSource problemlos an das Unterformular übergeben.

Nach Auswahl der gewünschten Kategorie im Unterformular in einer Kombibox (cbKAT) wird das Listenfeld (ListWerke) gefüllt. Das klappt sehr gut - nur bei EINER Kategorie - Auswahl bleibt die Liste leer.

Private Sub cbKAT_AfterUpdate()
...
Me.ListWERKE.RowSource = ""

sql = "select ...
"WHERE (((KOMPONIST.KOMP_ID)=tbKOMP) AND ((WERK_N.KATEGORIE)=cbKAT)) ORDER BY KOMPONIST.KOMP_NAME, WERK;"

Das Klappt wie gesagt für ALLE Einträge wunderbar in cbKAT - BIS auf EINEN.
sql als Auswahlabfrage funktioniert für alle Einträge, die in cbKAT aufgeführt sind.

Ich hoffe, das Problem hinreichend verständlich dargestellt zu haben und eine Lösung mit Eurer Hilfe näher zu kommen. Vielen Dank im voraus

Ebe

 

Hallo,
für mich leider nicht hinreichend verständlich. Lade doch eine kleine Demo DB hoch.