(06/12/2019, 20:42)sefer1975 yazdı: "KmtListeAl" komutunun olay yordamıyla nasıl sağlarım.

MdlGrupladaki GrupOkulNo fonksiyonun kodunu aşağıdaki ile değiştirerek dener misiniz?

Dim OgNoRS As New ADODB.Recordset

Dim sOrGu, TxtOgrNo As String

TxtOgrNo = ""

sOrGu = " SELECT TblEvciTakip.tblono, TblOgrenci.tckimlikno, TblOgrenci.adısoyadı, TblOgrenci.okulno, TblEvciTakip.evvcicıkıstarihi,  " & _

        " TblEvciTakip.evcidonustarihi  " & _

        " FROM TblOgrenci INNER JOIN TblEvciTakip ON TblOgrenci.sirano = TblEvciTakip.ogrtc  " & _

        " WHERE (((TblEvciTakip.evvcicıkıstarihi) Between " & CLng(BasTrh) & " And " & CLng(BitTrh) & ")) OR  " & _

        " (((TblEvciTakip.evcidonustarihi) Between " & CLng(BasTrh) & " And " & CLng(BitTrh) & ")) OR  " & _

        " (((TblEvciTakip.evvcicıkıstarihi)<=" & CLng(BasTrh) & ") AND  " & _

        " ((TblEvciTakip.evcidonustarihi)>=" & CLng(BitTrh) & "))  " & _

        " ORDER BY TblEvciTakip.evvcicıkıstarihi"



    OgNoRS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Do While Not OgNoRS.EOF 'her öğretmen için NÖBET tablosuna isim ekle

        TxtOgrNo = TxtOgrNo & "," & OgNoRS.Fields(0)

        Debug.Print OgNoRS.Fields(0)

        OgNoRS.MoveNext

    Loop



GrupOkulNo = Mid(TxtOgrNo, 2)

OgNoRS.Close

---

Şimdilik sadece buton kodunu düzelttim diğer yerleri inceleme fırsatım olması modeldeki kod sadece başlangıç ve bitiş tarihleri aynı olanları aldığı için butona basınca değer göstermiyordu kriterleri değiştirince sorun düzeldi gibi geldi bana ama dilerim diğer yerlerdeki yapı bozulmamıştır.