İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
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....
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....