TextBox da tarih formatı

[Erhan Üstünel]

arkadaşlar ekteki kuman arkadaşımızın çalışmasını kendime uyarladım,

TextBoxda tarih formatını gün.ay.yıl olarak aldırmak istiyorum

birde yeni kayıt yap dediğimde kaydetmiyor fonksiyonları çok silince gerekli yerleride sildim heralde

yardımcı olabilecek arkadaşlara şimdiden teşekkür

 

[Orion1]

Kendi çalışmanıza uyarlayınız.

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

 

[Erhan Üstünel]

Kendi çalışmanıza uyarlayınız.

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

hocam ay/gün/yıl olarak çıkıyor hep dosyama bi bakabilirseniz sevinirim,

tescil tarihi olan textbox6 ya ayar çekmeye çalışıyorum

 

[Orion1]

hocam ay/gün/yıl olarak çıkıyor hep dosyama bi bakabilirseniz sevinirim,

tescil tarihi olan textbox6 ya ayar çekmeye çalışıyorum

Sizin sorununuz hangi olaya ne yazacağınızı bilememekten kaynaklanıyor.

Private Sub TextBox6_click() ' BU OLMUYOR..............
TextBox6.Text = Format(TextBox6.Text, "dd.mm.yyyy")
End Sub

Yukarıdakini comple siln.
Aşağıdakini yazın.Textboxtan çıkınca çalışır.

Private Sub TextBox6_AfterUpdate()
TextBox6.Text = Format(TextBox6.Text, "dd.mm.yyyy")
End Sub

 

[Erhan Üstünel]

Sizin sorununuz hangi olaya ne yazacağınızı bilememekten kaynaklanıyor.

Private Sub TextBox6_click() ' BU OLMUYOR..............
TextBox6.Text = Format(TextBox6.Text, "dd.mm.yyyy")
End Sub

Yukarıdakini comple siln.
Aşağıdakini yazın.Textboxtan çıkınca çalışır.

Private Sub TextBox6_AfterUpdate()
TextBox6.Text = Format(TextBox6.Text, "dd.mm.yyyy")
End Sub

o kısmı silmiştimde silmeden eklemişim buraya
tuhaflık benim pc de ozaman kafayı yicek ama genede olmadı, diğer örnek dosyalarıma bakıyorum yine yapamadı, neyse sağolun hocam yarın iyice kurcalıcam artık

iyi akşamlar....

 

[Orion1]

Dosyayı ekledim.
İnceleyiniz.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!A2:A" & Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
[B][COLOR="Red"]TextBox6.Text = Format(Date, "dd.mm.yyyy")[/COLOR][/B]
End Sub
Private Sub TextBox6_AfterUpdate()
TextBox6.Text = Format(TextBox6.Text, "dd.mm.yyyy")
End Sub

 

[Orion1]

Eğer yine olmuyorsa Denetim masası bölgesel ayarlardan tarih biçimini değiştirin.

 

[Erhan Üstünel]

peki hocam emekleriniz için teşekkürler

 

[Merhum İdris SERDAR]

arkadaşlar ekteki kuman arkadaşımızın çalışmasını kendime uyarladım,

TextBoxda tarih formatını gün.ay.yıl olarak aldırmak istiyorum

birde yeni kayıt yap dediğimde kaydetmiyor fonksiyonları çok silince gerekli yerleride sildim heralde

yardımcı olabilecek arkadaşlara şimdiden teşekkür

.

Dosyanız ekte.

.

 

[Erhan Üstünel]

.

Dosyanız ekte.

.

teşekkürler hocam elinize sağlık