A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Iki Tarih Arası Filtrelemede Hata
#1
Merhaba.

iki tarih arası filtreleme yapmaya çalışıyorum. Ancak aşağıdaki hatayı alıyorum.
[Resim: 89i8m73.png]

kullandığım kod da şu şekilde

Visual Basic
  1. Private Sub ara_flt_Click()
  2. Call Search
  3. End Sub
  4. Sub Search()
  5. Dim strCriteria, task As String
  6. Me.Refresh
  7. If IsNull(Me.ilk_tarih_flt) Or IsNull(Me.son_tarih_flt) Then
  8. MsgBox "tarih aralığı girin", vbInformation, "tarih aralığı gerekli"
  9. Me.ilk_tarih_flt.SetFocus
  10. Else
  11. strCriteria = "([giris_tarihi] >= #" & Me.ilk_tarih_flt & "# and [giris_tarihi] <= #" & Me.son_tarih_flt & "#)"
  12. task = "select * from listeAfrm where (" & strCriteria & ") order by [giris_tarihi]"
  13. DoCmd.ApplyFilter task
  14. End If
  15. End Sub




nerede hata yapıyorum? yardımcı olabilir misiniz.


Eklenti Dosyaları
.zip   KDV.zip (Boyut: 160,87 KB / İndirilme: 1)



  Alıntı
Bu mesajı beğenenler:
#2
alt formun filtrelenmesi isteniyorsa kodu aşağıdaki gibi düzenleyebilirsiniz?
eğer tarih girilmemişse tüm kayıtları gösterir
eğer tarihlerden biri girilmişse birine göre 2si de girilmişse 2sine göre filtreler
Visual Basic
  1. Sub Search()
  2. Dim strCriteria, task As String
  3. strCriteria = ""
  4. If Len(Me.ilk_tarih_flt & "") > 0 Then strCriteria = strCriteria & " and [giris_tarihi] >= " & CLng(Me.ilk_tarih_flt) '& " and [giris_tarihi] <= " & CLng(Me.son_tarih_flt) '& "#"
  5. If Len(Me.son_tarih_flt & "") > 0 Then strCriteria = strCriteria & " and [giris_tarihi] <= " & CLng(Me.son_tarih_flt)
  6. strCriteria = Mid(strCriteria, 6)
  7. Me.listeAfrm.Form.Filter = strCriteria
  8. Me.listeAfrm.Form.FilterOn = True
  9. End Sub





  Alıntı
Bu mesajı beğenenler: derzulya
#3
Çalıştı . Teşekkür Ederim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Iki Tarih Arası Filtre Kodlarını Uygulama Sorunu tarkanaykın 4 121 27-04-2022, 21:48
Son Mesaj: tarkanaykın
  [FORM] Iki Tarih Arası Toplam meceka 5 104 15-04-2022, 11:30
Son Mesaj: meceka
  Uygulamayı Kapattığımda Hata Mesajı Alıyorum M_Kemal_Askeri 3 72 07-02-2022, 22:45
Son Mesaj: onur_can
  [VBA] Tarihler Arası Hesaplama* benuva 21 1.096 25-01-2022, 23:55
Son Mesaj: dsezgin
  Filtrelemede Toplam Hatası husem 2 272 07-11-2021, 21:47
Son Mesaj: husem
  Tablolar Arası Toplama çıkarma Işlemleri ofbayoglu61 19 697 25-10-2021, 14:40
Son Mesaj: dsezgin
  Tablolar Arası Ilişkilendirme ofbayoglu61 1 156 13-10-2021, 14:40
Son Mesaj: onur_can
  Iki Tarih Arası Sorgu (toplama) tolgahat 16 677 11-10-2021, 12:14
Son Mesaj: tolgahat

Foruma Git:


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