YIL VE AY (2000/01)

[Ongun]

Günaydın arkadaşlar,

Textbox1`den enter ile çıkınca 2000/01,2000/02..... ve 2010/12`ye kadar olan ay ve yılların doğru yazılmasını nasıl sağlayabiliriz. Yani 1999/01 olarak giriş yapılırsa uyarı versin mutlaka bizim belirlediğimiz yıl ve ayları tanısın.

Bunu yapmak mümkünmüdür. Saygılarımla, :hey:

 

[Serpily]

Günaydın Sayın Ongun,

Textbox yerine iki tane combobox ile birinden yılı diğerinden ayı seçtirsek işinizi görür mü acaba?

 

[Ongun]

Textbox yerine iki tane combobox ile birinden yılı diğerinden ayı seçtirsek işinizi görür mü acaba?[/quote]

Öncelikle ilginiz için çok teşekkürler. Combobox ile bunu yapabiliyorum ancak elimde daha önce yapmış olduğum bir proğram var. Bütün her şey bu şekilde ayarlanmış, yani kodlarda değişiklikler yapmam lazım.

oysa textbox`dan enter yapınca bir nevi oto kontrol sağlatmak istiyorum. Amacım kullanıcıyı yazması gereken yıllara ve aylara zorlamak.

Örneğin 1999/12, 2011/06 veya 1999/02 gibi yazılmasını engellemek istiyorum.

Dediğiniz gibi combobox`da yapsam çok kolay olacak ama malesef birbiri ile bağlantılı çok fazla kod var. Saygılarımla. :hey:

 

[class37]

Merhaba
Yıl/ Ay girdiğinize göre Başka TextBoxa ilk 4 rakamı alıp kontrol ettirebilirsiniz.
Ben bir ön çalışma yaptım.İyiçalışmalar.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = Mid(TextBox1, 1, 4)
If TextBox2.Text < 2000 Then
TextBox2 = ""
TextBox1 = ""
ElseIf TextBox2.Text > 2010 Then
TextBox2 = ""
TextBox1 = ""
Exit Sub
End If
End Sub

 

[Ongun]

Sayın class37, ilginiz için çok teşekkürler. Elinize sağlık

Ancak, benim istediğim tam olarak bu değil, 2000/01 den 2010/12 arasındaki yıl ve ayların textbox`a doğru girilmiş olmasını sağlamak.
yani
2000/01,2000/02,2000/03,2000/04,2000/05,2000/06,2000/07,2000/08,2000/09,2000/10,2000/11,2000/12
bu böyle yıllar itibariyle 2010/12 ye kadar devam edecek. Bu arada yıl ve ay girişi yapılmasına izin veren, ancak bunların dışında olursa giriş izni vermeyen uyarı veren (hatalı girdiniz gibi) bir şey istiyorum.

Lütfen yardımcı olun. Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:ad1dd3ad6a]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Year(TextBox1) < 2000 Or Year(TextBox1) > 2010 Then
MsgBox "TARİH GİRİŞİ HATALIDIR"
TextBox1 = ""
End If
End Sub
[/vb:1:ad1dd3ad6a]

 

[Ongun]

Sayın leventm, elinize sağlık. Çok teşekkür ederim.

kodlarınızı denedim ama 2000/13 olarak giriş yapınca "Type Mismatch" hatası verdi. Aslında "TARİH GİRİŞİ HATALIDIR" uyarısı vermesi lazım. Acaba nedeni ne olabilir. Saygılarımla :kafa: :kafa: :kafa:

 

[Levent Menteşoğlu]

Çünkü 13.ay yoktur, bu durumda yazdığınız tarih olarak algılanmayacaktır ve kod içindeki year() fonksiyonu hata verecektir.

 

[Ongun]

Haklısınız. Ama kullanıcı yanlışlıkla 12 yerine 13 olarak giriş yaparsa hata vermemesi için ne yapabiliriz. Saygılarımla.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:9c30f366b7]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) = False Then GoTo 10
If Year(TextBox1) < 2000 Or Year(TextBox1) > 2010 Then GoTo 10
Exit Sub
10 MsgBox "TARİH GİRİŞİ HATALIDIR"
TextBox1 = ""
End Sub
[/vb:1:9c30f366b7]

 

[Ongun]

Sayın leventm, çok çok teşekkür ederim. Ellerinize yüreğinize sağlık. Her zaman sağlık ve mutluluk içinde olun. Saygılarımla :mutlu: