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':
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 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':
Code:
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
Laatst bewerkt door een moderator: