منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

كود :

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

جزك الله خيرا