اخى الكريم اصنع جدول وليكن اسمه [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
يارب تكون وصلت الفكره اخى