عدم قبول تسجيل البيانات إلا بعد مرور 15 يوما من أخر تسجيل ؟

هل التعديل المطلوب صعب ؟

عذرا إخواني . . هل المطلوب مستحيل ؟

لقد لاحظت تحميل المرفق 11 مرة ولا يوجد اي رد !!

الصق هذا الكود بدلا من الكود الخاص بزر اضافة جديدة

Private Sub أمر14_Click()
On Error GoTo Err_أمر14_Click
  Dim s As Integer
  Dim ss As Date
ss = DMax("D", "الحركة", "A='" & Me.A & "'")
s = Date - ss
If s < 15 Then
MsgBox "لا يحق لك الحجز قبل مضي 15 يوما"
 DoCmd.CancelEvent
 Exit Sub
 Else
    DoCmd.GoToRecord , , acNewRec
A.SetFocus
End If
Exit_أمر14_Click:
    Exit Sub
Err_أمر14_Click:
    MsgBox Err.Description
    Resume Exit_أمر14_Click
End Sub

شكرا لك اخي sabhha علي إهتمامك بالرد

لقد نفذت الكود وهو رائع جدا . . ولكنه علي الرغم من ظهور الرسالة فإنه يقبل ادخال الحجز !!

برجاء أكمال معروفك أخي وتعدل هذا الكود بحيث لايقبل ادخال التاريخ الجديد الا بعد مرور 15 عشر يوما نظرا لضخامه عدد المواطنين الذين يقومون بالحجز يوميا !!

وهل يمكنك اقتراح كود بعيدا عن زر الإضافة ؟؟ حيث انه عند الضغط علي زر الاضافة بعد الادخال تظهر الرسالة بعدم امكانيه الحجز لاننا ما زلنا نقف عند السجل السابق . . فقد اصبح زر الاضافة لايقوم بدورة في اضافة سجل جديد !!

هل يمكنك أخي اجراء التعديلات البرمجية في مربع السرد والادخال A عند النقر بعيدا عن زر الإضافة ؟؟ كما بالرسم التالي :

ومرفق قاعدة البيانات بعد التعديل الذي أقترحته . .

وتقبل مني جزيل الشكر أخي . .

توزيع اسطوانات الغاز الطبيعي - تعديل كود الاضافة.rar

اخي ماجد

ما رأيك نبتعد عن الأحداث الاكواد ؟ ............. لاقدم لك اقتراح لم يخطر على بالك

ما رأيك لو ان مربع التحرير لا يعرض أصلا الا اسم من مر عليه اكثر من 15 يوما فقط ؟

.. اخوك ابو ياسر ..

sabhha كتب:

اخي ماجد

ما رأيك نبتعد عن الأحداث الاكواد ؟ ............. لاقدم لك اقتراح لم يخطر على بالك

ما رأيك لو ان مربع التحرير لا يعرض أصلا الا اسم من مر عليه اكثر من 15 يوما فقط ؟

.. اخوك ابو ياسر ..

فكرة رائعة . . علي بركة الله . .

أنتظر التعديل بفارغ الصبر . . مع تحياتي لك . .

قمت بانجاز العمل قبل الرد وقد اخذ من وقتي لاني توقعت القبول ولاني على جناح سفر

العمل متقن ، فالآن مربع التحرير لا يعرض الا من مر عليه اكثر من 15 يوما ، ومع ذلك يعرض الاسماء الجديدة التي لم يتم الحجز لها

ان اردت التعديل على عدد الايام فانظر الى الاستعلام المصدري لمربع التحرير

.... دعواتك اخي الكريم ...

توزيع اسطوانات الغاز الطبيعي .rar

شكرا لك اخي sabhha . .

وبارك الله فيك . . ويسر لك سفرك . .

ولك مني عظيم التحيه والشكر . .

أخي ماجد الأسيوطي

تصميم متميز وبسيط لقاعدة البيانات

تحياتي لك ولأخي sabhha علي التعديلات

بارك الله فيكم

شكرا لكم اخوانى الافاضل وجميلكم على راسى لكن ارجو التعديل حيث يكون هناك نموذج لادخال البيانات كحصر لاهالى المنطقة وعند الحجز يتم اختيارهم ولا يجوز تكرار الحجز مثلا شك بوكس