sn yorum70;

 

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.