Lütfen kodları inceleyin, zaten oradan anlayacaksınız.

Private Sub Liste1_AfterUpdate()

    ' Denetime uyan kaydı bul.

    Dim rs As Object



    Set rs = Me.Recordset.Clone

    rs.FindFirst "[tc kimlik] = '" & Me![Liste1] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub