Texbox.ta tarih formatı

[İsmail Küçükşengün]

Merhabalar;

Ekteki çalışmada, listboxtan seçilen veri texboxlara aktarılıyor. Fakat Texbox-2 (yani Tarih yazan texboxa) tarih önce ay,sonra gün olarak geliyor. Yani Listboksta 15.3.2006 ise, bu texboxa 3/15/2006 olarak geliyor. Bunu düzeltmenin yolu nedir. Bir de şayet bu düzeltilirse, kayıt esnasında yanlışlık olur mu?
Şimdiden teşekkürler....

 

[Levent Menteşoğlu]

Listboxa yazılı kodu aşağıdaki ile değiştirin.

[vb:1:bfb27a1fa7]Private Sub ListBox1_Click()
Columcount = 2
satır = ListBox1.ListIndex + 2
Cells(satır, 1).Select
TextBox1 = Cells(satır, 1)
TextBox2 = Format(Cells(satır, 2), "dd.mm.yy")
End Sub[/vb:1:bfb27a1fa7]

 

[İsmail Küçükşengün]

Sayın Leventm. Teşekkürler.

 

[ilkaykteke]

benzer bir sorunu ben de yaşıyorum. user form açıldığında text boxların gg.aa.yyyy veya istediğimiz herhangi bir formatta görünmesini sağlayamazmıyız?
yani verileri aktar demeden önce text boxumuz 14/5/2006 değil de 14.05.2006 olarak gösteremez mi?

 

[Levent Menteşoğlu]

14/5/2006 değil de 14.05.2006 olarak gösteremez mi?

Elbette gösterilir, bunun için textboxın exit olayına format tanımlaması yapmanız yeterlidir. Örneğin;

[vb:1:febe9cbf76]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd.mm.yy")
End Sub
[/vb:1:febe9cbf76]

 

[akd]

slm ilkaykteke
textbox1.value=format(textbox1,"dd"".""mm"".""yyyy")
yapın olur sanırım, kolay gelsin

 

[ilkaykteke]

bu kadar cabuk cevap beklemiyordum sayın leventm. teşekkür ederim. bir de exit olayı dediğinizi anlamadım. bir detextbox aktarımı tanımladığımız formatta mı aktarır tablomuza?

 

[ilkaykteke]

sağolun ikiniz de. halloldu.

 

[ilkaykteke]

benzer olarak; tutar girdisi yapıcam. "#,##0.00_ ;[Red]-#,##0.00 " şeklinde olmasını istiyorum. kırmızı olarak text boxta gözükmüyor. hem de hata verip sayıya çeviremi öneriyor. bunu sayı olarak tanıtmanın ve kırmızı gözükmesinin yolu varmı acaba?

 

[Levent Menteşoğlu]

bunu sayı olarak tanıtmanın ve kırmızı gözükmesinin yolu varmı acaba?

Elbette var, yine exit olayına aşağıdaki kodu yazın.

[vb:1:6990e80610]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
[/vb:1:6990e80610]

Yazıyı renklendirmek içinde VB editöründe (alt+F11), textboxın properties penceresindeki forecolor özelliği ile yazının rengini değiştirebilirsiniz.

 

[ilkaykteke]

tamamdır çok sağolun. bu user formdan değer aktarımlarının formatlarında sorun yaşıyor herkes herhalde bunun genel bir açıklamayla aslında aynı başlık altında toplanması belki faydalı olabilir. çok teşekkür ederim.