Listbox doğum tarihi yaklaşanları listeleme

[mukoli]

Merhaba alttaki kod f8 alanında doğum tarihleri var butona tıklayınca bu ay içerisinde doğum günü olanları listelemesini istiyorum size zahmet bu hafta içerisinde olan koduda paylaşırsanız sevinirim.

Private Sub CommandButton2_Click()
sql = "select f1,f2,f3,f4,format([f5],""dd.mm.yyyy""),format([f6],""dd.mm.yyyy""),f7,format([f8],""dd.mm.yyyy"") from " & syfaADo & " where not isnull(f1)"

   With Me
      
                On Error Resume Next
                sql = sql & " order by [f4]"
        Set Rs = Con.Execute(sql)
        .ListBox1.ColumnCount = Rs.Fields.Count
        .ListBox1.Clear
 
        If Not Rs.EOF = True Then .ListBox1.Column = Rs.GetRows
         UserForm3.ListBox1.ColumnWidths = "30;80;90;150;70;70;65;60"
    End With
 
End Sub

 

[Korhan Ayhan]

Arama sonucunda aşağıdaki konuyu buldum.İnceleyiniz.

Soru - Listboxta Doğum Günü Gelenleri Gösterme

Herkese Merhaba VERİ isimli excel sayfam var Veri sayfası B sütununda siciller Veri sayfası C sütununda isimler Veri sayfası D sütununda soyisimler Veri sayfası AI sütununda Doğum tarihleri var Giriş userformumda Listbox 1 ve Listbox2 var Listbox1de doğum tarihine 3 gün kalanların...

www.excel.web.tr

 

[mukoli]

@Korhan Ayhan hocam bende buldum ama çalıştıramadım ve ordaki dosya hata veriyor

 

[Necdet]

Merhaba.

Bir zamanlar doğrudan sorgu ile almak istedim bir türlü yapamamıştım. Bugün sizin sorunuzu görünce tekrar üzerinde düşündüm, deneme
yanılma sonucunda sonuca ulaştım.
Bende gayet güzel çalıştı.

Şartı (Secim) ben kod içine koydum, olay anlaşılsın diye, siz dışardan bu değeri atayabilirsiniz.

Aşağıda verdiğim kodları siz kendinize göre uyarlayınız.

    Dim BsTarih As String
    Dim BtTarih As String
    Dim Secim As Integer
                        'Secim = 1 ise gün,
                        'Secim = 2 ise bu hafta
                        'Secim = 3 ise bu ay
  
    Secim = 3
  
    If Secim = 1 Then
        BsTarih = Format(Date, "mmdd")
        BtTarih = BsTarih
    ElseIf Secim = 2 Then
        BsTarih = Format(Date - Weekday(Date, vbMonday) + 1, "mmdd")
        BtTarih = Format(Date + (7 - Weekday(Date, vbMonday)), "mmdd")
    Else
        BsTarih = Format(DateSerial(Year(Date), Month(Date), 1), "mmdd")
        BtTarih = Format(DateSerial(Year(Date), Month(Date) + 1, 0), "mmdd")
    End If

Sorgu :

    SORGU = "select ADI, SOYADI, DTARİH, format(cdbl(DTARİH),""mmdd"") AS AYGUN  from [DoğumTarihleri$] " & _
            "where [DTARİH] <> NULL AND format(cdbl(DTARİH),""mmdd"") BETWEEN " & BsTarih & " and  " & BtTarih

Sorgudaki :

format(cdbl(DTARİH),""mmdd"") AS AYGUN

benim kontrol amaçlı eklediğim ekti, siz bunu çıkartınız.

Kodları kendinize göre uyarlayınız.

 

[mukoli]

Deniyorum necdet hocam teşekkürler

 

[mukoli]

@nejdet hocam cok iyi çalışıyor fakat sütun hepsi tarih formatında bazen dogum tarihi girilmeyebiliyor . Boş olunca hata veriyor onu nasıl çözebiliriz

 

[tahsinanarat]

Sn. @mukoli, çalışıyor dediğiniz örnek dosyayı ekleyebilir misiniz, teşekkürler.

 

[Necdet]

@nejdet hocam cok iyi çalışıyor fakat sütun hepsi tarih formatında bazen dogum tarihi girilmeyebiliyor . Boş olunca hata veriyor onu nasıl çözebiliriz

Merhaba, bir kaç tarih sildim ve aşağıdaki gibi kod çalıştı. 4 nolu mesajda da aynı düzeltmeyi yaptım.

    SORGU = "select ADI, SOYADI, DTARİH, format(cdbl(DTARİH),""mmdd"") AS AYGUN  from [DoğumTarihleri$] " & _
            "where [DTARİH] <> NULL AND format(cdbl(DTARİH),""mmdd"") BETWEEN " & BsTarih & " and  " & BtTarih

 

[tahsinanarat]

Sn. @Necdet hocam, çalışan örnek dosyayı ekleyebilirseniz sevinirim, buna benzer dosyaya ihtiyacım var.

 

[Necdet]

Sayın tahsinanarat bendeki dosya özel, sizin için isimleri değiştirip buraya yükleyim.
Biraz zaman alacaktır.

 

[tahsinanarat]

Sn. @Necdet hocam çok teşekkür ederim, hakkınızı helal edin

 

[Necdet]

Sn. @Necdet hocam çok teşekkür ederim, hakkınızı helal edin

güle güle kullanınız.