Ayrıca süzülen veriye tıklayınca form üzerinde o veriye gitmesi için, list1'in güncellenme sonrasına
Kod:
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SNUM] = " & Str(Nz(Me![Liste1], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark