[ تمت الإجابة ]تنبيه بإقتراب إنتهاء العقد قبل شهر من تارشخ الانتهاء

اخي / redmoon2

السلام عليكم

1:- تم اضافة حقل بالجدول Main وهو عبارة عن حقل لرقم العقد وسميته ContractNo هذا الحقل هو المفتاح الأساسي للجدول.

2:- تم عمل استعلام تحديد سميته QryReminder وتم وضع جميع حقول الجدول Main به وتم عمل معيار تحت حقل exp_contract الخاص بانتهاء العقد

<Date()-30

بتشغيل هذا الاستعلام ستظهر كل العقود التي تنتهي قبل تاريخ اليوم بــــ 30 يوماً .

3:- تم عمل نموذج جدولي وسميته FrmReminder وتم تعيين الاستعلام كمصدر للنموذج

في حدث عند الاغلاق لهذا النموذج تم وضع كود لفتح النموذج الرئيسي Main كالتالي

 DoCmd.OpenForm "main"

4:- تم وضع كود بحدث عند التحميل للنموذج الرئيسي main كالتالي

Dim IntExp As Integer

IntExp = DCount("[ContractNo]", "[main]", "[exp_contract] <date()+30 ")
	If IntExp = 0 Then
			Exit Sub
				Else
				If MsgBox("لديك عدد" & IntExp & " هل ترغب في عرضها الآن ؟" & "عقود منتهية ", vbYesNo, "لديك عقود منتهية") = vbYes Then
					DoCmd.Minimize
					DoCmd.OpenForm "frmReminder", acNormal
				Else
			Exit Sub
		End If
	End If

شرح مبسط للكود

في السطر الاول تم تعريف متغير باسم IntExp من نوع رقم ( Integer ) ليتم تخزين قيمة او عدد العقود المنتهية بناءً على المعيار المطلوب ( قبل شهر من تاريخ اليوم )

في السطر الثاني يتم تعيين قيمة لهذا المتغير باستخدام الدالة DCount بحيث يتم حساب عدد القيم للحقل ContractNo من الجدول Main بالمعيار للحقل exp_contract

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

في السطر الرابع بناءً على السطر الثالث اذا كانت قيمة المتغير تساوي صفر يتم الخروج من الاجراء ومن ثم يتم تحميل النموذج الرئيسي .

في السطر الخامس اذا لم تكن قيمة المتغير صفر وهنا تم استخدام الكلمة Else وبعدها سيتم وضع الاحتمال الآخر ( أي في حالة كانت قيمة المتغير اكبر من صفر أي اذا كان هناك عقود منتهية )

في السطر السادس وبناءً على السطر الخامس يتم عرض رسالة توضح عدد العقود المنتهية كما هو موضح بوضع المتغير ضمن الرسالة فاذا تم الضغط على ازرار الرسالة Yes

في السطر السابع وبناءً على السطر السادس سيتم تصغير النموذج الرئيسي Main

في السطر الثامن سيتم ايضاً فتح النموذج الجدولي FrmReminder المبني على الاستعلام

في السطر التاسع في حالة تم الضغط على ازرار الرسالة No

في السطر العاشر بناءً على السطر التاسع سيتم الخروج من الإجراء وتحميل النموذج الرئيسي Main

في السطر الحادي عشر والثاني عشر يتم انهاء جمل If الشرطية

ملاحظة : تم استدعاء اجراء التغيير لمربع التحرير والسرد بحدث بعد التحديث لمربع النص الخاص بتاريخ العقد فقد يتم تغيير تاريخ العقد لسبب ما.

ايضاً تم عمل تنسيق شرطي لتظهر التواريخ المنتهية قبل شهر من تاريخ اليوم باللون الاحمر بالنموذج الرئيسي Main.

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

وبالتوفيق

contract1.rar

اقتباس

شرح مبسط للكود

اخي يوسف احمد تحياتي واشكرك جزيلا على الشرح، بصراحة شدني الموضوع وكنت قد استخدمت التنبيه في برنامج لصيدلية لعرض الادوية التي انتهت صلاحيتها وتلك التي نقصت من المخزون،، والحمد لله، كذلك استخدمت افكار شبيهة في برنامج المخزون الخاص بشركات الاجهزة الكهربائية والمبيوتر "TechnoStores".. اشكرك جزيلا..

همام

اقتباس

اخي يوسف احمد تحياتي واشكرك جزيلا على الشرح، بصراحة شدني الموضوع وكنت قد استخدمت التنبيه في برنامج لصيدلية لعرض الادوية التي انتهت صلاحيتها وتلك التي نقصت من المخزون،، والحمد لله، كذلك استخدمت افكار شبيهة في برنامج المخزون الخاص بشركات الاجهزة الكهربائية والمبيوتر "TechnoStores".. اشكرك جزيلا..

نوّرت المشاركة اخي همام

شرف لي مرورك

شكراً جزيلاً لك مشرفنا الغالي .

دمت بوّد

بسم الله الرحمن الرحيم

بارك الله فيك اخي يوسف على الشرح الجميل

اخي العزيز : يوسف أحمد الصراحة كلمات الشكر قليلة فيك

الله يجزيك كل الخير على الشرح الرائع والمبسط والله يزيدك من علمه الواسع ويرحم والديك ويكثر من أمثالك

فرجت عني هم الله يفرج همك

---------

اخوي همام نورت المشاركة

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة