Sayın cttm98,
Set rs = Me.Recordset.Clone
rs.FindFirst "[kid] = '" & Trim(str(Nz(Me![Listekonu], 1))) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Form.Recalc
yazdım ve düzeldi, çok teşekkür ederim.
"Oyun bitince şah ve piyon aynı kutuya atılır "