لا يمكن فتح الشاشة الرئيسية بسبب وجود تاريخ منتهي

تحياتى

جرب الكود التالى

	If (End_date) <= Date Or (PasEndDate) <= Date Or (LicEndDate) <= Date Then
	MsgBox "عفواً لا يمكنك المتابعة لإنتهاء المدة المحددة"
		Exit Sub
	Else
		DoCmd.OpenForm "officailform"
	End If

مرفق الملف بعد التعديل

بالتوفيق

HUpsama.rar

جـــــــــــــــــــــــــــزاك الله خـــــــــــــــــــــــــــــــــــيرا

سأطبــــــــــــــق المثــــــــــــــال وأرد عليــــــــــــــــــــــك

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

ألف شكر يا أخي على اهتمامك .. والموضوع هو مثل ما أنا طلبت

لكن هل أستطيع أن أفصل كل تاريخ منتهي على حده

يعني إذا جواز السفر منتهي .. تطلع رساله "جواز السفر منتهي ... لا يمكن فتح النموذج

وإذا الرخصة منتهية .. تطلع رساله "الرخصة منتهية .. لا يمكن فتح النموذج

وهكذا وشكرا على اهتمامكم