TEXT BOX' A (ŞİMDİKİ YIL +20 ) 'DEN DAHA DÜŞÜK GİRİLİRSE

[cocoa35]

Merhaba UserForm'daki örneğin TextBox9'a geçerli şimdiki yıl +20 'den daha düşük bir yıl girilirse " şimdiki yıl' +20 yıl'dan daha düşük tarih giremezsiniz" mesajı versin ve kabul etmesin bunu yaptırmak istiyorum

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Private Sub TextBox9_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Val(TextBox9.Value) < Year(Date) + 20 Then
    MsgBox " şimdiki yıl' +20 yıl'dan daha düşük tarih giremezsiniz"
    Cancel = True
End If
End Sub

 

[cocoa35]

Merhaba,
Deneyiniz...

Private Sub TextBox9_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Val(TextBox9.Value) < Year(Date) + 20 Then
    MsgBox " şimdiki yıl' +20 yıl'dan daha düşük tarih giremezsiniz"
    Cancel = True
End If
End Sub

Merhaba çok güzel olmuş tam istediğim gibi ancak uygulayınca farkına vardım şöyleki ; evet kullanıcı +20 yıldan daha düşük bir değer girince mesaj geliyor ancak girilen istemediğimiz tarih orada kalıyor eğer o şekilde userform'daki command buttona tıkladığında istemediğim tarih ilgili hücreye yazılma ihtimali var bu formülü şöyle yapılabilirmi acaba? mesaj çıkmasına rağmen kullanıcı +20 seneden daha az yılı textbox'a yazıp commandbutton1'e tıkladığında işlem yapılmasın textbox'daki değerin değişmesi konusunda kullanıcıyı zorlasın bu olabilirmi?

 

[ÖmerBey]

Bu haliyle hatalı tarih girildiğinde butona da tıklanamıyor olması gerek. Hatalı tarih girerek butona tıklamayı denediniz mi?
Yine de isteseniz kayıt butonunun başına If Val(TextBox9.Value) < Year(Date) + 20 Then Exit Sub şeklinde bir kontrol satırı ekleyebilirsiniz.