ga naar welbepaald record

[frin]

Korte inleiding :

ttnr (tabel 1) is uniek en heeft meerdere opmerkingen (tabel 2)

de database werkt als ik beneden navigeer met de recordset

mijn doel is nu op het formulier een veld met keuzelijst (bron tabel 1 : ttnr) - ik selecteer de ttnr en dan zou dit record moeten gefilterd worden

zit vast

 

[sis123]

code =

Private Sub tnummer_AfterUpdate()
' Het record zoeken die overeenkomt met het besturingselement
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ttnr] = '" & Me![tnummer] & "'"
Me.Bookmark = rs.Bookmark


End Sub