(04/01/2011, 02:26)Hayri16 yazdı: Ben de uğraşıyorum. Ayrılmazsan beraber çözeriz bu işi ;)

---

1 dk
rs.Open "TblDosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

yukarıda açtığın dosya "TblDosyalar" aşağıda dcountla sorguladığın ise Tablo adlı bir değişken;

If DCount("Dosya_yolu", Tablo, "Dosya_yolu='" & sCurDir & sCurFile & "'") > 0 Then
şöyle denesen?
If DCount("Dosya_yolu", "TblDosyalar", "Dosya_yolu='" & sCurDir & sCurFile & "'") > 0 Then

Hayri bey DCount fonksiyonu accesste sorunsuz çalışıyor. Sorun vb6 da DCount foksiyonunun olmaması.
Sayın alpeki99

SELECT Count(Alan Adı) As Deger FROM tablo_adı WHERE tablodaki_alan=Şart

bu kodu önerdi fakat onuda bir türlü çalıştıramadım. İntette birkaç yerde daha kodun kullanımını inceledim ama uygulayamadım.
üsteki tablo ve tbldosyalar olayına gelince onu örnek diye eklemiştim kodları hızlıca geçerken tablo diye eklemişim. Düzelttim.