m_orouk

ارسل مثالك للتعديل عليه

بدون وحدة نمطية و فى 3 خطوات فقط اولا : ضع هذا الامر فى حدث عند الفتح فى النموذج المستخدم كواجهة للبرنامج . DoCmd.RunCommand acCmdAppMinimize ثانيا : غيد الخاصية منبسق (popup) الى نعم فى كل النماذج و التقارير . ثالثا : ضع النموذج الواجهة فى startup

شكرا اخى ابو الانس على التواصل لقد توصلت الى الحل و هو بالمرفق Copy_of_New_Microsoft_Office_Access_Application.rar

بالطبع كلامك صحيح و لكن ما هو الشرط اذا حدث خطأ . ............................. يعطى رسالة اذا لم يحدث خطأ ............................... نفذ الكود

اخى لا ادرى مغزى سؤلك

اخى شكرا لتجاوبك اولا : هذا الكود مثال مبسط لما اريد ان يقوم به الكود و لكن الكود الاصلى اكثر تعقيدا لذلك استخدمت هذا الكود لتبسيط المشكلة ثانيا: المشكلة ليست بالمعادلة المشكلة ان الرسالة الثانية الموجودة فى error handler 2 لا تظهر جرب وضع صفر فى المربعين t1 و t2 و اضغط الزر من المفترض ان تظهر رسالتين الرسالة الاولى تقول القيمة الاولى صفر و الثانية تقول القيمة الثانية صفر و لكن ما يحدث ان الرسالة الاولى تظهر و لا تظهر الرسالة الثانية و تظهر بدلا منها error msg ( divison by zero error ) Copy_of_New_Microsoft_Office_Access_Application.rar

انت تححتاج الى اخفاء شاشة الاكسس ابحث عن ذلك و ستجد الكثير

اخوانى الاعزاء فى القاعدة المرفقة عند الضغط على الزر يتم تنفيذ الكود و عند حدوث خطأ يعطى رسالة و ينتقل الى الكود البديل و من المفترض عند حدوث خطأ فى الكود الثانى ان يعطى الرسالة الموجودة فى الكود و لكن الرسالة لا تظهر و تظهر مكانها رسالة الاكسس و لا ادرى ما السبب Copy_of_New_Microsoft_Office_Access_Application.rar

اخوانى كما قلت الحل فى الدالة format و التى كانت احاول استخدامها فى الكود بالنموذج و لكن لم افلح فى ذلك فقمت بالمحاولة فى الاستعلام فكان لى ما اردت New_.rar

اخوانى اعتقد ان الحل من الممكن ان يكون باستخدام الدالة format ففى مثالى اذا ادخلت الشهر ثم اليوم فى مربع البحث يعطى النتيجة المطلوبة اما اذا ادخلت اليوم اولا ثم الشهر يعطى نتيجة مختلفة او لا يعطى نتيجة و ذلك لان الاكسس يستخدم التقويم الامريكى mm/dd/yyyy و المطلوب هو تحويل التقويم الى dd/mm/yyyy

لا جديد

الاخوة الاعزاء السلام عليكم الشرح بالمرفق New_.rar

ارفق قاعدة بياناتك

من خصائص النموذج allow addition : no

و هذا للانتقال الى النموذج الاخر sheet.rar