التحقق من التاريخ

[gelani]

اجمل تحية أقدمها لجميع أعضاء المنتدى الرائع

السئوال هو - كيف اجعل البرناج يتحقق من تاريخ التعيين بحيث يكون اكبر من تاريخ الميلاد .

d1 هو تاريخ الميلاد

d2 تاريخ التعيين

رعاكم الله .

[ابوخليل]

السلام عليكم

في حدث بعد التحديث لمربع النص تاريخ التعيين ( d2 ) اكتب الكود التالي

If d2 < d1 Then
 MsgBox "عفواً أدخل التاريخ الصحيح"
Else
End If

[gelani]

اشكركم على الرد

هناك ملاحظة وهي بعد ظهور الرسالة يتم تخزين التاريخ المدخل حتى وإن كان قبل تاريخ الميلاد.

تحياتي أكررها وفي إنتظار ابداعاتكم .

[ابوخليل]

استبدله بهذا

Private Sub d2_BeforeUpdate(Cancel As Integer)
If d2 < d1 Then
MsgBox "عفواً  ادخل  التاريخ  الصحيح"
     Cancel = True
    Exit Sub
   End If
End Sub

[gelani]

آسف جدا على الازعاج

المشكلة لا زالت قائمة الرجاء النظر في المرفق .

تحياتي .

_______.rar

[ابوخليل]

أسف كثيرا أخي

جهازي يحتوي على اوفس 2003 فلا يفتح قاعدة بيانات 2007

[gelani]

معذرة يا أبو الأنس

لا يزال يقبل تاريخ التعيين قبل تاريخ الميلاد بالرغم من رسالة التحذير .

اجمل تحية .

[ابوخليل]

هذا لكود تم فحصه يعمل وعلى طلبك بإذن الله %

Private Sub d2_AfterUpdate()
If d2 < d1 Then
MsgBox "عفواً التاريخ المدخل غير صحيح"
  DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
   End If
 End Sub

___.rar

تم تعديل يونيو 27, 2009 بواسطه أبو الأنس

[gelani]

الف الف شكر

الكود يعمل بشكل رائع وفقك الله ورعاك .

زادك الله علماً ونفع بك .

تحياتي وتقديري

[Mohamed Nada]

أخى الكريم

مجهود رائع تستحق عليه كل تقدير

لى إضافة بسطية إذا اتسع صدرك لها.

أنا أقوم باحتساب العمر عند التعيين .. وإذا كان العمر أقل من 18 سنة يرفض الإدخال بنفس الطريقة.

حيث أعتقد أنه من الأفضل عدم الاكتفاء بأن يكون تاريخ التعيين أكبر من تاريخ الميلاد وحسب ... لعل الفارق بينهما يكون أيام .. وهو خطأ أيضاً

مجرد فكرة لمحاولة التحسين ولن تكلبف شئ.

بالمرفق مثال صغير

تحياتى

محمد ندا

DB001.rar

تم تعديل يونيو 29, 2009 بواسطه Mohamed Nada

[ابوخليل]

أهلا بك يا استاذ محمد ومشكور على هذه المداخلة

لم تغب عن بالي هذه النقطة ولكن ..... قلت .. قد يستعمله في غرض آخر غير ما عرض به ، ولا يخفى يحدث هذا كثيرا

فالأمر هنا يرجع لصاحب الشأن . لعله يقرأ ملا حظتك فجزاك الله خيرا

تم تعديل يونيو 29, 2009 بواسطه أبو الأنس

[Mohamed Nada]

أخى الكريم ابو خليل

أشكرك لسعة صدرك أولاً ...... ثم فعلاً لقد أفدتنى بوجهة نظرك هذه .. فلم أنتبه إليها.

تحياتى

محمد ندا