شكرا اخي العزيز حسين
واتمني ان لا تنساني
ولكم جزيل الشكر والعرفان
اخي الفاضل طالب علم 1
اول شي عمل جدول ونسميه اي اسم ولنفترض اسماء الحقول به ( num_Contract )اي رقم العقد (Nam_Contract) اي اسم المتعاقد (Date_start) اي تاريخ البداية (Date_End) اي تاريخ النهايه) ونضع مربع نص اخر ونسميه (check1) ونجعل قيمته (نعم) (لا)
بعد ذالك عمل استعلا م مبني علي هذا الجدول وانفترض اسمه (Qry ) وفي عرض التصميم للاستعلام نضع تحت مربع النص في (Date_End) هذا الكود (<=Date()+3) معني الكود انه قبل ما ينتهي تاريخ التعاقد ب 3 ايام يظهر لي رسالة تنبه وممكن تغيير العدد الي اي رقم تريده _ ونضع تحت مربع النص (check1)في خانة المعيار(0 )
وبعد ذالك ننشأ نموذج مستمر ونسميه مثلا (FrmView) مبني علي استعلام (Qry) ونختارفي الحقول الموجود في الاستعلام
بعد ذالك نضع هذا الكود في نموذج البدايه لديك اوفي اي نموذج تريده ( في حدث عند التحمل ) للنموذج
Dim intStore As Integer
intStore = DCount("[num_Contract]", "[Qry]", "[Date_End] <=Date()+3 AND [check1] =0 ")
If intStore = 0 Then
Exit Sub
Else
If MsgBox("يوجد شخص أو أكثر قاربت عقودهم على الانتهاء" & vbCrLf & _
"هل تريد رؤيتهم", _
vbExclamation + vbYesNo, _
"العقود المنتهية") = vbYes Then
DoCmd.Close acForm, "Indx", acSaveYes
DoCmd.OpenForm "FrmView", acNormal
Else
Exit Sub
End If
End If