DTPicker'in uyarı mesajı vermesi

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

Merhabalar;

DTPicker'e, bugünden sonraki tarih yazıldığında uyarı mesajı vermesi için
Aşağıdaki kodu uyguladığımda, istediğim mesajı veriliyor, hatta Userform kapatılmak istense bile yine aynı uyarıyı veriyor. FAKAT; istenmeyen tarihi yazıyor. Uyarıyı vermekle birlikte, İstenmeyen tarihi (bugünden sonraki tarihi) yazmaması için ne gibi bir ilave gereklidir.

Private Sub DTPicker1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DTPicker1) = False Then
ElseIf CDate(DTPicker1) > Date Then
MsgBox "BUGÜNDEN SONRAKİ TARİHİ GİREMEZSİNİZ.", vbCritical
Cancel = True
TDTPicker1 = ""
Cancel = True
End If
End Sub

Şimdiden Teşekkürler....

 

[veyselemre]

Birde aşağıdaki gibi deneyiniz,
[vb:1:cb8af2fea9]Private Sub DTPicker1_CloseUp()
If DTPicker1.Value > Date Then
MsgBox "BUGÜNDEN SONRAKİ TARİHİ GİREMEZSİNİZ.", vbCritical
Cancel = True
DTPicker1.Value = Date
DTPicker1.SetFocus
End If
End Sub[/vb:1:cb8af2fea9]

 

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

Sayın veyselemre;

Teşekkürlerimi ve selamlarımı sunuyorum. k::