+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form_ Timer Konusu (/konu-form-timer-konusu.html)
Form_ Timer Konusu - Mecburen06 - 05/01/2021
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.
RE: Form_ Timer Konusu - berduş - 05/01/2021
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
RE: Form_ Timer Konusu - Mecburen06 - 05/01/2021
(05/01/2021, 11:53)berduş yazdı: formunuzda sadece 2 etiket vardı liste kutularını göremedim?Ö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.
ayrıca etiketler de her hangi bir şarta bağlanmamışlardı her koşulda yanıp sönüyorlar
RE: Form_ Timer Konusu - berduş - 05/01/2021
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 '
RE: Form_ Timer Konusu - Mecburen06 - 05/01/2021
(05/01/2021, 13:06)berduş yazdı: form timer olayını aşağıdaki gibi düzenleyip dener misiniz?Ü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
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 '
RE: Form_ Timer Konusu - berduş - 05/01/2021
rica ederim)
iyi çalışmalar