Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama

Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama (/konu-acilir-kutu-ile-tumu-ve-secilen-kaydi-sorgulama.html)

Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - fevzettinciftci - 15/06/2023

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.

RE: Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - ozanakkaya - 16/06/2023

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

RE: Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - fevzettinciftci - 16/06/2023

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.

RE: Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - fevzettinciftci - 16/06/2023

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

RE: Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - ozanakkaya - 16/06/2023

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

RE: Açılır Kutu İle Tümü Ve Seçilen Kaydı Sorgulama - fevzettinciftci - 16/06/2023

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