Texboxta calendar (Takvim) sorunu

[elevisse]

Arkadaşlar merhaba,
Ekteki dosyamda Texbox1 ve textbox2 ye çift tıkladığımda takvim açılıyor fakat takvimden tarih seçtiğimde textbox'a eklemiyor. İsteğe bağlı olarak ya elle giriş yapılmalı yada çift tıklama ile takvimden seçilerek. Konuyla ilgili yardımınızı rica ederim. Teşekkürler.

 

[Necdet]

Merhaba,

Takvim nesnesindeki klik olayını aşağıdaki gibi deneyiniz.

Private Sub Calendar1_Click()
    tarih.TextBox1 = Format(Calendar1.Value, "dd/mm/yy")
    Unload Me
End Sub

 

[elevisse]

Neşet Bey merhaba,
Yardımınız için çok teşekkür ederim. Kod tam istediğim gibi çalışmaktadır.