كيفية اضافة الدالة month كشرط لتكوين ايام الشهر

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة

الملف المرفق بة كود لتكوين ايام الشهر بناء علي اول يوم يحددة المستخدم ( هذا الكود هو من تصميم عملاق الاكسيس الاستاذ ابوهادي حفظة الله ) .

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

و المطلوب هو كيف اضافة شرط ثالث بحيث يقوك الكود بتكوين ايام الشهر ما عدا يوم الخميس والجمعة وايام الشهر المحدد فقط , بمعني اذا ادخل المستخدم التاريخ التالي 1427/10/01 فان الكود سيكون ايام شهر واحد فقط من 1427/10/01 حتي 1427/10/30 ولكن اذا ادخل المستخدم التاريخ التالي 1427/10/16 فان الكود سيكون ايام الشهر من 1427/10/16 حتي 1427/11/15 و المطلوب هو

ان الكود عندما يبدا في تكوين ايام الشهر وينتهي الشهر الذي ادخلة المستخدم فانة ستوقف و لا يتجاوزة الي الشهر التالي , بمعني اذا ادخل المستخدم التاريخ التالي 1427/10/16 فان الكود يقوم بتكوين ايام الشهر من 1427/10/16 حتي 1427/10/30 فقط ولا يدخل في الشهر الذي يلية ,,,,

لقد حاولت ان اعدل في كود الاستاذ ابوهادي , لعدم اضافة ايام الشهر التالي ,,,

الكود قبل التعديل ( طبعا هو مخصص لعد اضافة يومي الخميس و الجمعة ) ,,

If Weekday(proc4) <> vbThursday And _
         Weekday(proc4) <> vbFriday Then
          .AddNew

وحاولت اضافة الشرط الثالث ولكني فشلت وهذا هو المحاولة ( الكود بعد اضافة شرط الشهر )

If Weekday(proc4) <> vbThursday And _
         Weekday(proc4) <> vbFriday And Month(proc4) = Mid(Me.text8, 4, 2) Then
          .AddNew

لذا ارجو منكم المساعدة وجزاكم الله كل خير

الملف المرفق

5.rar

[Accessna]

المثال بعد التعديل

52.rar

[ماجدجلال]

السلام عليكم ورحمة الله

شكرا جزيلا لك اخي

هذا هو المطلوب

الف شكر وجزاك الله كل خير

[ماجدجلال]

الاخ الفاضل Accessna

لدي سؤال : قمت بخذف السطر التالي من الكود بعد التعديل :

DoCmd.RunSQL "Delete * from workday;"

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

فهل يمكن حذف هذا السطر نهائيا ؟

وما هو فائدة ؟

وشكرا جزيلا لك ,,,,,,,,,,,,

[Accessna]

هذا السطر عبارة عن أمر لتنفيذ عبارة SQL بغرض تنظيف/حذف كل السجلات من ملف الأيام قبل إضافة السجلات الجديدة .

وبدونه سوف يتم إضافة السجلات الجديدة على السجلات السابقة .

تم تعديل أكتوبر 22, 2008 بواسطه Accessna

[ماجدجلال]

شكرا لك وجزاك الله كل خير