تاريخ الصلاحية

ارفق مثالك .. بارك الله فيك

لقد تم حل المشكلة بموجب هذا الكود

Private Sub Form_Load()

Dim intStore As Integer

intStore = DCount("[اسم_الصنف]", "[بيان_الوارد]", "[الصلاحية] <=Date()+90 ")

If intStore = 0 Then

Exit Sub

Else

If MsgBox("يوجد عدد" & intStore & " اصناف " & _

"اصناف قارب على نهاية صلاحيتها (3) اشهر" & vbCrLf & vbCrLf & _

" " & _

" هل تريد معاينتها الأن؟ " & _

" ", vbYesNo Or vbExclamation Or vbDefaultButton1, _

"تنبية") = vbYes Then

DoCmd.OpenForm "الصلاحية1", acNormal

Else

Exit Sub

End If

End If

والف شكر لاهتمامكم