textboxa tarih yazdırma

[prodigy]

imleç hangi textbox'ta ise DTPicker1'e tıkladığımızda tarihi o textbox'a atmasını sağlayabilir miyiz

 

[Seyit Tiken]

Böyle bir şey mi? istediniz.

Private Sub TextBox1_Change()
TextBox1.Text = Date
End Sub

 

[prodigy]

cevap için teşekkürler. fakat istediğim bu değil. imleç hangi texbox da ise DTPicker1. (veya takvim denetimi)tarihi o textboxa atsın.

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği inceleyiniz. Textboxlardan birini seçin ve mouse ile DTPicker1 üzerine gelin sonucu göreceksiniz. Umarım işinize yarar.

 

[soneryen]

selam cost control bu dosya her koşulda her açtığımızda günün tarihini mi default olarak çıkartıyor. benim anladığım kadarıyla öyle

 

[Korhan Ayhan]

Selamlar,

Evet dosyayı açtığınızda günün tarihini gösterir.

Ayrıca aşağıdaki dosyada bu sefer textboxlar aktif oldukça tarihi otomatik olarak yazması için özellik ekledim.

 

[Levent Menteşoğlu]

fakat istediğim bu değil. imleç hangi texbox da ise DTPicker1. (veya takvim denetimi)tarihi o textboxa atsın.

Aslında bu cümleniz hatalı, dtpicker seçildiği anda imleç dtpicker nesnesindedir, yani aktif nesne değişir, bu durumda yapılacak şey imleçin bir önce bulunduğu textboxın adını bir yere kaydedip bunu dikkate almaktır. Bunun içinde ideal çözüm class module uygulamasıdır. Eki inceleyin.

 

[prodigy]

cevaplarınıza çok teşekkür ederim. ancak tarih formatında anlayamadığım bir durum var.

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End Sub

burda 1 günden ayın 12 kadar olan günlerde önce ayı daha sonra günü (örneğin 4. ayın 1.ni-- 04.01.2006)yazıyor. ancak ayın 13 den sonra düzeliyor.(13.04.2006)

 

[prodigy]

TextBox1.Text = Format(textbox1.value, "dd.mm.yyyy") yerine aşaıdaki kodu yazınca oldu

TextBox1.Text = Format(DTPicker1, "dd.mm.yyyy")