EditBox'a Gün Yazma

[romanci]

Hazırladığım formda calendar var, takvimden seçtiğim günü metin kutusuna gün adı olarak yazdırmak istiyorum. nasıl yapabilirim.

MsgBox'a yazdırabildim ama metin kutusuna yazdırmak istiyorum.

Metin kutusuna çift tıklayınca oluyor.

 

[modalı]

Sayın romanci,

Aşağıdaki kodu kopyalayıp form kod penceresine yapıştırın

Private Sub Calendar1_AfterUpdate()
Me.Metin10 = (WeekdayName(Weekday(Me.Calendar1), False, 1))
End Sub

İyi çalışmalar

 

[romanci]

Sayın Modalı çok teşekkür ederim ben false değerini hep 0 yaparak çözüm üretmeye çalıştım, olmayınca çaresiz kaldım.

sağolun

 

[romanci]

Kendi kodumuda düzeltmiş bulunuyorum, örnek olması için hem Modalının hemde benim kodlarımıza göre çalışan örnek bir uygulama ekliyorum, arkadaşların belki işine yarar.