Bitiş tarihi geldiginde Msgbox ile uyarı

[u4selec]

Degerli hocalarım sayın arkadaşlarım;
sorguya dayalı sürekliform üzerinde [Bittarih] alanlı bitiş tarihini gösteren ve [date] alanlı o günkü tarihi gösteren alanlarım var. kayıtlarıma daha önceden girdiğim bitiş tarihi gelen kayıtların oldugunu msgbox ile uyarı almak için ;

Private Sub Form_Load()

If [BitTarih] <= [date] Then MsgBox " Bitiş Tarihi Olan Kayıtlarınız Mevcut. Kayıtlarınızı Kontrol Ediniz."

End Sub

şeklindeki kodlama deneme accessde çalışırken aynı kodu asıl programa aktardığım zaman ne hata mesajı veriyor ne de çalışıyor. program hiç tepki vermiyor. asıl programda kayıt sayım yaklaşık olarak 14 bin. acaba kayıt sayısının çoklugundan olabilirmi bu sorun. yardımlarınız için şimdiden teşekkürler.

not : kodlamayı form özelliklerinde yüklendiginde kısmına yazdım.

 

[beab05]

Load ya da open olay&#305;na yazarsan&#305;z sizin koddaki
If [BitTarih] <= [date]
yani o an aktif bittarihine bakar sizin formunuzun referans ald&#305;&#287;&#305; tabloyu, sorguyu kontrol ettirmeniz gerek.

 

[u4selec]

say&#305;n beab05 as&#305;l kodlar&#305; as&#305;l prgrama aktarmadan &#246;nce deneme yapt&#305;&#287;&#305;m mdb &#231;al&#305;&#351;mamda kod &#231;al&#305;&#351;&#305;yor. as&#305;l programa kodlar&#305; ekledi&#287;im zaman &#231;al&#305;&#351;m&#305;yor. i&#351;in garibi hata iletiside vermiyor. &#351;unuda belirteyim ki deneme &#231;al&#305;&#351;mam as&#305;l program&#305;n bire bir ayn&#305;s&#305;. deneme oldugu i&#231;in sadece i&#231;erisinde &#231;ok az veri var.

dedi&#287;iniz gibi formun load k&#305;sm&#305;na;

If [Form_KHM_TAK&#304;P]![BitTarih] <= [date]

&#351;eklinde de&#287;i&#351;tirdim. sonu&#231; ayn&#305;.

 

[beab05]

Deneme dosyan&#305;zdaki verilerinizdeki tarih alan&#305; yuklendi&#287;i zaman mesaj kriterinize uygun bir tarih o zaman . Siz beni anlamam&#305;&#351;s&#305;n&#305;z, sizin istedi&#287;iniz ne kadar varsa biti&#351; tarihi gelenleri g&#246;rmek de&#287;il mi? B&#246;yleyse t&#252;m kay&#305;tlar&#305; kontrol ettirmelisiniz. E&#287;er form &#252;zerindeki o an bakt&#305;&#287;&#305;n&#305;z kay&#305;tlar i&#231;inse formun current ( ge&#231;erli oldu&#287;un ) na yaz&#305;n kodlar&#305;..

 

[u4selec]

say&#305;n beab05

kodlamay&#305; formun load b&#246;l&#252;m&#252;ne

If [Form_KHM_TAK&#304;P]![BitTarih] <= [date]

&#351;eklinde de&#287;i&#351;tirdim. deneme yapt&#305;&#287;&#305;m programda hatas&#305;z &#231;al&#305;&#351;&#305;yor ancak as&#305;l programa kodlar&#305; ekledi&#287;im zaman &#231;al&#305;&#351;m&#305;yor. i&#351;in garibi hata iletisi bile vermiyor. deneme yapt&#305;&#287;&#305;m mdb ile as&#305;l program aras&#305;nda tek fark i&#231;erisindeki kay&#305;t say&#305;s&#305;. deneme mdb de &#231;ok az kay&#305;t var. kodlamada eksik olan bi&#351;eymi var acaba?

 

[beab05]

Siz kendiniz birebir ayn&#305;s&#305; diyorsunuz. Neyse sizinle anla&#351;amad&#305;k Siz hala form &#252;st&#252;nde aktif kay&#305;t &#252;st&#252;ndeki tarihi kontrol ettirmekten bahsediyorsunuz..
Kolay gelsin...

 

[u4selec]

say&#305;n beab05 anla&#351;&#305;r&#305;z. neden anla&#351;amayal&#305;m ki?
ben bu konuyu buraya a&#231;madan &#246;nce kodlamay&#305; sizinde dedi&#287;iniz gibi formun hem load b&#246;l&#252;m&#252;ne yazd&#305;m denedim hemde open b&#246;l&#252;m&#252;ne yazd&#305;m denedim. sorunu gideremeyince burdan yard&#305;m istedim. tekrar detayl&#305; olarak izah edeyim isterseniz.

sorguya ba&#287;l&#305; s&#252;rekli form g&#246;r&#252;n&#252;ml&#252; form haz&#305;rlad&#305;m. bu formda [BitTarih] ve [date] alanlar&#305;ndan olu&#351;an yerlerim var. amac&#305;m bittarih date alan&#305;ndaki tarihe e&#351;it yada date alan&#305;ndaki tarihi ge&#231;mi&#351; ise msgbox ile ileti alarak hat&#305;rlat&#305;lmam.

Private Sub Form_Load()

If [BitTarih] <= [date] Then MsgBox " Biti&#351; Tarihi Olan Kay&#305;tlar&#305;n&#305;z Mevcut. Kay&#305;tlar&#305;n&#305;z&#305; Kontrol Ediniz."

End Sub

kodu formun a&#231;&#305;ld&#305;&#287;&#305;nda b&#246;l&#252;m&#252;ne yazd&#305;m olmad&#305;. y&#252;klendi&#287;inde b&#246;l&#252;m&#252;ne yazd&#305;m olmad&#305;. nedendir anlayamad&#305;m bu kod deneme olarak &#231;al&#305;&#351;t&#305;&#287;&#305;m deneme mdb de &#231;al&#305;&#351;&#305;yor. yukar&#305;dada belirtti&#287;im gibi deneme mdb ile as&#305;l program aras&#305;nda hi&#231; bir fark yok. birebir ayn&#305;. tek fark deneme mdb i&#231;erisinde girilmi&#351; veri yok.

bu msaj&#305; alabilmek i&#231;in makro haz&#305;rlad&#305;m ayn&#305;s&#305; makrodada oldu. denemede makaro &#231;al&#305;&#351;t&#305; as&#305;l programda &#231;al&#305;&#351;mad&#305;. dedigim gibi hata mesaj&#305;da vermedi. ilginiz i&#231;in tekrar te&#351;ekk&#252;rler.

 

[modalı]

Sayın u4select,

Sayın beab05 demek istediği şu: Formu açtınız ve yazdığınız kod o an geçerli olan kayıt için çalışıyor. Eğer tarihi geçmiş birden çok kayıt var ise bunları ancak form üstünde görüntülediğinizde yani aktif olduklarında mesaj alabileceksiniz. Bunun için:

Bir sorgu oluşturup istediğiniz sonucu veren kayıtlar olursa bu iletinin gösterilmesini sağlamanız gerekir.

İyi çalışmalar

 

[u4selec]

say&#305;n modal&#305; anlad&#305;m te&#351;ekk&#252;r ederim yard&#305;mlar&#305;n&#305;z i&#231;in.