A.S.C Filtre, Grafik ve Raporlama Eklentisi

[SORGU] Formda Sorguların Boş Gelmesi
#1
arkadaşlar merhaba bir form üzerinde 2 textbox var biri İL diğeri ilçe bu ikisinden herhangi birine yazdığım değere göre Subform da arama yapıyorum buluyorum
yalnız şöyle bir sorun oluyor örneğin il e göre aradıysam ilçe kaydı girilmemişse o kaydı getirmiyor sanırım diğer textbox sorgusu da çalışıp boş döndürüyor Criter alanına yazdığım koşullar aşağıdadır
İl İçin
Like "*" & [Forms]![Search]![Text2] & "*"

İlçe için
Like "*" & [Forms]![Search]![Text4] & "*"

bu sorunu yıllar önce çözmüştüm ama uzun zamandır access kullanmadığım için unuttum 


saygılarımla



  Alıntı
Bu mesajı beğenenler:
#2
Ben sorununuzu tam olarak anlayamadım. il ve ilçede arama yaptığımda bulabiliyorum diyorsunuz, sonra ile göre arama yaptığımda, boş döndürüyor diyorsunuz ?  Mm
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

YARDIMCI ARAÇ UYGULAMALARIM
Takvim Günü ve İş Günü Hesaplama (YENİ!)
Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)

BLOG SİTEM
A dan Z'ye Access Konuları (Güncel Bilgiler)



  Alıntı
Bu mesajı beğenenler:
#3
ekte bir örnek dosya koydum 
mesela bakın il ve ilçeye yazınca arama yapıyor
ama 
bursa yazınca kaydı getirmiyor nedeni ise bursanın ilçesinin yazılmaması
Subformun sorgu kaynağına bakarsanız kriter kısmına yazdığım formülde mi sorun var


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 21,6 KB / İndirilme: 11)



  Alıntı
Bu mesajı beğenenler:
#4
altformdaki kriterleri kaldırıp
ana formdaki kodları silip aşağıdaki kodları ekleyip deneyin dilerim işinize yarar
Visual Basic
  1. Private Sub Text0_Change()
  2. Dim Kriter As String
  3. Kriter = ""
  4. If Len(Me.Text0.Text & "") > 0 Then Kriter = Kriter & " and [il] like '*" & Me.Text0.Text & "*'"
  5. If Len(Me.Text2.Value & "") > 0 Then Kriter = Kriter & " and [ilçe] like '*" & Me.Text2.Value & "*'"
  6. Kriter = Mid(Kriter, 6)
  7. Me.bolge_subform.Form.Filter = Kriter
  8. Me.bolge_subform.Form.FilterOn = True
  9. End Sub


Visual Basic
  1. Private Sub Text2_Change()
  2. Dim Kriter As String
  3. Kriter = ""
  4. If Len(Me.Text0.Value & "") > 0 Then Kriter = Kriter & " and [il] like '*" & Me.Text0.Value & "*'"
  5. If Len(Me.Text2.Text & "") > 0 Then Kriter = Kriter & " and [ilçe] like '*" & Me.Text2.Text & "*'"
  6. Kriter = Mid(Kriter, 6)
  7. Me.bolge_subform.Form.Filter = Kriter
  8. Me.bolge_subform.Form.FilterOn = True
  9. End Sub





  Alıntı
Bu mesajı beğenenler:
#5
halil bey teşekkür ediyorum ama bunun form üzerinde bir çözümü lazım bana
çünkü 5-6 arama kriteri var 2 tane değil



  Alıntı
Bu mesajı beğenenler:
#6
istediğiniz kadar koşul ekleyebilirsiniz aslında,
ana forma aşağıdaki gibi bir yordam eklersiniz ve kriter metin kutularının güzncelleştirme olayından sonra bu yordamı çağırırsınız
Visual Basic
  1. Sub txtFiltre()
  2. Dim Kriter As String
  3. Kriter = ""
  4. If Len(Me.Text0.Value & "") > 0 Then Kriter = Kriter & " and [il] like '*" & Me.Text0.Value & "*'"
  5. If Len(Me.Text2.Value & "") > 0 Then Kriter = Kriter & " and [ilçe] like '*" & Me.Text2.Value & "*'"
  6. '...
  7. '...
  8. '...
  9. 'diğer koşullar
  10. Kriter = Mid(Kriter, 6)
  11. Me.bolge_subform.Form.Filter = Kriter
  12. Me.bolge_subform.Form.FilterOn = True
  13. End Sub


Visual Basic
  1. Private Sub Text0_AfterUpdate()
  2. txtFiltre
  3. End Sub
  4.  
  5. Private Sub Text2_AfterUpdate()
  6. txtFiltre
  7. End Sub
  8. 'diğer koşullar




Eklenti Dosyaları
.rar   AltFormFiltreleme_hy.rar (Boyut: 19,87 KB / İndirilme: 7)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Acces çapraz Sorguların Hesaplanması admylmaz@gmail.com 1 156 08-01-2021, 20:22
Son Mesaj: dsezgin
  Sorgudaki Miktar Toplam Olarak Gelmesi yanginci34 10 535 29-04-2020, 14:17
Son Mesaj: dsezgin
access-sql-9 [FORM] Liste Kutusunda Verilerin Yerine Sayıların Gelmesi Sorunu kurt 2 421 24-12-2019, 10:59
Son Mesaj: kurt
  [RAPOR] Raporda Otomatik Sıra Numarası Verirken Parametre Sorgusu Penceresi Gelmesi mmert06 6 880 23-01-2019, 02:37
Son Mesaj: mmert06
  [FORM] Bir alanında seçeceğim değer karşılığı bazı alanların pasif duruma gelmesi smartbutun@gmail.com 5 807 22-11-2018, 11:53
Son Mesaj: smartbutun@gmail.com
  [VBA] LİSTEDEN SEÇİLEN KAYDIN FORMA GELMESİ anno 4 1.840 02-12-2016, 01:27
Son Mesaj: solistis06
  [FORM] TextBox a yazarken veri gelmesi ccollezium 5 2.257 18-08-2016, 15:14
Son Mesaj: ccollezium
  [SORGU] sorguların görüntülenmesi onkay 3 893 22-06-2016, 22:19
Son Mesaj: onkay

Foruma Git:


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