Probleem met combobox op subform

[brounswiel]

Ik heb een relationele database gemaakt die uit 3 tabellen bestaat, Entiteiten, Elementen en Gebreken. Daarbij behoren 3 formulieren met identieke namen.
Gebreken is een subform. van het subform. Elementen, dat op zijn beurt een subform. is van Entiteiten.
Ik heb in alle form. een combobox gemaakt. Zo kan ik met de combobox in form. Entiteiten een entiteit kiezen. Doordat er een relatie is gemaakt met de tabel Elementen, zal in het form. Elementen het eerste element zichtbaar worden, etc. etc. Het probleem is nu, dat de eerste keer als ik een keuze maak, alles goed functioneert en daarna niet meer. Hiervoor moet ik de applicatie opnieuw opstarten.
Als bijlage heb ik een uitgeklede versie bijgevoegd.
Wat doe ik fout????

 

[OctaFish]

Je moet de keuzelijsten op de subformulieren filteren met de in het parent formulier gekozen element, en dat doe je niet. Bovendien is de derde keuzelijst niet gefilterd, en dan gaat het sowieso niet werken.
Op het hoofdformulier moet je deze code gebruiken:

Private Sub ZoekEntiteit_AfterUpdate()
Dim rs As Object

    ' De record zoeken dat overeenkomt met het besturingselement
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & str(Nz(Me![ZoekEntiteit], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Me!sfrmElementen.Form!ZoekElement.Requery

End Sub

Op het eerste subformulier deze:

Private Sub ZoekElement_AfterUpdate()
Dim rs As Object
 
    ' De record zoeken dat overeenkomt met het besturingselement
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & str(Nz(Me![ZoekElement], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Me!sfrmGebreken.Form!ZoekGebrek.Requery
    
End Sub