Set rs = Me.Recordset.Clone
'rs.FindFirst "[kid] = " & Str(Nz(Me![Listekonu], 1))
rs.FindFirst "[kid] = '" & Trim(Str(Nz(Me![Listekonu], 1))) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Form.Recalc
Yukarıda '(üst tırnak) içine aldığım satır; sayı için kullanılıyor.
Yani kid alanı sayı olsaydı kod çalışırdı. kid alanı metin olunca aşağıdaki kodu (4. satır) kullanmanız gerekiyor.