Skip to main content

AccessTr.neT


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

fevzettinciftci
fevzettinciftci
5
375

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

Çözüldü #1
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.
.rar örnek.rar (Dosya Boyutu: 42,45 KB | İndirme Sayısı: 1)
Cevapla
Çözüldü #2
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
.rar Açılık Kutu Filtrele_Sld.rar (Dosya Boyutu: 47,25 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
Sorgu sonucunu Rapor da Tarih sırasına nasıl dizebiliriz?
Cevapla
#5
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
Cevapla
#6
Evet hocam oldu. Teşekkür ederim tekrar emeğinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task