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
Merhaba, uygulamanızdaki sorguyu kaldırdım, ölçüt için forma fonksiyon ekledim. İnceleyip olumlu/olumsuz bildirimde bulununuz