TEXTBOX`UN "0000/00" ŞEKLİNDE FORMATLANMASI

[Ongun]

TEXTBOX`UN "0000/00" ÞEKLÝNDE FORMATLANMASI

Arkadaşlar, 2000/01,1999/11,2005/03 gibi yazılmadığı takdirde mesajla uyarı vermesi için Textboxa format atmak istiyorum. Ama bir türlü yapamadım. Yani "0000/00" (sıfırları örnek verdim) dışında yazılmasını engellemek istiyorum. Nasıl yapmam lazım. Bana yardımcı olursanız sevinirim. Teşekkürler.

Not: Sitede arama yaptım ama rastlamadım.

 

[htsumer]

2000/11 Gibi değerleri tarih olarak varsayarsak;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsDate(TextBox1.Value) Then
        TextBox1.Value = Format(TextBox1.Value, "yyyy/mm")
    Else
        MsgBox "Bilgi mesajı"
        TextBox1.Value = ""
    End If
End Sub

 

[Ongun]

Sayın htsumer, elinize sağlık ancak örneğin 2000/01 diye yazıp exit yapınca 2000.01 olarak görünüyor. Ben "/" işaretinin de görünmesini istiyorum. Bu şekilde olması için ne yapmamız lazım. Tekrar teşekkür eder saygılar sunarım.

 

[idogus]

"yyyy""/""mm" olarak yazarsanız sanırım çözülür.

 

[Haluk]

Alternatif olarak aşağıdakini de deneyebilirsiniz ...

Verileri girerken, örneğin 200506 diye girin, siz yazarken otomatik olarak 2005/06 olarak biçimlendirilecektir.

[vb:1:7c9d946cf5]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.MaxLength = 7
If TextBox1 Like "####" Then TextBox1 = TextBox1 & "/"
End Sub
[/vb:1:7c9d946cf5]

Not: Eğer varsa, TextBox1_Exit prosedurunü de silin.

 

[Ongun]

Arkadaşlar hepinizin elinize ve yüreğine sağlık, bana yol gösterdiniz. Aşağıdaki koda göre sorunumu çözdüm. Bu site harikaaaaaa. İyi ki varsınız. Hepinize saygı ve sevgilerimle. Çok teşekkürler. :hey:

Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox3.Value) Then
TextBox3.Value = Format(TextBox3.Value, "yyyy""/""mm")
Else
MsgBox "HATALI GİRİÞ YAPTINIZ.!"
TextBox3.Value = ""
End If
End Sub

 

[htsumer]

2000/01 diye yazıp exit yapınca 2000.01 olarak görünüyor. Ben "/" işaretinin de görünmesini istiyorum.

(İşlerim yoğunda.. :kafa: :kafa: )
Gerçi sorununuz çözülmüştür ama bende 2000/11 olarak görünüyor.Herhangi bir proğramınız Bölgesel ayarlarınıza bağımlı ise,Bölgesel ayarlarınızdaki tarih ayıracı (/) değil (.) şeklindedir.Bu nedenle sizde farklılık veriyordur.Diğer arkadaşların alternatifleride sizin işinize cevap olacaktır..
Kolay gelsin.