Liste kutusundan kayıt getirme için ise, Liste21'in güncelleştirme sonrası olayına
Private Sub Liste21_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Kimlik] = " & Str(Nz(Me![Liste21], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
yazın.