Sorunuzdan anladığım kadarıyla;

-Form1'deki "Liste8" liste kutusunun Denetim kaynağını silerek ilişkisiz yap,
-Formun kayıt kaynağını gelenevrak olarak değiştir,
-Liste8'in "güncelleşme sonrasında" olayındaki kodu

Private Sub Liste8_AfterUpdate()

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[Sayı]=" & Str(Nz(Me![Liste8], 0))

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

End Sub

ile değiştir.