Sadece recordset i tanımlarken sorguya kriter eklemek yeterli olmalı
Recordset için kullandığınız sorgunun kodunu yazar mısınız?

teşekkürler admin gözümden kaçmış ama yine de tarihlerde bir sıkıntı var
başlama ve bitiş tarihlerine göre filtreleyeceğim ama mantığını kafamda oturtamadım
bu tabloda kolay olsun diye ay başlangıç ve bitiş günleri var ama böyle olmak zorunda değil
yani ocak ayında başlayıp temmuzun ortasında da bitebilir bu kadar standart olmak zorunda değil
elma ocak ayı ortasında gelmiş mayısın sonunda bitmiş olabilir veya herhangi bir meyve 
tek şart aynı kayıttaki başlama tarihi bitiş tarihinden küçük
bizde liste almak istediğimizde formdan girdiğimiz tarihler arasında tablodaki meyveleri sayacağız
nasıl bir kriter olmalı acaba yanlış mantık mı kuruyorum çözemedim

---

(27/03/2020, 11:24)berduş yazdı: Sadece recordset i tanımlarken sorguya kriter eklemek yeterli olmalı
Recordset için kullandığınız sorgunun kodunu yazar mısınız?

strSQL = "SELECT Tablo1.id, Tablo1.meyveler, Tablo1.firma, Tablo1.bastarih, Tablo1.bittarih FROM Tablo1" & _

        " WHERE Tablo1.firma='" & [Metin13] & "'" & _

        " AND not isnull(meyveler)" & _

        " AND Tablo1.bastarih >= #" & Format([Metin9], "dd-mm-yyyy") & "#" & _

        " AND Tablo1.bastarih <= #" & Format([Metin11], "dd-mm-yyyy") & "#;"

bunu mu kastettiniz

acaba başlama ve bitiş tarihleri için ilk ve son tarih mi belirlemeliyim

Kodda bir hata göremedim nasil bir hatalı sonuç üretiyor

hatalı sonuç değil ama şimdi eklediğim örnekte 3. kayıta ekleyip sildiğim limon hesap dışı kalması gerekmiyor mu

---

başlama 01.02.2020 bitiş 29.02.2020 firma A için 3. Kayıttaki meyveler "Extra filtreli" de hesaplanmalı mı hesaplanmamalı mı

(27/03/2020, 12:35)accessman yazdı: hatalı sonuç değil ama şimdi eklediğim örnekte 3. kayıta ekleyip sildiğim limon hesap dışı kalması gerekmiyor mu

Bu dosyayı indirdim denedim Limon 9 oluyor sizde neden 10 çıkmış.Ayrıca öncedende yazdığım gibi alttaki gereksiz kodlar fazlalık.Diğer dosyadan kalmış.

Dim arr
ReDim arr(1 To scr.Count, 1 To 2)
Erase arr