sayfadan texte gelen tarihte format sorunu

[orcunerkek54]

TextBox7.Text = Format(TextBox7.Text, "dd.mm.yyyy")
arkadaşlar bu kod texte format için bildiğim kadarıyla ama bunu nereye nasıl koyarsam koyayım sayfaya yazdığım tarihi texte getirdiğimda 22.09.2006 terine
09.22.2006 olarak getiriyor.. bunu nasıl çözebilirim yardımcı olursanız sevinirim..

 

[Mahmut Kök]

sayfadan aldığınız hücresinin sonuna
*1
koyarsanız düzelir.

TextBox7 = [a1] * 1
TextBox7.Text = Format(TextBox7.Text, "dd.mm.yyyy")

 

[alpi]

Aşağıdaki kodu kullanın

Private Sub TextBox7_Change()
    If TextBox7.Text = "" Then Exit Sub
    TextBox7.Text = FormatDateTime(TextBox7.Text, vbShortDate)
End Sub

 

[orcunerkek54]

olmuyor TextBox7 = [a1] * 1 hata verdirtiyor. userform4 üzerindeki combolarla bilgileri seçip textlere gönderiyorum...tarihler L sütununda

 

[Seyit Tiken]

Tarih formatlamayı bu şekilde yapın.

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

Hücre adresi için kod kullanmayın. Bunun yerine Özelliklerde(Properties) bulunan CONTROLSOURCE özelliğini kullanın.

 

[Zeki Gürsoy]

Şu şekilde uygularsanız istediğiniz olacaktır.

TextBox1 = Format([a1], "dd.mm.yyyy")

 

[orcunerkek54]

arkadaşlar ben yapamadım kafasına göre takılıyor bu tarihler dosyamı ekliyorum bakabilrseniz sevinirim..... Userform4te problem oluşmakta verilerini ARAÇBİLGİLERİsayfasından almaktadır..problemin ney olduğunu yazarsanız sevinirim.. anladığım kadarıyla gün sıfırla başlayınca karışıyor 02.11.2006 gibi olunca bozuluyor

 

[alpi]

Dosyanız ektedir

Değiştirilen satır kod içerisinde belirtilmiştir.

 

[orcunerkek54]

yardımınız için teşekkürler şimdi olmuş zaten istesemde yapamazmışım kodun yerini görünce anladım