04-08-22, 09:01 PM
وعليكم السلام ورحمة الله وبركاته
استخدم الكود ..
استخدم الكود ..
كود :
If Year(Text1.Text) <= Year(Now) Then
MsgBox "يا حباب حد ع الباب بيقول لك" & vbNewLine & "سجل سنة أكبر من السنة الحالية", vbExclamation, "تذكير"
Text1.SetFocus
Exit Sub
End Ifقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
