Doğum gününü haber vermesi

[simendifer]

benim proramda istediğim öğrencinin doğum günü geldiğimde uyarı versin örgencinin doğum gününü kutlayalım ekteki beni oku dosyasında resim ve açıklaması var
İlgilerinize teşekkür ederim bu olay mümkünmü yardımlarınızı bekliyorum

 

[yeni54]

Private Sub Form_Current()
On Error GoTo err_Form_Current

    Me!Etiket250.Caption = ""
    If Not IsNull(Me![Doğum Tarihi]) Then
        If Day(Me![Doğum Tarihi]) = Day(Date) And Month(Me![Doğum Tarihi]) = Month(Date) Then
            Me!Etiket250.Caption = "Bugün Doğum Günüdür"
        End If
    End If

exit_Form_Current:
    Exit Sub
    
err_Form_Current:
    MsgBox Err.Description
    Resume exit_Form_Current

End Sub

Eleştiri: Formun renkleri ve düzeni pek hoşuma gitmedi.
Doğum tarihinin yerini bulacam diye neredeyse tüm alanlara baktım formda.

 

[ozanakkaya]

Sayın Yeni54 verdiğiniz kod çok kullanışlı ama benim bi sorum olacak.
Daha önceden formumda kullanıyordum. Şimdi yeni bi form yaptım ve kodu unuttum. Eskisini sildiğimden kodu hatırlamıyorumm.
Kodun işlevi şu şekilde olacak. Formda 150 kayıt var. Yukarıdaki koda göre benim tek tek tüm kayıtlara bakmam gerekiyor.
Form açıldığında kayıtları tarayıp doğum günü olanları msgbox olarak "bu gün .......... doğum günü" gibi bir uyarı verdirecek bi kod gerekiyor. Teşekkürler

 

[yeni54]

forma bir listbox koyup rowsouce una

select <unvan> from <tablo>
where day(tarih) = day(date()) and month(tarih) = month(date())

yazarsan&#305;z, b&#252;y&#252;k ihtimalle bug&#252;n do&#287;anlar&#305; bu listbox a doldurur.

 

[simendifer]

doğum günü uyarısı

teşekkür ederim sayın yeni54 vermiş oldugunuz kod çalıştı tam istediğim gibi sadece ogün gelince ve ogünde uyarı veriyor çalışan şeklini ekliyorum bir başka programda kullanılır emegine eline saglık teşekkür eder sayğılarımı sunar sizin şahsınızda tüm formdaki üyelerimizin ramazanı cenabı allah kabul etsin
eleştirileriniz çok dogru haklısınız sadeleştirmem gerekecek teşekkür ederim

 

[icapcı]

Say&#305;n ozanakkaya'n&#305;n yazm&#305;&#351; oldu&#287;u sorunla bende kar&#351;&#305;la&#351;t&#305;m verilen koduda yazd&#305;m ama beceremedim elinde bununla ilgili &#246;rnek olan varm&#305; arkada&#351;lar
yani t&#252;m datay&#305; form a&#231;&#305;ld&#305;&#287;&#305;nda inceleyip do&#287;um g&#252;n&#252; olanlar&#305; bildirecek bir kod veya &#231;al&#305;&#351;ma &#246;rne&#287;i olan

 

[beab05]

Alttaki örnek gördüğüm kadarıyla oldukça gelişmiş .. Ben de pek incelemedim ama shift tuşunu remote olarak açmak gerekiyor sanırım, forumda da var bunu yapan prg ler.. Bir de kod ları şifrelemişler ama açmak zor değil... Bir inceleyin derim gerçekten iyi bir örnek...

 

[icapcı]

Sayın beab05 ilginiz için çok saolun fakat benim tam olarak istediğim form açıldığında otomatik olrak arama yapıp bana bildirmesi msjbox la falan alttaki örnek elle çalıştırılmak zorunda

ayrıca shift işevini açtım ve vb kodu ise 123 belki diğer arkdaşların işine yarar

tekrardan ilginiz için saolun ...

 

[beab05]

Ben sizin dedi&#287;inizi anlad&#305;m ama o &#246;rnekteki kodlarla da yap&#305;labilir diye d&#252;&#351;&#252;nm&#252;&#351;t&#252;m . Ger&#231;i hala incelemedim...

 

[beab05]

Merhabalar;
Yukar&#305;da verdi&#287;im &#246;rnekteki kodlarla olabilir dedi&#287;im gibi ve ufak bir d&#252;zenlemeyle do&#287;um g&#252;n&#252; hat&#305;rlat&#305;c&#305; olu&#351;turdum..T&#252;m kay&#305;tlar&#305; tarar ve hem msgbox hem de listesini verir.. Bir tak&#305;m d&#252;zenlemelerle her &#351;ekilde kullan&#305;labilir..

 

[simendifer]

Harİkasin

Bir iste iki al teşekkürler sayın beab05 eline bilgine saglık

 

[icapcı]

say&#305;n beab05 eline sa&#287;l&#305;k tam istedi&#287;im gibi

 

[hakanuss]

Merhabalar
Sayın beab05 örneği tekrar eklermisiniz şimdiden teşekkür ederim

 

[beab05]

Merhabalar;

Çok üzgünüm, yapmış olduğum örnek elimde mevcut değil..

 

[hakanuss]

sağlık olsun ilginiz için teşekkür ederim
indirmiş olan arkadaşlardan biri yükler belkide

 

[assenucler]

Arşivden çıkardım.

Merhabalar..

Bu konuda arşivimde bulunan dosyaları ekliyorum.

Güle güle kullanın.

 

[hakanuss]

Ya Arkadaşlar Hızır gibisiniz hepinize teşekkür ederim
assenucler sanada çok teşekkür ederim arşivini paylaştığın için yalnız doğum tarihi hatırlatmanın içindeki "kişiler.mdb" bozuk herhalde

 

[assenucler]

Dosya yenilenedi.

Ya Arkadaşlar Hızır gibisiniz hepinize teşekkür ederim
assenucler sanada çok teşekkür ederim arşivini paylaştığın için yalnız doğum tarihi hatırlatmanın içindeki "kişiler.mdb" bozuk herhalde

16. mesaj eki yeniden yollandı.

 

[hakanuss]

assenucler zaman ayırıp problem ile ilgilendiğine ve örneği eklemene çok sevindim
teşekkür ederim ilmin daim olsun