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?
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.
(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.
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
(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ü?
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.