Onay kutusu ile çoklu filtreleme yapmak
#1
Merhaba, dsezgin hocam. Onay kutu ile çoklu filtreleme örneğinizi inceleyip kendi projeme uygulamak istiyorum. Fakat bunu 3 ayrı liste kutusuna nasıl uygulayabiliriz?


Eklenti Dosyaları
.rar   çoklu filtreleme.rar (Boyut: 54,76 KB / İndirilme: 67)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba, arkadaşlar formda birkaç tane örnekte açılan liste kutusu ile çoklu sorgulama (onay kutusu ile) çalışmalarını inceledim. Fakat bir türlü kendi projeme uygulayamadım. Ekteki ikinci resimdeki gibi.  Bu konuda bilgisi olan varsa yardım edebilir mi. Tşk. Resmi


Eklenti Dosyaları
.png   açılan kutu çoklu seçim.png (Boyut: 107,85 KB / İndirilme: 88)
.png   açılan kutu çoklu sorgu.png (Boyut: 125,57 KB / İndirilme: 83)



  Alıntı
Bu mesajı beğenenler:
#3
Dazi'in önerisini uygulayabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#4
dsezgin hocam ilginize teşekkür ederim. O konuyu inceledim. Benim tam istediğim açılan liste kutusunda çoklu sorgu yapmak. ekteki ikinci resimdeki gibi. Bunu kendi projeme bir türlü uyarlayamadım. Onay kutularını açılan listeye nasıl eklerim. Tşk.



  Alıntı
Bu mesajı beğenenler:
#5
(06-10-2021, 14:03)cybercop demiş ki: Merhaba, dsezgin hocam. Onay kutu ile çoklu filtreleme örneğinizi inceleyip kendi projeme uygulamak istiyorum. Fakat bunu 3 ayrı liste kutusuna nasıl uygulayabiliriz?


Visual Basic
  1. Sub SUZGEC()
  2. Dim Kntrol As Control, Ay, AyD, Kosul As String, Sayac As Long, Tablo As Variant
  3. Tablo = Array(, "gelir", "gider", "nakit")
  4. For Each Kntrol In Me.Controls
  5. If Kntrol.Tag = "Aylar" Then
  6. If Kntrol.Value = -1 Then AyD = AyD & Replace(Kntrol.Name, "Onay", vbNullString) & ", "
  7. End If
  8. Next Kntrol
  9. If Len(AyD) > 0 Then Ay = "((Month(Tarih)) IN(" & Mid(AyD, 1, Len(AyD) - 2) & "))" Else Ay = vbNullString
  10. If InStr(1, Açýlan_Kutu12, ".") > 0 Then Kosul = Ay Else Kosul = "((Year(Tarih))=" & Me.Açýlan_Kutu12 & ") " & IIf(Ay <> "", " And ", vbNullString) & Ay
  11. For Sayac = 1 To 3
  12. Me.Controls("Liste" & Sayac).RowSource = "SELECT [" & Tablo(Sayac) & "].*, monthname(Month(Tarih)) As Ay, Year(Tarih) As YIL FROM [" & Tablo(Sayac) & "]" & IIf(Kosul <> "", " WHERE (" & Kosul & ")", vbNullString)
  13. Me.Controls("Liste" & Sayac).Requery
  14. Me.Controls("G" & Sayac) = DSum("tutar", Tablo(Sayac), Kosul)
  15. Next Sayac
  16. End Sub




.rar   çoklu filtreleme.rar (Boyut: 30,32 KB / İndirilme: 108)
Örneği inceleyebilirsiniz, Onay kutu isimlerini değiştirdim Tablolarda ay ve YIL alanlarını sildim, tarih alanına örnek veri girildi.



  Alıntı
Bu mesajı beğenenler:
#6
(07-10-2021, 16:33)cybercop demiş ki: dsezgin hocam ilginize teşekkür ederim. O konuyu inceledim. Benim tam istediğim açılan liste kutusunda çoklu sorgu yapmak. ekteki ikinci resimdeki gibi. Bunu kendi projeme bir türlü uyarlayamadım. Onay kutularını açılan listeye nasıl eklerim. Tşk.

Örnek dosyanızı eklerseniz yardımcı olmaya çalışırım.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Ana Form Ve Alt Formdaki Checkbox'lı Alanlardaki Verileri Buton Ile Null Yapmak. M_Kemal_Askeri 4 223 01-05-2026, 16:30
Son Mesaj: M_Kemal_Askeri
access-sql-2 [FORM] Liste kutusu biçimlendirme... rafetgulmez 7 4.218 28-11-2025, 13:18
Son Mesaj: osman06
  [FORM] Seçili Tarihe Göre Filtreleme husem 3 336 25-09-2025, 00:25
Son Mesaj: halily
  çoklu Seçinle Kayıt Girme? kesoka 1 357 02-07-2025, 23:31
Son Mesaj: dsezgin
  Form üzerinde Ikili Filtreleme osmangezin@gmail.com 1 334 19-06-2025, 00:01
Son Mesaj: dsezgin
  Aynı Günleri Filtreleme Satir 7 670 30-04-2025, 09:33
Son Mesaj: Satir
access-sql-20 [TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma mkoblayek 18 1.192 18-02-2025, 08:49
Son Mesaj: mkoblayek
  çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction) kaburkan 4 450 09-01-2025, 13:26
Son Mesaj: celalll

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi