Merhaba, uygulamanızdaki sorguyu kaldırdım, ölçüt için forma fonksiyon ekledim. İnceleyip olumlu/olumsuz bildirimde bulununuz

Dim GKriter As String



GKriter = "WHERE ((Tarih) Between [Forms]![FormKameraUcusSorgula]![txtT1] And [Forms]![FormKameraUcusSorgula]![txtT2])"



    If Not IsNull(Me.cmbKuvvet) And Me.cmbKuvvet <> "(Tümü)" Then

        GKriter = GKriter & " AND [Kuvvet] = """ & Me.cmbKuvvet & """ "

    End If

    

    If Not IsNull(Me.cmbKamera) And Me.cmbKamera <> "(Tümü)" Then

        GKriter = GKriter & " AND [KameraSeriNo] = """ & Me.cmbKamera & """ "

    End If

    

    If Not IsNull(Me.cmbArizaCinsi) And Me.cmbArizaCinsi <> "(Tümü)" Then

        GKriter = GKriter & " AND [ArizaCinsi] = """ & Me.cmbArizaCinsi & """ "

    End If



Me.Rapor.RowSource = "SELECT IdUcus, Tarih, Kuvvet, VardiyaSaati, Yki, KuyrukNo, KameraSeriNo, DevralisSaati, DevredilisSaati, KalkisYeri, InisYeri, ArizaCinsi, GorulenHata, YapilanIslem, Sonuc, SahaPersoneli, Aciklama FROM UcusTakip " & GKriter





Me!txtT1 = CDate("01/" & Month(Date) & "/" & Year(Date))

Me!txtT2 = DateAdd("d", -1, DateAdd("m", 1, Me!txtT1))

    

Rapor.Visible = True

Me.Rapor.Requery