تقرير محدد المدة بواسطة المصمم وليس المستخدم

اخي الكريم جاري اعداد الحل واوافيك به إن شاء الله - مساء اليوم -

جزاك الله الف خير أخي إيهاب علي كل ما تساعدني فيه أنت و الاخوة في المنتدي

يعلم الله كم يساعدني هذا كثيرا في ما اقوم بتنفيذه ..

مشكور أخي و الي الامام دائما بإذن الله ..

اخي الكريم....

هذا مثال اضعه لك عسى ان يفي بالغرض....

في اي يوم يمكنك مشاهدة بيانات الاسبوع القادم /او الاسبوع السابق

عن طريق زري امر بالنموذج

tasks.rar

أخي إيهاب جزاك الله كل خير و هذا فعلا ما أريده

و لكن مثل كل مرة أريد الشرح حتي يمكنني تطبيقه علي نطاق أوسع أنت قمت بعمل مثال علي اسبوع انا اريده تطبيقه علي شهور

أحمد بدر

أخي إيهاب

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

أو شرح المعادلة و أين أضعها في الاستعلام .

مشكور أخي عيل مجهودك الذي تبذله معي

أحمد بدر

ان شاء الله اوافيك بالشرح مساء اليوم

جزاك الله ألف خير أخي ايهاب

اولا اخي الكريم.....

اولا اود ان اشكرك لان سؤالك هذا جعلني اتطرق لافكار جديدة ستفيدني واتمنى ان يستفيد منها الجميع ان شاء الله.

الفكرة العامة ساطرحها عليك وارجو منك ان تتابعها والمثال مفتوح امامك...

واتمنى الا تكون فكرة مطولة ولها بديل اسهل - ارجو من اساتذتنا الكرام ان يشاهدوها ويدلو برايهم

1 - انت تريد طباعة مهام الاسبوع القادم / السابق تمام؟

2 - الاسبوع عادة يبدأ بيوم الاحد كما في الشركات والبنوك ومعظم قطاعات الاعمال. وان كان يبدأ بالسبت فلا توجد مشكلة فالفكرة العامة يمكن تطبيقها ايا كان يوم بداية الاسبوع.

3-الاسبوع هو سبعة ايام (من الاحد الى السبت) واذا كان ستة اوخمسة ايام (على اعتبار حذف يوم /يومي العطلة ) فلا مشكلة فالفكرة لن تتغير.

4- الان ياتي دور السؤال المهم : كيف لبرنامج اكسيس ان يعرف ان اليوم هو احد او اربعاء او...الخ؟

توجد دالة عند تشغيلها فانها تعطي رقما يعبر عن اليوم المطلوب بداية من الرقم 1 ليوم الاحد وحتى الرقم 7 ليوم السبت

هذه الدالة هي ()Weekday

فاذا كان تاريخنا اليوم هو 22 مارس 2006

فان استخدام الدالة يكون بالاسلوب التالي :

Weekday(date())

تكون النتيجه هي الرقم 4 وهو الرقم الخاص بيوم الاربعاء.

ودالة ()date -كما تعلم-هي الدالة الخاصة بتاريخ الجهاز (اليوم الحالي)

5- لعل الصورة قد بدأت تتضح شيئا ما ... انت تريد طباعة مهام الاسبوع القادم اي بداية من الاحد القادم ولمدة سبعة ايام فعلينا اذاً ان نعرف كم من الايام يتبقى منذ تاريخ يومنا هذا حتى يهل علينا يوم الاحد القادم .

6- لهذا الغرض انشانا الدالة dtrans لتقوم نيابة عنا باجابة هذا السؤال.

-----اخي الكريم استأذنك الان لقطع الحدبث على ان نلتقي لنكمله معا مساء الغد ان شاء الله تعالى...

تحياتي.

في انتظارك اخي ايهاب و مشكور علي المتابعة و الاهتمام و لكن كنت اود ان يتم ذلك سريعا حتي يمكنني تطبيقه علي برنامجي لأن مطلوب مني تسليمه الاسبوع القادم

ارجو الا تكون نسيتني يا اخ ايهاب

ahmedbadr كتب:

ارجو الا تكون نسيتني يا اخ ايهاب

←

ابدا اخي الكريم لم انسك ولكنها المشاغل....فعذراً

نعود الى ماكنا فيه، فقد توقفنا عند انشاء الدالة Dtranse

8 - الدالة ببساطة تفحص تاريخ يومنا هذا فان كان هو الجمعة (رقم 5) فانها تسجل عدد الايام الواجب اضافته الى اليوم لنصل الى الاحد القادم وهو 3 ايام .....وهكذا

9- يتبقى لنا ان نعرف كيف نستخدم هذه المعلومة في اظهار تقارير الاسبوع القادم؟؟ ننشئ استعلام تحديد وليكن اسمه كما بالمثال Next ونضع تحت حقل تاريخ المهمة"task date" المعيار الاتي:

Between Date()+dtrans() And Date()+dtrans()+6

ومعناه ان تاريخ المهمة المطلوب اظهاره بالاستعلام يينحصر بين الاحد القادم والاحد القادم + 6 ايام اي الى نهاية الاسبوع

الاحد القادم هو تاريخ اليوم مضافا اليه ناتج الدالة Dtranse السابق شرحها.

10 - الاستعلام back يؤدي لنا نفس المهمة ولكن بالنسبة للاسبوع السابق فارجع الى معايير الحقل هناك...

ملحوظة هامة ......

هل تذكر الرد بالمشاركة السابقة حيث وردت فيه العبارة التالية :

ايهاب عثمان كتب:

واتمنى الا تكون فكرة مطولة ولها بديل اسهل - ارجو من اساتذتنا الكرام ان يشاهدوها ويدلو برايهم

←

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

اما الحل الاسهل فهو عدم الاستعانة بالدالة المسماة dtranse وانما انشاء الاستعلام next مباشرة ونكتب تحت معايير حقل التاريخ المعيار التالي :

Between Date()+8-weekday(Date()) And Date()+8-weekday(Date())+6

الان يتبقى لنا مثال عن طباعة تقارير الشهر القادم مع التدعيم بالشرح .....

اتركك الان لمراجعة ماسبق ومحاولة تطبيقه لحين اعد لك المثال الجديد والشرح وسوف ابدأ الان في العمل إن شاء الله

اللهم بنورك اهتدينا وبفضلك استغنينا وبنعمتك يامولانا اصبحنا وامسينا.

اخي الكريم مرفق لك مثال لطباعة مهام الشهر القادم......

وهذه هي الفكرة العامة....

1 - حتى نصل لبداية الشهر القادم لا بد من معرفة عدد ايام الشهر الحالي وكم يتبقى منها حتى ينتهي هذا الشهر ليبدأ الشهر الجديد

2- الشهور الميلادية اما 30 او 31 يوم عدا فبراير فهو 28 للسنة البسيطة و 29 يوم للسنة الكبيسة وهذه هي فكرة الدالة التي انشأناها بهذا المثال وسميناها Mo وهذا هو كودها.

Function Mo(dt As Integer) As Integer
If dt = 1 Or dt = 3 Or dt = 5 Or dt = 7 Or dt = 8 Or dt = 10 Or dt = 12 Then
Mo = 31
Else
If dt = 4 Or dt = 6 Or dt = 9 Or dt = 11 Then
Mo = 30
Else
If (Year(Date)) / 4 - (Int(Year(Date) / 4)) = 0 Then
Mo = 29
Else: Mo = 28
End If
End If
End If
End Function

3- الدالة اسمها Mo وهي عبارة عن عدد ايام شهر ما ويمثل رقم الشهر بالمعامل dt فالشهر رقم 1 هو يناير و2 فبراير ....الخ

وكل من الدالة ومعاملها رقم صحيح وهو ما تمثله العبارة As Integer

اذا كان رقم الشهر 1 او 3 او 5 او 7 او 8 او 10 او 12 تكون قيمة الدالة = 31

والا.....

اذا كان المعمل dt او رقم الشهر هو 4 او 6 او 9 او 11 تكوم قيمة الدالة او عدد ايام الشهر هي 30

والا... فان الشهر المتبقي هو 2 او فبراير وبقية الدالة تختبر كونه في سنة بسيطة ام كبيسة من حيث قابلية القسمة على 4

فان كانت السنة بسيطة فان الدالة =28 وان كانت كبيسة كانت الدالة 29

4- ننتقل الان الى الاستعلام وقد اسميناه nextmo وتحت حقل التاريخ نكتب المعيار التالي مستخدمين دالتنا Mo :

Between Date()+mo(Month(Date()))-Day(Date())+1 And Date()+mo(Month(Date()))-Day(Date())+mo(Month(Date())+1)

وهذا المعيار يحصر لنا التاريخ بين :

أ - بداية الشهر القادم وهي تاريخ اليوم مضافا اليه عدد الايام المتبقية على نهاية الشهر + 1 وذلك باستخدام الدالة ’Mo لمعرفة عدد

ايام الشهر الحالي ونلاحظ ان معامل الدالة هو Month(date) اي رقم الشهر

و...

ب- نهاية الشهر القادم اي اضافة 30 او 31 او 28 او 29 يوما غلى بدايته وذلك طبقا لناتج الدالة Mo

5- نربط التقرير بهذا الاستعلام.

ارجو ان اكون موفقا فيما قدمته

وباتظار اية استفسارات.

:rolleyes:

mtasks.rar

أحي ايهاب جزاك الله الف خير عني و عن تلك المساعدة الكبيرة التي ساعدتني فيها

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

ارجو تفسير هذه النقطة أخي ايهاب

أحمد بدر

اخي الكريم .....

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

ولن تتغير الفكرة بالنسبة للربع سنة او النصف سنة ... الخ

فاذا عرفت عدد ايام الشهر الحالي وعدد ايام الشهر/الشهور المتبقية على نهاية الربع الحالي ثم عدد ايام الربع القادم فانه يمكنك طباعة مهام الربع القادم ...وهكذا

مشكور أخي أيهاب إهتمامك هذا و الله لأفادني كثيرا جدا

جزاك الله عني الف خير و جعله في ميزان حساناتك

سأحاول و إن عجزت أعرف أنك سأبلغك

أحمد بدر

بالتوفيق ان شاء الله واني بانتظار اي استفسار...