Metin kutusundaki tarihin gününü etiket kutusunda nasıl gösterebiliriz?

1 2
01/01/2009, 14:28

pupil

Bir metin kutusuna atanan tarihin, ait olduğu günü, aynı metin kutusunun etiketinde göstermek istiyorum(pazar, pazartesi, salıtesi gibi)? İkinci bir metin kutusunda da olabiilir. Nasıl yapabilirim? Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim...

Herkese iyi yıllar...
01/01/2009, 15:02

alpeki99

Kod:
WeekdayName(Weekday(Metin0.Value), False, vbUseSystemDayOfWeek)
şeklinde Günün adını gösterebilirsiniz. Eğer bunu etikette göstermek istiyorsanız.

Kod:
EtiketAdi.Caption = WeekdayName(Weekday(Metin0.Value), False, vbUseSystemDayOfWeek)

Burada Metin0 yerine kendi metin kutunuzun adını yazmalısınız.
Kod:
Me.Etiket92.Caption = WeekdayName(Weekday(Metin26.Value), False, vbSunday)
01/01/2009, 15:08

ayhan2122

Kodları inceleyin.
(Bu arada Sn alpeki99 yazmış bile )
01/01/2009, 15:37

pupil

(01/01/2009, 15:08)ayhan2122 yazdı: Kodları inceleyin.
(Bu arada Sn alpeki99 yazmış bile ben cevap yazarken de sizinki geldi : )
Cevaplar için çok teşekkür ederim. Her iki örnek te çok güzel. İkinci bir soru eklesem abes olmaz umarım;

"Eğer hafta sonu ise, metin kutusunun veya liste kutusunun rengi kırmızı olsun" diye bir ikinci kontrolü nasıl yapabilirim.

(Soruyu sorarken kodlar aklımda şekilleniyor, ama net resmi ortaya çıkmıyor, ingilizceyi yeni öğrenen birisinin duyduğunu anlayıpta cevap verememesi gibi bir şey).
Zaman ayırdığınız için tekrar teşekkür ederim.
01/01/2009, 15:47

esrefigit

liste kutusu bir bütün olduğu için tamamı renklenir ama illa bir liste kutusu olacak dersen listview kullan onda istediğin satırı istediğin renk yapabilirsin diğer soruna gelince benim geçen hafta eklediğim bir konu var hafta sonlarını renklendirme diye onu incele
01/01/2009, 15:48

alpeki99

Bu konuda Eşref hocamızın örnek dosyasını inceleyebilirsiniz :

https://accesstr.net/showthread.php?tid=1204

ayrıca Arama kutusunda Koşullu yazdığınızda karşınıza gelecek linkleride inceleyebilirsiniz. Aradığınız konu Koşullu Biçimlendirme diye geçmektedir.
1 2