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

الردود الموصى بها

قام بنشر

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

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

ثانيا لدي استفسار واود منكم المساعدة كما هو ديدنكم

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

ولكم الشكر

قام بنشر

أخي العزيز

الجواب يسير فيما يسره الله

ولكن لي عندك طلب أن تعدل الفكرة الى جدول بحقلين لتاريخ بداية المشروع وتاريخ نهايته ، حيث أن الاحتسابات ( ما لم يكن هناك غاية احصائية او رقابية معينة) لا تدخل الجداول ، بالمنطق _مع التحفظ السابق_ اليوم احتسبت الفرق وخزنته وغدا احتسبت الفرق و اعدت تخزينه ، ما هي الفائدة المرجوه ؟

أفضل أن يتم الاحتساب خارج الجدول وضمن النماذج او الاستعلامات او التقارير .

ولي طلب آخر ( احتملني) ان تقوم بفتح قاعدة بيانات جديدة افتراضية مبسطة لارفاقها مع مشاركاتك الطيبة حتى يتم التعديل عليها.

وهذا ليس اهمال لسؤالك لا سمح الله ولكنها دعوة للمشاركة و التفاعل الطيب.

ونحن في العون ما قدر لنا

قام بنشر

أخي العزيز

بعد اذنك اجريت تعديلات على الجدول و النموذج بشكل جذري

نصيحة لوجه الله : لا تعتاد على استخدام الاحرف العربية في اسماء الجداول و الحقول

وفي المرفق ما تحتاجه ان شاء الله

ونحن في العون ما قدر لنا

وان كانت لك استفسارات ، فللحديث بقية...

NA_followup1.rar

قام بنشر

اخي العزيز اشكرك واشكر فيك تحمل استفساراتي

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

قام بنشر

أخي العزيز

ابهجني ردك ، ولكن استميحك عذرا لانشغالي بمشروع اعمل به

ان لم يسبقني احد الاخوة ساجيب عليك ، فاصبر ... لطفا

قام بنشر

أخي العزيز

في النموذج وفي حدث عند الخروج لمربع النص EworkDate ( تاريخ نهاية المشروع) وضعنا كود برمجي ، قمنا من خلاله بتعريف ثلاثة عناصر لتكون كل منها عدد صحيح وهي:

Dim DGP As Integer

Dim MGP As Integer

Dim YGP As Integer

للتعرف على محتويات حقل اليوم والشهر والسنة.

ثم قمنا باستدعاء الوظيفة EndWork وهي معرفة ومفصلة في نفس النموذج ، حيث قمنا بتعريف المتغيرات تاريخ البداية DateFm وتاريخ النهاية DateFm لتكون As Variant ( متغيرات ).

ثم عرفنا ستة عناصر وهي :

Dim ddf As Byte, mmf As Byte, yyf As Integer

Dim ddt As Byte, mmt As Byte, yyt As Integer

لتكون بت وأعداد صحيحة وهي تمثل يوم بداية المشروع وشهر بداية المشروع وسنة بداية المشروع ، ثم يوم نهاية المشروع وشهر نهاية المشروع وسنة نهاية المشروع .

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

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

ثم نتعامل مع المعادلة الرئيسية وهي تتلخص في (( يوم نهاية المشروع ) – ( يوم بداية المشروع)) و (( شهر نهاية المشروع ) – ( شهر بداية المشروع) ) و (( سنة نهاية المشروع ) – ( سنة بداية المشروع) )

مع مراعاة تحول ما يزيد عن الثلاثين يوما لشهر واحد وما يزيد عن اثني عشر شهرا لسنة.

والله أعلم

= أما بالنسبة لتحويل التاريخ الميلادي لهجري فعليك بإعدادات الجهاز ، إذا كنت تريد تغيير إعدادات التاريخ لكامل التطبيقات والأعمال على جهازك ، أما إذا كان الأمر يتعلق بهذا التطبيق ، فابحث في المنتدى عن ( تاريخ هجري) وتصفح ... أو يكون للحديث بقية....

= وتنبيه القرب يلزم فيه تعريف القرب ، فأعطنا ضوابطه وشروطه ، و أبشر ...

والله من وراء القصد

قام بنشر

أخي العزيز

إخوتي الأعزاء

أنا آسف فهمت فحوى المشاركة بشكل خاطئ ، وعلق بذهني عند التطبيق انك تريد حساب مدة المشروع ، وقد عدلت الآن الى احتساب الباقي من مدة المشروع حسب تاريخ يوم الاحتساب ، ولكن علينا ترحيل المشاريع المنتهية من هذا الملف حتى لا نحتسب المشاريع القديمة المنتهية (بالسالب)

اعذرني أخي العزيز ... أدعي انني ضعيف في الرياضيات

آمل ان تجيب بوضوح هل هذا ما تريد ؟؟

NA_followup1_UP.rar

قام بنشر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information