[تمت الاجابة ] 30 عميل في تاريخ واحد

[bumb]

السلام عليكم

1 - لدي قاعدة بيانات تسجيل مواعيد العملاء والمطلوب هو جعل حقل تاريخ الإستلام [DateReceipt] يقبل فقط 30 عميل بعد ذلك يطلب مني تحديد تاريخ اخر

بودي ان التاريخ يكون تلقائي لكن هناك مشكلة الاجازات والخميس والجمعه

الطلب الثاني وهو اني ارجو من الأخوه اللي يقومون بتقديم يد المساعده ان يتمو جميلهم ويقدمو شرح للكود حتى يكون فهم الكود اقل غموضاً

2 - كيف اظهر العملاء الذين تواريخ استلامهم في هذا الاسبوع

اشكركم على كل ماتقدموه وأسأل الله ان يجعل صنيعكم هذا في ميزان حسناتكم

قاعدة بيانات1.zip

[bumb]

اما من مغيث

[أبو آدم]

صبرا

امهلنا علنا نستطيع مساعدتك

[أبو آدم]

أخي العزيز

اليك حل الجزء الاول من (1) و المتعلق بقبول 30 قيد لتاريخ يوم محدد ( تم تعديل الكود)

Private Sub DateReceipt_BeforeUpdate(Cancel As Integer)

      If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 2 Then

          MsgBox "The limit for records in this day has been reached , pick a new day", vbOKOnly

        Cancel = True

        Me!DateReceipt.Undo

    End If

End Sub

ضع الكود في حدث قبل التحديث لحقل التاريخ الخاضع للرقابة ، وسيحقق لك النتيجة التي تريدها باذن الله

والبقية تأتي ,, ولكن اعذرني كون القاعدة التي ارفقتها لا تساعد

....

[أبو آدم]

أخي العزيز

أما في حل الجزء الثاني من (1)

فالامر لا يقتصر على ايام الخميس و الجمعة بل يصل الى ايام العطل الرسمية و الاعياد

لذا و اختصارا للمستجدات التي ستواجهك قم بانشاء جدول للعطل الرسمية حسب التالي:

Table: Holidays

   -----------------------

   Field Name: Description

     Data Type: Text

   Field Name: HoliDate

     Date Type: Date/Time

انشئ وحدة نمطية جديدة وانسخ اليها ما يلي:

Function OfficeClosed(TheDate) As Integer


     OfficeClosed = False


     ' Test for Thursday or Friday.

     If Weekday(TheDate) = 5 Or Weekday(TheDate) = 6 Then

         OfficeClosed = True

     ' Test for Holiday.

     ElseIf Not IsNull(DLookup("HoliDate", "Holidays", "[HoliDate]=#" _

      & TheDate & "#")) Then

        OfficeClosed = True

    End If


 End Function

وأعد ارفاق المثال للتطبيق و التعديل

والبقية تأتي ....

....

[bumb]

السلام عليكم اخي العزيز

قمت بعمل ماطلبت ولكن للمعلوميه لم يعمل كود تحديد عدد العملاء كما ينبغي

تحياتي لك

ألمواعيد.zip

[أبو آدم]

أخي العزيز

سبق ان اشرت ان الكود بحاجة لتعديل وقد تم تعديله وتجربته ويعمل بشكل ممتاز

يمكنك تعديل الرقم كما تريد من 2 الى 30 او اي عدد آخر

والبقية تأتي ....

[أبو آدم]

أخي العزيز

في حدث قبل التحديث لحقل التاريخ الخاضع للرقابة يصبح الكود

Private Sub DateReceipt_BeforeUpdate(Cancel As Integer)

    If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 30 Then

           MsgBox "The limit for records in this day has been reached , pick a new day", vbOKOnly

        Cancel = True

        Me!DateReceipt.Undo

    End If


 If OfficeClosed(Me.DateReceipt) = True Then

      MsgBox "Holiday , Go to the next day", vbOKOnly

        Cancel = True

        Me!DateReceipt.Undo

 End If


End Sub

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

هنا يتم تعديل ايام العطل الاسبوعية في الوحدة النمطية كما نشاء وقد عدلتها لتصبح 5 الخميس و 6 الجمعة (المشاركة 5 أعلاه)

جرب ووافني بالنتيجة

....

[bumb]

لم يعمل الكود كما ينبغي

[أبو آدم]

ما هي البروة ؟؟!!!

[أبو آدم]

أخي العزيز

لم يعمل الكود كما ينبغي

؟؟؟؟؟ !!!!!

أين المشكلة؟؟؟

[bumb]

الجزأ الأول من الكود لا يعمل (يسمح بالتسجيل وكأن لم يكن هناك كو)

الجزأ الثاني تظهر رسالة خطأعند if officeClosed

البروه هي ورقه اثبات زكاة الماشيه ويصرف بموجبها اعلاف للماشيه

ممكن ترفق المثال بعد التعديل حتى ارى اين يكون خطئي

تم تعديل يوليو 13, 2011 بواسطه bumb

[أبو آدم]

أخي العزيز

تفضل تطبيقك بعد التعديل

مجرب على جهازين و اصدارين من ِِAccess 2003

NA_ControlDates.rar

[bumb]

اشكرك على سعة صدرك واتمنى لك التوفيق

[bumb]

التاريخ عندي في الإعدادات هجري ام القرى وكذلك في الأكسس استخدام التقويم الهجري

هل هذا هو السبب في ان الكود لا يعمل