اخى الكريم  اصنع جدول وليكن اسمه [maham] وضع فيه بياناتك ولنفرض ان حقل التاريخ اسمه [da] 
 
	اكتب فى حدث عند الفتح للنموذج الرئيسى :      
 
	 Private Sub Form_Open(Cancel As Integer) 
	Dim x As String 
	x = DMax("maham", "da") 
	If (x + 30) >= Date Then 
	MsgBox " هناك مهام معلقه  " & x, , "بتاريخ" 
	Else 
	Exit Sub 
	End If 
 
	end sub
 
	يارب تكون وصلت الفكره اخى