اخي اكريم حاولت عدد تمارات في اضافة هذا الكود ولكن حدث خطاء كتالي
عذر على Access تحديد موقع الماكرو أو دالة VBA. إذا قمت بمحاولة استدعاء ماكرو، فتأكد من صحة إملاء اسم الماكرو واسم مجموعة الماكرو.
إذا قمت بمحاولة استدعاء دالة VBA معرّفة من قِبَل المستخدم، فتأكد من استخدام بناء الجملة التالي:
=اسم الدالة() أو =اسم الدالة(الوسيطة 1، الوسيطة 2،...)
تأكد من أن الدالة إما:
معرّفة في التعليمات البرمجية للنموذج أو التقرير.
- أو -
دالة عامة ضمن وحدة نمطية (وليس وحدة نمطية للفئة).
--------------------------
If EX_Date.Value = Date - 2 Then
MsgBox "000000000", vbOKOnly, "End Date"
End If
قاعدة بيانات جوازات السفر.rar