Textbox'a Tarih girerken, mesaj çıkması

[İsmail Küçükşengün]

Merhabalar;

Bir textbox'a tarih girerken (tarihi yazdıktan sonra), eğer girdiğimiz tarih, bugünkü tarihten sonra ise "BUGÜNDEN SONRAKİ TARİHİ GİREMEZSİNİZ" şeklinde uyarı vererek, yeniden doğru tarihi girmemiz için boşalması ve tarih formatı için nasıl kod gereklidir.

Şimdiden Teşekkürler....

 

[Kemal Demir]

Sn.kucuksengun

Çalışmada Tarih Bugune Eşit ise Tarih Doğru Diyor.

Değilse Yanlıs tarıh deyip textbox1 Değerini siliyor.


Küçük Örnek Bir dosya hazırladım inceleyiniz.Umarım işinizi Görür.


Notosyayı ekledıkten Sonra Gördüm bunu CommandButton ile değilde

içerideki kodları bunun içerisinede yazabilirsiniz.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

 

[İsmail Küçükşengün]

Sn Rakkas;

İlgine teşekkür.
Fakat ekteki hatayı veriyor.

Bir de buton olmadan, yazıldığı anda MESAJI verebilir mi?...

 

[Korhan Ayhan]

Selamlar,

Peki tarih bugünden önce girilirse bir işlem yapılacakmı? Yani mesajı sadece bugünden büyük bir tarih girilincemi verecek?

 

[İsmail Küçükşengün]

Evet. Tarih bugünden önce ise, normal olarak yazacak.
Şayet bugünden sonra ise uyarı mesajı verecek ve textbox'a yazmayacak.

 

[Korhan Ayhan]

Selamlar,

O zaman aşağıdaki kod işinizi görür.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) = False Then
MsgBox "HATALI TARİH GİRİŞİ YAPTINIZ. LÜTFEN KONTROL EDİNİZ.", vbCritical
Cancel = True
TextBox1 = ""
ElseIf CDate(TextBox1) > Date Then
MsgBox "BUGÜNDEN SONRAKİ TARİHİ GİREMEZSİNİZ.", vbCritical
Cancel = True
TextBox1 = ""
Else
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
Cancel = False
End If
End Sub

Edit : Koda hata kontrolüde ekledim.

 

[İsmail Küçükşengün]

Sayın COST CONTROL

Her zamanki gibi harikasınız.

Teşekkürler..... :icelim:

 

[ocamsul]

ben denedim; mesela 20.04.2006 şeklinde 1. text e girip yazdım ardından 2. text e geçtiğimde herhangi bir mesaj vermedi.

 

[Kemal Demir]

Sn.kucuksengun

Notosyayı ekledıkten Sonra Gördüm bunu CommandButton ile değilde

içerideki kodları bunun içerisinede yazabilirsiniz.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Gerçi Sn.costControl size Cevap vermiş.Ama Zannederm Yaptıgım Calısmada Problem Çıkmaması Lazım.
Neyse Önmeli Olan Sizin Sorunuzun Halldelmesidir.

 

[Korhan Ayhan]

Selamlar,

Sn. ocamsul sanırım aşağıdaki kısmı atladınız.

Evet. Tarih bugünden önce ise, normal olarak yazacak.
Şayet bugünden sonra ise uyarı mesajı verecek ve textbox'a yazmayacak.

 

[ocamsul]

Sn: COST_CONTROL

evet iyi okumamışım. haklısınız.

 

[Kemal Demir]

Düzeltiyorum Bilgilerim Tamamiyle yanlıs. pucuk:

 

[İsmail Küçükşengün]

Sayın Rakkas;

İlginiz, yardımcı olma isteğiniz ve paylaşımcılığınız yeter. k::