Merhabalar, personel bilgilerini ve hobilerini girdiğim iki tablo ve form var. Ayrı bir hobi sorgulama formunda açılır kutu ile hobilere göre sorgulama yaptırmak istiyorum. Açılır kutuda (Tümü) seçili ise Listeye tüm boş ve dolu kayıtların gelmesini, açılır kutuda başka bir değer varsa (örneğin yüzme) sadece o hobiye sahip kişilerin bilgilerini getirmesini istiyorum. Forumda örneklere çok baktım ama bulamadım. Yardımcı olursanız sevinirim. Örneğimi ekliyorum.

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

Sorguyu kaldırdığınız için Form açılışta hata verdi. Sorguyu Formun kayıt kaynağından kaldırınca düzeldi. Emeğinize sağlık çok teşekkür ederim.

Sorgu sonucunu Rapor da Tarih sırasına nasıl dizebiliriz?

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

Vba sayfasında yukarıdaki kodu aşağıdaki ile değiştirerek dene,

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

Vba sayfasında bu koddan 2 tane var.

Ayrıca lütfen konularını Site Kurallarına uygun olarak aç. Konu açtıysan aynı konudan tekrar açma

Evet hocam oldu. Teşekkür ederim tekrar emeğinize sağlık.