اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السموحه عل التخير في راد

في البرنامج انتهاء جواز السفر والفيزا ممكن يعطيني تنبيه قبل الانتهاء بيومان

قام بنشر

اخي الفاضل يمكنك اضافة هذا الكود الي حدث الحالي للنموذج.

If EX_Date.Value = Date - 2 Then

MsgBox "000000000", vbOKOnly, "End Date"

End If

حيث EX_Date هو تاريخ الأنتهاء

والله الموفق.

قام بنشر

اخي اكريم حاولت عدد تمارات في اضافة هذا الكود ولكن حدث خطاء كتالي

عذر على Access تحديد موقع الماكرو أو دالة VBA. إذا قمت بمحاولة استدعاء ماكرو، فتأكد من صحة إملاء اسم الماكرو واسم مجموعة الماكرو.

إذا قمت بمحاولة استدعاء دالة VBA معرّفة من قِبَل المستخدم، فتأكد من استخدام بناء الجملة التالي:

=اسم الدالة() أو =اسم الدالة(الوسيطة 1، الوسيطة 2،...)

تأكد من أن الدالة إما:

معرّفة في التعليمات البرمجية للنموذج أو التقرير.

- أو -

دالة عامة ضمن وحدة نمطية (وليس وحدة نمطية للفئة).

--------------------------

If EX_Date.Value = Date - 2 Then

MsgBox "000000000", vbOKOnly, "End Date"

End If

قاعدة بيانات جوازات السفر.rar

قام بنشر

اخي الفاضل

من المؤكد سيظهر عندك خطأ و السبب أنه لا يوجد في نموذج حقل باسم ex_date

الحقل الموجود عندك هو ( انتهاء الاقامة )

المرفق معدل بحيث يعطي رسالة اذا كان تاريخ انتهاء الاقامة اقل من الترياخ الحالي بيومين او اكثر

يعني اذا باقي يومين او يوم لانتهاء الاقامة سيعطي تنبيه

جرب ووافينا بالنتائج

و للحديث تتمة إن شاء الله

قاعدة بيانات جوازات السفر2.rar

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information