Formda Timer Kontrolü ve Bildirim Süresini Tablodan Verme

Sayın atoz112'nin desteğiyle oluşturduğumuz çalışmama uygulamak istediğim farklı bir tabloda verdiğim değer süresinde timer ile kontrol etmek ve bildirimi sesli almak. 


Yani ürünlerin tutulduğu tblSinif tablosuna yeni bir veri girildiğinde s_goruldu alanı ürün incelenene kadar default olarak HAYIR değerini alıyor. Bu verileri düzenli olarak timer ile kontrol ederek her yeni üründe sesli bildirim almak. Şuanki örnekte formun ilk açılışında sesli bildirim alabiliyorum ama frmkalite formu açıkken yeni eklenenlerde sesli bildirim olmuyor.


1)  GÖRÜLDÜ alanı HAYIR olan listboxdaki bir ürünün çift tıklayarak "frmkalitedetay" formunu açınca ürünü direk incelenmiş yani "tblSinif" tablomda s_goruldu=EVET yazdırmak istiyorum. EVET yazdırdıktan sonra da tblSinifTotal tablomdaki Toplam alanına da "tblSinif" tablosundaki s_goruldu=HAYIR olanların toplamını yazdırmak istiyorum ki 3. paragrafta belirttiğim karşılaştırmayı yapabilmek amacıyla düşündüm.


2)  frmkalite formunun yüklendiğinde olayına tblSinif tablosundaki s_goruldu=HAYIR olanların toplamını tblSinifTotal tablosundaki Toplam alanına yazdırmak.


3)  frmkalite formunun timer özelliğine de tblSinif tablosundaki s_goruldu=HAYIR olanların toplamı ile tblSinifTotal’i karşılaştırarak bunu her yeni bir ürün oluştuğunda sesli bildirim olarak almak istiyorum.


Yani tblSinif tablosundaki s_goruldu=HAYIR olanların toplamı tblSinifTotal tablosundaki Toplamdan büyükse tblSinif tablosundaki seslibildirimkontrolsuresi alanında girilen süre aralıklarında sesli uyarı verdirmek istiyorum.
Bana bir yol gösterebilir misiniz. Teşekkür ederim.

Public kackez As Byte

kodunun hemen altına

Public VeriSayisi As Integer

kodu ekle,

Formun yüklendiğinde olayına en üste

VeriSayisi = DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'")

kodu ekle,

Formun zaman dolduğunda olayına en üste

 If VeriSayisi <> DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") Then



 kackez = 0

 VeriSayisi = DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'")

 End If

kodu ekle. 

Böylelikle tabloya HAYIR içeren yeni veri eklendiğinde uyarı sesini duyabilirsin.


2 ve 3 numaralı soruların için cevap yazamıyorum.

Site Kuralları

1c) Birden fazla soruyu aynı konuda sormayınız. Her soru için farklı başlıklı yeni konu açınız. Birden fazla soru sorarsanız bu uygulama yapımına girer, Bu Site "Ödev veya Program Yaptırma Sitesi" Değildir.