[Microformt]

الاحوه الكرام
 السلام عليكم ورحمة وبركاته
كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟
نامل المساعدة  وجزكم الله خيراً

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته
استخدم الكود ..

كود :

If Year(Text1.Text) <= Year(Now) Then
   MsgBox "يا حباب حد ع الباب بيقول لك" & vbNewLine & "سجل سنة أكبر من السنة الحالية", vbExclamation, "تذكير"
   Text1.SetFocus
   Exit Sub
End If

[Microformt]

وعليكم السلام ورحمة الله وبركاته
استخدم الكود ..

كود :

If Year(Text1.Text) <= Year(Now) Then
   MsgBox "يا حباب حد ع الباب بيقول لك" & vbNewLine & "سجل سنة أكبر من السنة الحالية", vbExclamation, "تذكير"
   Text1.SetFocus
   Exit Sub
End If

جزك الله خيرا