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

كود حساب مدة العقد والإشارة بلون أحمر عند انتهائه


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

الأخوة في المنتدى

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

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

تاريخ بداية العقد : مدة العقد : تاريخ نهاية العقد : تنبيه انتهى العقد

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

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

أشكرك أخي Access XP

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

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

مع فائق تقديري واحترامي لك لسرعة الرد علي

أبو فراس

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

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

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

، شهر ، سنة وهكذا وجزاك الله خيرا .......

أبو فراس

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

أرجو كتابة الرسالة التي تظهر لك ، حيث يبدو لي أن هناك مرجعا مفقودا لديك .

عندما تظهر لك شاشة الوحدة النمطية ( البرمجة ) : أوقف عمل الكود بالضغط على أيقونة المربع المجاورة أيقونة تصميم النموذج ثم اذهب إلى Tools واختر References

عندها ستظهر لك المراجع المستخدمة وقد وضعت بجانبها علامة صح ، أنظر أيها مسبوق بكلمة Missing

حاول أن تبحث عن المرجع المفقود في جهازك أو عبر الانترنت

وتقبل التحية

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

اخوي access Xp ممكن اعرف الاكواد الموضوعه في حسب الاشهر مثل الموجود في المرفق فورم رقم 3 الي هو وضع العدد واختيار المدة يوم/اسبوع/شهر/سنه

لااني اريد استخدامه في فورم لدي كنت استخدم تاريخ البداية وتاريخ النهاية يدوياً

ارجوا مساعدتي وهذي اول مشاركة لي في منتداكم

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

الموجود عندي في النموذج :

اسم العميل

البريد

رقم الهاتف

نوع الخطة

تاريخ الاشتراك

تاريخ الانتهاء

القيمة

المدفوع

المتبقي

واود ان اكتب تاريخ الاشتراك واقوام باختيار المدة كمثال 12 شهر ويكتب التاريخ اتوماتيكي في تاريخ الانتهاء

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

أخي الكريم / أبو فراس

لا شكر على واجب

أخي الكريم / نبيل

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

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

أخي الكريم

سأشرح لك ما قمت به

Private Sub MyZaman_AfterUpdate()
On Error Resume Next
Select Case MyZaman
Case Is = 1
Me.EndDate = DateAdd("d", Mudah, [BeginDate])
Case Is = 2
Me.EndDate = DateAdd("ww", Mudah, [BeginDate])
Case Is = 3
Me.EndDate = DateAdd("m", Mudah, [BeginDate])
Case Is = 4
Me.EndDate = DateAdd("yyyy", Mudah, [BeginDate])
End Select
End Sub

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

الحقل الأول هو BeginDate

وهو الخاص بادخال تاريخ بداية المدة أو العقد

الحقل الثاني هو EndDate

وهو الحقل الذي يظهر به تاريخ نهاية المدة أو العقد

الحقل الثالث هو Mudah

وهو الحقل الذي تقوم بادخال المدة فيه

الحقل الرابع هو MyZaman

وهو الحقل الذي تقوم باختيار الفترة الزمنية التي يحسبها البرنامج ( يوم ، أسبوع ، شهر ، سنة )

وتقوم الدالة DateAdd باختيار الفترة التي تريد إضافتها وتضيفها إلى تاريخ البداية فتستخرج تاريخ النهاية

أرجو أن تكون الصورة أكثر وضوحا الآن

وتقبل تحيتي

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

  • 3 weeks later...

أخي Access XP كيف حالك

لي طلب بسيط اريد ان اطبع تقرير للبيانات بين رقمين للعقود

مثال : اريد ان أطبع بيان حسب رقم العقد بين رقم العقد 9 ورقم العقد 20

ودمت أخاً عزيزاً

أبو فراس

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

  • 2 weeks later...
  • 2 weeks later...

جعلة الله في موازين حسناتك يا Access XP فلقد تابعت هذا الموضوع من أوله ولاحظت أنك تستحق والله كل الشكر والتقدير على مساعدتك وتحملك على الرغم من كثرة التعديلات التي طرأت من الأخ السائل الكريم أبو فراس...

كما اود ان اطلب من الأخ أبو فراس ان يضع لنا المثال بعد ان ينتهي من عملة ليتسنا لنا الإستفادة منة .... وشكراً

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

  • 5 months later...

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