السلام عليكم
اخوتي الكرام كيف لي ان اجعل التكست يتحقق من التاريخ قبل ادخاله الى قاعدة البيانات
فمثلا اليوزر يكتب 31/12/200 بدلا من 31/12/2007 (ينسى ادخال الرقم 7)
اذن كيف يمكنني ارسال ميسج او رسالة تنبه المستخدم بان التاريخ خطا وعليه تصحيح التاريخ
ارجو ان تجيبوني
أولاً التاريخ المدخل غير خاطيء !!!!
لأنني إذا إستخدمت الدالة IsDate ستعطي لي القيمة True أي قيمة تاريخية
If(IsDate(Text1.Text) = False)Then MsgBox "القيمة المدخلة غير تاريخ" Exit Sub End If
أما إذا كنت ترغب في إدخال سنة من قرن سابق فعليك الكود التالي :
If(CDate(Text1.Text) < (Date - (100 * 365.25))Then MsgBox "يجب إدخال تاريخ من القرن السابق" Exit Sub End If
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
مشكور اخي mma_eg ولكن قمت بادخال تاريخ بهذا الشكل 12/12/200 فقبله على انه تاريخ صحيح
وايضا التاريخ 12/55/2007 قبله على انه تاريخ صحيح
اظن ان الفكرة تدور حول مراقبة كل حرف من حروف النص
فمثلا من اليسار الى اليمين
يجب ان يكون الرقم الاول لا يتعدى 3 والرقم الثاني لا يتعدى 9 ومجموعهما لا يتعدة 31 وهكذا مع باقي الحروف
ساحاول ايجاد الحل واذا استطعت انت فساعدني واكون لك من الشاكرين
وعليكم السلام ورحمة الله وبركاته : تفضل اخي حمل المرفق أرجو ان يفيدك .. تحياتي
مشكور جزيل الشكر اخي محمد هذا ما كنت ابحث عنه :ty:
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…