Konu günceldir arkadaşlar

Merhaba..

Örneğinizi amacınıza göre düzenledim..:

Dostlar merhabalar;


Dosyayı indirip "UserForm" düğmesine tıklayınca, resimdeki iletiyi alıyorum ve dosya içine giremiyorum.

Sorunun nedeni konusunda değerli düşüncelerinizi bekliyorum.

Paylaşım ve cevap için teşekkür ederim.Uzun zamandır aradığım bir konuydu ama takıldığım bir nokta var
Veri tabanındaki tabloda tarih sutunu text olarak duruyor eğer bu sutun tarih formatında olursa aramayı aynı şekilde yapabilirmiyiz.Aynı çalışmanın farklı bağlantı koduyla ben verileri süzebiliyorum ama tarih kısmını bir türlü yapamadım.
Kolay gelsin.
(Konu biraz eski ama inşaallah cevap veren bir arkadaşımız çıkar)

Dün sorduktan sonra bir örnek buldum ama bulduğum örnekde de tarihlerin olduğu kısım tarih formatında değildi text formatındaydı sonra bu çalışmanın üzerinde uzunca bir durdum ve sonunda ADO veri tabanından tarih formatındaki sutunundan iki tarih aralığında veri çeken ve sorunsuzca çalışan kod yazmayı başardım.Kodu sizinle paylaşıyorum arkadaşlar.

Private Sub CommandButton9_Click()
If TextBox51.Value <> "" And IsDate(TextBox51.Value) = False Then
MsgBox "Hatalı Veri Girişi Yaptınız." & vbCrLf & "Yazmış Olduğunuz : " & TextBox51 & " Geçerli Bir Tarih Değildir" & vbCrLf & "Lütfen Tekrar Tarihi Belirtiniz", vbCritical, "UYARI"
With TextBox51
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.####"
.SelStart = 0
.SelLength = 1
End With
TextBox51.SetFocus
ElseIf TextBox52.Value <> "" And IsDate(TextBox52.Value) = False Then
MsgBox "Hatalı Veri Girişi Yaptınız." & vbCrLf & "Yazmış Olduğunuz : " & TextBox52 & " Geçerli Bir Tarih Değildir" & vbCrLf & "Lütfen Tekrar Tarihi Belirtiniz", vbCritical, "UYARI"
With TextBox52
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.####"
.SelStart = 0
.SelLength = 1
End With
TextBox52.SetFocus
Else
iki_tarih_arası_listele
End If

Sub iki_tarih_arası_listele()
Dim x As Long, k As Integer, renk, baglan, srg
Dim aranacak As String
Dim aranacak2 As String
Dim aranacak3 As String
Dim rrs


aranacak = TextBox50.Value
aranacak2 = TextBox51.Value
aranacak3 = TextBox52.Value


Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\DATA\RECORDS.mdb"
Set rrs = CreateObject("adodb.recordset")

ListView2.ListItems.Clear
If Len(aranacak2) < 10 Then aranacak2 = "01.01.1900"
If Len(aranacak3) < 10 Then aranacak3 = "01.01.2500"
srg = "Select * from KAYITLAR WHERE "
srg = srg & " B2 like '%" & aranacak & "%' " 'Buradaki B2 veritabanım[/code]daki sutunumun adı
srg = srg & " and CDbl(CDate(B24)) between " & CDbl(CDate(aranacak2)) & " And " & CDbl(CDate(aranacak3)) 'Buradaki B24 veritabanındaki tarihlerin olduğu sutunumun adı


rrs.Open srg, baglan, 1, 1

If rrs.RecordCount > 0 Then rrs.MoveFirst
Do While Not rrs.EOF
x = x + 1
If x Mod 2 = 0 Then renk = &H404040 Else: renk = &H404040
ListView2.ListItems.Add , , rrs(0).Value
For k = 1 To 60
If Not IsNull(rrs(k).Value) Then
ListView2.ListItems(x).SubItems(k) = rrs(k).Value
ListView2.ListItems(x).ListSubItems(k).ForeColor = renk
End If
Next k
rrs.MoveNext
Loop
rrs.Close
End Sub

Bu kodları vba çalıştırmak için hangi kütüphaneyi aktifleştirmem gerekiyor.

Kodun aşağıdaki satırı hata veriyor da? 

baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Ic_Egitmen_Data.accdb"