Keuzelijst met invoervak, afhankelijk van een andere keuzelijst met invoervak

[FilDV]

Ik vat mijn probleem als volgt samen:

Ik heb 3 tabellen: 'File', 'Categoriëen' en 'Titels'

File : verschillende velden waaronder een veld [Categorie] en een veld [Titel]
Categoriëen: 1 veld: Categorie (prim. sleutel/Tekst)
Titels: 3 velden: Titel-id (Prim. sleutel/autonum.), Titel (Tekst) en Categorie (Tekst)


Ik wil een formulier maken, gebaseerd op de tabel 'File', waarop o.a. volgende velden staan:

[Categorie] en [Titel].

Beide zijn een keuzelijst met invoervak, respectievelijk gebaseerd op de tabellen tbl_Categoriëen en tbl_Titels.

Ik wil de keuzelijst 'Titel' (Keuzelijst_Titel) afhankelijk maken van de geselecteerde waarde in de keuzelijst 'Categorie' (Keuzelijst_Categorie), of met andere woorden, ik wil de mogelijkheden in de tweede keuzelijst filteren, afhankelijk van de geselecteerde waarde in het veld 'Categorie'.

Om dit te doen heb ik de volgende gebeurtenisprocedure ingesteld 'Na bijwerken' voor voor de 'Keuzelijst_Categorie':

-------------------------------------------------------------------------------------------------------------
Private Sub Keuzelijst_Categorie_AfterUpdate()

Dim sTitelSource As String

sTitelSource = "SELECT [tblTitels].[Titel]," & _
" [tblTitels].[Titel-id]," & _
" [tblTitels].[Categorie] " & _
"FROM tblTitels " & _
"WHERE [Categorie-id] = " & Me.Keuzelijst_Categorie.Value
Me.Keuzelijst_Titel.RowSource = sTitelSource
Me.Keuzelijst_Titel.Requery

End Sub
---------------------------------------------------------------------------------------------------------------------------

Wanneer ik een waarde selecteer met de Keuzelijst_Categorie, dan toont de Keuzelijst_Titel geen enkele waarde.

Kan iemand mij vertellen of ik hier op het juiste spoor zit en hoe ik dit eventueel moet oplossen?



Mvg,


FilDV











Ik slaag er niet in om