أخي العزيز
في حدث عند الفتح للشاشة الرئيسية (مثلاً) ضع الكود
Private Sub Form_Open(Cancel As Integer)
Dim intStore As Integer
intStore = DCount("[رقم_معرف]", "[data1]", "[تاريخ انتهاء الاستماره] = date() ")
If intStore = 0 Then
Exit Sub
Else
If MsgBox("يوجد " & intStore & " استمارة " & _
" سينتهي تاريخها" & vbCrLf & vbCrLf & _
" " & _
" تابع مع المعنين " & _
" ", vbYesNo Or vbExclamation Or vbDefaultButton1, _
" تنبيه .... إستمارات منتهية") = vbYes Then
Else
Exit Sub
End If
End If
End Sub
هذا مثال عام ينبه عندما يكون تاريخ انتهاء الاستمارة هو اليوم ، ويظهر رسالة بعدد الاستمارات
يمكنك تعديل الشرط حسب الضابط الذي تراه مناسبا
...........
هذا ما خطر ببالي الآن .......
...........