Skip to main content

AccessTr.neT


Form_ Timer Konusu

Form_ Timer Konusu

Çözüldü #1
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.
.rar dt.rar (Dosya Boyutu: 20,92 KB | İndirme Sayısı: 4)
Son Düzenleme: 05/01/2021, 09:56, Düzenleyen: Mecburen06. (Sebep: ek dosya gönderemiyorum)
Cevapla
#2
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
Cevapla
#3
(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. 
.rar dt.rar (Dosya Boyutu: 26,05 KB | İndirme Sayısı: 2)
Cevapla
#4
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 '
Cevapla
#5
(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
Cevapla
#6
rica ederim)
iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task