Skip to main content

AccessTr.neT


Form Üzerine Timer Fonksiyonu İle Veri Kontrolü

Form Üzerine Timer Fonksiyonu İle Veri Kontrolü

Çözüldü #1
Merhabalar, bende çalışmama timer olayını eklemek istedim ama tüm araştırmalarıma rağmen paylaşılan örnekleri bir türlü uygulayamadım. Bir ürünlerin olduğu tablom var ve bu ürünlerden incelenmemiş S_GORULDU alanı işaretli olmayanları FORM üzerindeki etiket içerisinde yanıp sönen kırmızı renkli yazı ile göstermek istiyordum fakat bir türlü bulduğum örnekleri uygulayamadım. Yarımcı olabilir misiniz lütfen kurguda mı bi hatam var?
.rar YeniUrunBildirimiYazdirma.rar (Dosya Boyutu: 36,86 KB | İndirme Sayısı: 15)
Son Düzenleme: 18/12/2015, 15:33, Düzenleyen: salim.ekiz.
Cevapla
#2
sayın salim.ekiz,

bahsettiğiniz talebinize yönelik olarak;

eğer kast ettiğiniz,form üzerinde yer alan lblBildirim adlı etiket denetiminin yanıp sönmesi ise,bunun için yapmanız gerekenler şunlardır:

1) formun SüreÖlçer Aralığı olay yordamındaki 0 (Sıfır) yazan satırı 250 olarak değiştiriniz.bu sayıyı yanıp sönme hızı olarak kendi tercihinize göre değiştirebilirsiniz,denemeler neticesinde.

2) formun Zaman Dolduğunda olay yordamına aşağıdaki kod satırını yazınız.
Kod:
Me.lblBildirim.Visible = Not Me.lblBildirim.Visible
son olarak,aşağıda bağlantısı yazılı konuda yer alan hususları tekrar incelemeniz faydalı olacaktır kanısındayım.

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler

ayrıca,eğer liste denetiminde yer alan S_GORULDU alanı için de benzer bir Koşullu Biçimlendirme uyarlamak isterseniz,bunun için liste denetimi yerine Alt Form olarak değiştirdiğiniz takdirde,alt form üzerinden bu alanın rengini de değiştirmeniz mümkün.site içi arama sayfasında bu hususa dair araştırabilirsiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
(18/12/2015, 15:47)atoz112 yazdı: sayın salim.ekiz,

bahsettiğiniz talebinize yönelik olarak;

eğer kast ettiğiniz,form üzerinde yer alan lblBildirim adlı etiket denetiminin yanıp sönmesi ise,bunun için yapmanız gerekenler şunlardır:

1) formun SüreÖlçer Aralığı olay yordamındaki 0 (Sıfır) yazan satırı 250 olarak değiştiriniz.bu sayıyı yanıp sönme hızı olarak kendi tercihinize göre değiştirebilirsiniz,denemeler neticesinde.

2) formun Zaman Dolduğunda olay yordamına aşağıdaki kod satırını yazınız.




Kod:
Me.lblBildirim.Visible = Not Me.lblBildirim.Visible
son olarak,aşağıda bağlantısı yazılı konuda yer alan hususları tekrar incelemeniz faydalı olacaktır kanısındayım.

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler

ayrıca,eğer liste denetiminde yer alan S_GORULDU alanı için de benzer bir Koşullu Biçimlendirme uyarlamak isterseniz,bunun için liste denetimi yerine Alt Form olarak değiştirdiğiniz takdirde,alt form üzerinden bu alanın rengini de değiştirmeniz mümkün.site içi arama sayfasında bu hususa dair araştırabilirsiniz.

bilginize...iyi çalışmalar,saygılar.
Teşekkür ederim sn atoz112, site içerisinde aramalar yaparak dediğin şekilde ilerlemeye çalışıyorum. 
Yukarıda belirttiğiniz üzere 
Kod:
Me.lblBildirim.Visible = Not Me.lblBildirim.Visible
kodu ile metin üzerinde efekt sağlamış oldum fakat benim yapmak istediğim bundan farklı idi. Tablodaki verilerden s_goruldu alanında HAYIR olanları kontrol etmek ve eğer kayıt varsa o zaman yanıp sönen bir metin yazdırmak istiyorum. Yani tüm kayıtların s_goruldu değeri EVET ise hiç bir bildirim yazdırmak istemiyordum.
.rar YeniUrunBildirimiYazdirma1.rar (Dosya Boyutu: 47,31 KB | İndirme Sayısı: 21)
Son Düzenleme: 19/12/2015, 19:23, Düzenleyen: salim.ekiz.
Cevapla
#4
Merhaba,

Kodu aşağıdaki şekilde değiştiriniz. 

Kod:
Private Sub Form_Load()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") <= 0 Then
Me.lblBildirim.Caption = ""
End If
End Sub

Private Sub Form_Timer()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") > 0 Then
Me.lblBildirim.Visible = Not Me.lblBildirim.Visible
Else
Me.lblBildirim.Caption = ""
End If
End Sub


Cevapla
#5
(19/12/2015, 20:02)SCavusoglu yazdı: Merhaba,

Kodu aşağıdaki şekilde değiştiriniz. 




Kod:
Private Sub Form_Load()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") <= 0 Then
Me.lblBildirim.Caption = ""
End If
End Sub

Private Sub Form_Timer()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") > 0 Then
Me.lblBildirim.Visible = Not Me.lblBildirim.Visible
Else
Me.lblBildirim.Caption = ""
End If
End Sub


Teşekkür ederim, yapmak istediğim de tam buydu aslında. İlgili kodları gerekli yerlere ekledim ama form açıldığında INCELENECEK URUN YOK bildirimini bir türlü alamıyorum. Bir de değer değiştirince yine bildirimleri karıştırıyor.
Bir de timer kontrolü etiketin yanıp sönme hızı yani 300 ile aynı mı oluyor? Formun altta bulunan listboxurunler liste kutusunun da yenilenmesini sağlamak mümkün mü?
.rar YeniUrunBildirimiYazdirma1.rar (Dosya Boyutu: 62,97 KB | İndirme Sayısı: 9)
Son Düzenleme: 19/12/2015, 21:32, Düzenleyen: salim.ekiz.
Cevapla
#6
Me.lblBildirim.Caption = "uyarı mesajı"

kodunda tırnak işaretleri arasına istediğiniz uyarı mesajını yazabilirsiniz. "" bu haliyle uyarı olmayacaktır. zira uyarı almak istemiyorum demiştiniz sanıyorum.

kayıt yenilemesi yaptığınızda listbox_adi.requery kodu işinizi görecektir.

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da