اذهب الي المحتوي
أوفيسنا

كيفية اضافة الدالة 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

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

DoCmd.RunSQL "Delete * from workday;"

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

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

وما هو فائدة ؟

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

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه Accessna
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information