ماجدجلال قام بنشر أكتوبر 19, 2008 قام بنشر أكتوبر 19, 2008 السلام عليكم ورحمة الله وبركاتة الملف المرفق بة كود لتكوين ايام الشهر بناء علي اول يوم يحددة المستخدم ( هذا الكود هو من تصميم عملاق الاكسيس الاستاذ ابوهادي حفظة الله ) . وهو يعمل بشكل صحيح ويقوم بتكوين ايام الشهر المطلوب منة ماعدا يومي الخميس و الجمعة , و المطلوب هو كيف اضافة شرط ثالث بحيث يقوك الكود بتكوين ايام الشهر ما عدا يوم الخميس والجمعة وايام الشهر المحدد فقط , بمعني اذا ادخل المستخدم التاريخ التالي 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
ماجدجلال قام بنشر أكتوبر 20, 2008 الكاتب قام بنشر أكتوبر 20, 2008 السلام عليكم ورحمة الله شكرا جزيلا لك اخي هذا هو المطلوب الف شكر وجزاك الله كل خير
ماجدجلال قام بنشر أكتوبر 20, 2008 الكاتب قام بنشر أكتوبر 20, 2008 الاخ الفاضل Accessna لدي سؤال : قمت بخذف السطر التالي من الكود بعد التعديل : DoCmd.RunSQL "Delete * from workday;" فاعطاني نتائج صحيح للشهور التي قمت بتجربتها , وطبعا من المستحيل تجربت كل الشهور وايضا من المستحيل معرفة التاريخ المتوقع الذي يدخلة المستخدم فيما بعد !!!! فهل يمكن حذف هذا السطر نهائيا ؟ وما هو فائدة ؟ وشكرا جزيلا لك ,,,,,,,,,,,,
Accessna قام بنشر أكتوبر 22, 2008 قام بنشر أكتوبر 22, 2008 (معدل) هذا السطر عبارة عن أمر لتنفيذ عبارة SQL بغرض تنظيف/حذف كل السجلات من ملف الأيام قبل إضافة السجلات الجديدة . وبدونه سوف يتم إضافة السجلات الجديدة على السجلات السابقة . تم تعديل أكتوبر 22, 2008 بواسطه Accessna
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.