[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: 19)



  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
  [FONKSiYON] Fonksiyonda Hata zimbit 1 94 12-02-2024, 18:52
Son Mesaj: dsezgin
  [VBA] Tablolar Arası Dağılım benuva 1 189 09-02-2024, 00:56
Son Mesaj: halily
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 110 26-10-2023, 14:11
Son Mesaj: serdem48
access-sql-18 [VBA] Veritabanları Arası şartlı Tablo Kopyalama BeyTor 5 249 22-07-2023, 00:29
Son Mesaj: dsezgin
  Ikon Eklerken Hata orhnkprn 2 119 27-01-2023, 00:54
Son Mesaj: BeyTor
  Error Hata Bora34 85 1.594 20-12-2022, 21:22
Son Mesaj: halily
  Formlar Arası Veri Gönderme kursun 2 174 26-11-2022, 22:14
Son Mesaj: kursun
  Kayıtlar Arası Gezinti Tuşlarının Iptali Hk. adnnfrm 1 121 01-10-2022, 09:45
Son Mesaj: alperalper

Foruma Git:


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