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: 65)



  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: 87)
.png   açılan kutu çoklu sorgu.png (Boyut: 125,57 KB / İndirilme: 81)



  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: 105)
Ö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
access-sql-2 [FORM] Liste kutusu biçimlendirme... rafetgulmez 7 4.117 28-11-2025, 13:18
Son Mesaj: osman06
  [FORM] Seçili Tarihe Göre Filtreleme husem 3 311 25-09-2025, 00:25
Son Mesaj: halily
  çoklu Seçinle Kayıt Girme? kesoka 1 319 02-07-2025, 23:31
Son Mesaj: dsezgin
  Form üzerinde Ikili Filtreleme osmangezin@gmail.com 1 307 19-06-2025, 00:01
Son Mesaj: dsezgin
  Aynı Günleri Filtreleme Satir 7 614 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.057 18-02-2025, 08:49
Son Mesaj: mkoblayek
  çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction) kaburkan 4 425 09-01-2025, 13:26
Son Mesaj: celalll
  Access Ile Web Den Veri Almak Ve Güncelleme Yapmak. karamurat42 0 343 08-10-2024, 15:42
Son Mesaj: karamurat42

Foruma Git:


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