[Microformt]

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

[Taha Okla]

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

كود :

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

[Microformt]

(04-08-22, 09:01 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
استخدم الكود ..

كود :

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

جزك الله خيرا