Textbox ta tarih formatı

[DeliBalta58]

Arkadaşlar textbox'a veri girildikten sonra enter ile çıkılınca ( daha doğrusu textbox terk edilince ) aşağıdaki kodla gg.aa.yyyy formatına dönüyor

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

Hücrelere Kayıt yapılırkende

ActiveCell.Offset(0, 3).Value = Format(TextBox1.Value, "dd.mm.yyyy")

Ancak daha textbox'a yazarken "."yı kendisi yazım sırasında atmalı Hücreye kaydettiğimde de tarih formatında olmalı bu mümkünmü?

 

[Levent Menteşoğlu]

Kodu enter değil exit olayına yazın, textboxa örneğin sadece 1-5 şeklinde yazmanız yeterlidir.

 

[DeliBalta58]

Sayın leventm enter olayında değil de henüz textbox'da iken önreğin 29.05.2007 tarihi yazılacak.
ben klavyeden 12 yi yazınca kendisi o an "." yı koyacak.
05 'i yazınca o yine "." yı koyacak.
bu işlem texbox'u terk etmeden meydana gelmeli.

Buna neden ihtiyaç var aklınıza gelebilir.
Kurumum için bir Evrak Arşiv ve otomasyon programı üzerinde çalışıyorum.
Gelen - Giden evrak ve arama bölümleri var.
Arama kriterlerinden biriside Tarih ve İki tarih arası olacak.
İlk önce Gün Ay ve yıl için birer tane Combobox Koydum. Gün verisini ayrı Ay verisini ayri Yıl verisini ayrı hücrelere yazdırdım. Arama yaptırırken bu tür bir tarih seçeneğinde iki tarih arasını bulduramadım.
Daha önceden Takvim nesnesi ekledim.
Ancak Gün Ay Yıl olarak yazması gerekirken Bazen Ay gün Yıl yazıyor Bazen Gün Ay Yıl yazıyor. Bu olay Forumda ve kodlarda hiçbir değişiklik yapmadan meydana geliyor.
Buna bir anlam ve mana veremedim. Çözümde bulamadım.

O yüzden bende takvim işinden vazgeçip kullanıcı el ile girsin ama "/" vs kullanmasın direk olarak 29052007 şeklinde Texbox'a girince yazım anında 29.05.2009 haline döndersin istedim

yani kullanıcının yanlış işlem yapma olasılığını ortadan kaldırmayı planlıyorum.

Dosya bu linkte
http://www.2shared.com/file/1927476/ecac95ac/_BULUT_Resmi_Yazma_ariv.html
Teşekkürler

 

[Seyit Tiken]

Bu şekilde işinize yarar mı? İmleç TextBox'u terk ettiği zaman noktayı otomatik koyar. Deneyin.

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "00"".""00"".""0000")
End Sub

 

[DeliBalta58]

elinize sağlık . İstediğim bu değil.
çünkü;
Private Sub TextBox1_Enter()
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

bu kodla oluyor . Textbox'u terk edince kendiğilinden araya nokta koyuyor.
Aynı Acces lrogramlarda olduğu gibi istemiştim

 

[Ali]

Private Sub TextBox1_Change()
If TextBox1.Tag = "1" = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "."
ElseIf Len(TextBox1) = 5 Then
If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", "")) < 2 Then
TextBox1 = TextBox1 & "."
End If
End If
End Sub

 

[DeliBalta58]

Sayın Ali
Elinize sağlık teşekkürler

 

[xxcell]

Bende şöyle bir örnek düşünmüştüm.

Not. İşyerinde fazla ilgilenemediğim için Insert tuşunu pasif yapacak özelliği bulamadım. Onuda eklesem tam süper bişey oluyo :mrgreen:

 

[NBATMAN]

Arkadaşlar textboxdaki tarih formatı için kullanılan kodlardaki format komutunda örneğin;TextBox1 = Format(TextBox1, "dd.mm.yyyy") gibi hata mesajı alıyorum hata mesajı penceresi şu şekilde compile error: can't find project or library pencerenin altında da tamam ve yardım butonları var.Form dan tarih konusu ile ilgili bir çok uygulamayı dosyama uyguladım fakat olmadı.bu arada ben bir dtpickerden textbox a tarihi aktarıyorum bunu belirteyim istedim,yardımcı olursanız sevinirim...

 

[INSMUH]

Beni nasıl bir dertten kurtardınız biliyor musunuz )
Teşekkürler,