[مساعدة]

ضع هذا الكود في آخر الروتين المسمى ShowData في الفورم frm_permissions

كود :

Dim d As Integer = DateDiff("d", Now.Date, CDate(D2.Text))
If d < 0 Then
    MsgBox("انتهى")
ElseIf d < 3 Then
    MsgBox("قارب على الانتهاء")
End If

مع التأكد من وجود تاريخ في العمود D2 لكل المستخدمين المسجلين في قاعدة البيانات