liste kutusunun tıklandığında olayına
Me.txtIsımAktar = Me.TumListe.Value
kodu yazılı, bu kodun hemen altına Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Kimlik] = " & Str(Nz(Me![TumListe], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
kodu ekleyerek deneyiniz,