Değerli uzman arkadaşlar. Ben sizlerin örneklerinden yola çıkarak bir form oluşturdum. Bu formda doğum gününe iki gün kalanlar ve evlilik yıldönümüne iki gün kalanlar şeklinde basit sorgu oluşturup liste kutusu şeklinde formuma ekledim. Başlık olarak Doğum Gününe 2 gün kalanlar etiketini form timer özelliği ile yanıp sönen hale getirdim.Sorun şu ki evlilik yıldönümüne 2 gün kaldı etiketinin de yanıp sönmesini istiyorum. Kişinin doğum gününe 2 kaldıysa Doğum günü etiketi Evlilik yıldönümüne 2 gün kaldıysa evlilik yıldönümü etiketi yanıp sönsün istiyorum. Dosyam ektedir.Yardımlarınız için teşekkür ederim.
formunuzda sadece 2 etiket vardı liste kutularını göremedim?
ayrıca etiketler de her hangi bir şarta bağlanmamışlardı her koşulda yanıp sönüyorlar
(05/01/2021, 11:53)berduş yazdı: formunuzda sadece 2 etiket vardı liste kutularını göremedim?
ayrıca etiketler de her hangi bir şarta bağlanmamışlardı her koşulda yanıp sönüyorlar
Öncelikle ilginiz için teşekkür ederim.Ben şarta filan bağlamadım aslında. Amacım sadece evlilik yıldönümüne 2 gün kalanler ve doğum gününe 2 gün kalanlar etiketlerinin ikisini birden yanıp sönen yazı haline getirmekti. Ancak hangisinde değer varsa o etiketın yanıp sönmesi ikisindede değer varsa ikisininde yanıp sönmesi mükemmel olurdu.
form timer olayını aşağıdaki gibi düzenleyip dener misiniz?
bu kadar hızlı yanıp sönmesi gözü yormaz mı?
Private Sub Form_Timer()
If Liste359.ListCount > 0 Then If Me.Etiket329.ForeColor = vbBlack Then Me.Etiket329.ForeColor = vbRed Else Me.Etiket329.ForeColor = vbBlack
If Liste361.ListCount > 0 Then If Me.Etiket356.ForeColor = vbBlack Then Me.Etiket356.ForeColor = vbRed Else Me.Etiket356.ForeColor = vbBlack
End Sub '
(05/01/2021, 13:06)berduş yazdı: form timer olayını aşağıdaki gibi düzenleyip dener misiniz?
bu kadar hızlı yanıp sönmesi gözü yormaz mı?
Private Sub Form_Timer()
If Liste359.ListCount > 0 Then If Me.Etiket329.ForeColor = vbBlack Then Me.Etiket329.ForeColor = vbRed Else Me.Etiket329.ForeColor = vbBlack
If Liste361.ListCount > 0 Then If Me.Etiket356.ForeColor = vbBlack Then Me.Etiket356.ForeColor = vbRed Else Me.Etiket356.ForeColor = vbBlack
End Sub '
Üstadım bilginizi esirgemeyip bizlerle paylaştığın için çok çok teşekkür ederim. Allah razı olsun.Tam istediğim gibi olmuş.Hızlı yanıp sönmesi konusunu yavaşlatırım.Tekrar teşekkürler
rica ederim)
iyi çalışmalar