textboxlara tarih girerken baştaki sıfırı tanımıyor

[armandos]

userform üzerinde textbox a tarih formatı ile tarih girdiğimde örneğin 07.11.2008 girdiğimde baştaki sıfır silerek 7.11.2008 olarak değiştiriyor ve ilgili sayfaya 7.11.2008 olarak gönderiyor. 07.11.2008 olarak görünmesini nasıl sağlayabilirim.

 

[Mahmut Kök]

userform üzerinde textbox a tarih formatı ile tarih girdiğimde örneğin 07.11.2008 girdiğimde baştaki sıfır silerek 7.11.2008 olarak değiştiriyor ve ilgili sayfaya 7.11.2008 olarak gönderiyor. 07.11.2008 olarak görünmesini nasıl sağlayabilirim.

Aşağıdaki gibi deneyiniz.

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

 

[armandos]

Aşağıdaki gibi deneyiniz.

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

bu kodu textbox a yazdığımda daha ilk rakamı girdiğimde otomatik bir tarih atıyor ve silmeye çalıştığınızda da silinmiyor.

 

[Mahmut Kök]

textbox'un change olayına yazmayın, TextBox1_Exit kısmına yazın veya Sayfaya göndermek için düğme kullanıyorsanız, sayfaya gönderme kodunun başına ekleyin.

 

[armandos]

textbox'un change olayına yazmayın, TextBox1_Exit kısmına yazın veya Sayfaya göndermek için düğme kullanıyorsanız, sayfaya gönderme kodunun başına ekleyin.

üstad ben en iyisi dosyayı göndereyim size.. Doğum tarihi textbox ı na dediğiniz gibi yaptım ama olmadı

 

[armandos]

yardım edecek kimse yok mu?

 

[Mahmut Kök]

Ben sizin dosyanı açtım, ama her şey normal gözüküyor bende. Resim olarak ekledim.

 

[armandos]

listboxtan aldıkları doğru gözüküyor çünkü sayfada ben düzlttim onları. Ancak yeni giriş yapmaya çalıştığımda baştaki sıfırlar kayboluyor.

 

[Orion1]

A1 hücresine tarih girer .Siz kendi kodlarınıza göre düzenleyiniz.

Range("A1").Value = CDate(TextBox1.Text)
Range("A1").NumberFormat = "dd.mm.yyyy"