Hic error gelmeden devamli aramak istiyorsan on local error resume next isini görür herhalde ya da bir döngü kullan do data1. recordset. move next... .. if data1. recordset. eof = true ' sona geldiyse data1. recordset. movefirst loop until data1. recordset. eof = true ama bu sonsuz bir döngü oldu.. neyse

Sagolun, Sanırım anlatamadığım kısmı bu bir hata değil bir uyarı veriyor kayıt bulunamadığı için ve ben sql kullanmıyorum. Çünkü bilmiyorum hiç kullanmadım. şimdi okur2000 arkadaşımın yazdığını yapsam çalışırmı yani bu kon için öncelikle databasei sql koduyla bağlamak mı lazım hiçbir fikrim yok aynen yazar denerim ama inşallah olur. Bu arada ben şu şekilde yapıyorum arama işlemini data1. recordset. index= &quot; icindearanantablonunindexi &quot; data1. recordset. seek &quot;=&quot;, aranan Sanırım bu şekilde kullanım çok az olduğundan sorum anlaşılamıyor. Bütün programda bu şekilde kullandım mümkünse bunun cevabı çok daha fazla işime yarar.

bende de aynı sorun vardı şu şekilde hallettim. ama arama yaparken değil. data nesnesi yerine kendim 4 buton kodum ve bunlara data nesnesi üzerinde ki butonların özelliğini verdim . mesela son kayıda gelince next'e basınca kayıtlar sıfırlanıor ve if text1=&quot;&quot; then msgbox end if diyerek hallediyorum. ama bilmiyorum işine yarar mı belki bi şeyler çağdıştırır sana. bu arada benim de bir sorum olcak ben arama yapamıyorum. yani içinde arama yapılacak tablonun indexini nasıl bulacam. nerden bulacam? mesela tabloda 2 alan var kullanıcının tercşhş bırakıp istediği alandan atama yapmasını isteyecem nasıl olacak bu?

sonsuz döngüden cikman icin kac kere istiyorsa for next döngüsü kullanmalisin dim a do FOR a=0 to 5 data1. recordset. move next... .. if data1. recordset. eof = true ' sona geldiyse data1. recordset. movefirst NEXT loop until data1. recordset. eof = true bu sana 5 kez durmadan arama yaptirir

on error goto? ne biliyim ya yazdıkların bitek bunu anımsatıyo bana ))

Selam bu konuyu yine sormuştum fakat aldığım yanıtlar bu sorunu çözmedi bende başka bir şekle dönüştürdüm kodları ve bu ihtiyaçtan kurtulmaya çalıştım. Fakat şimdi gene karşıma çıktı ve mümkünse bu sefer çözümü bulmak istiyorum size zahmet bu konuda yardımlarınızı bekliyorum sorum şu. Databasede bir arama yaptırmak istiyorum fakat üstüste birçokkez ve herseferinde nocurrent record çıkması işi engelliyor. Acaba kayıt bulamayınca bu uyarıyı vermemesini nasıl sağlayabilirim. Teşekkürler...

slm daha önce ne örnekler verdiler bilmiyorum ama birde şu kodu dene. SQL = &quot;SELECT FROM TABLO WHERE LIKE '&quot; &amp; TEXT1 &amp; &quot; ' ORDER BY ;&quot; Set rst = datab. OpenRecordset If rst. RecordCount = 0 Then MsgBox &quot;Kayıt bulunamadı&quot; Else rst. MoveLast: rst. MoveFirst Do Until rst. EOF ' burada ne ypmak istiyorsan yaz tabii kod olarak )) rst. MoveNext Loop End If rst. Close valla bu kod bende sorunsuz çalışıyor ve no current record hatası vermiyor.