اغلاق التقارير

[mdanial]

تحية طيبة وبعد ،،،

ممكن المساعدة بكود يقوم بغلق التقارير او رسالة تنبيه ان الشرط الذي ادخلته غير صحيح لانه بيهنج الجهاز و البرنامج ومش عارف اعمل ايه

[ابوخليل]

ضع هذا الكود في حدث زر  عند النقر

خاص بغلق جميع التقارير المفتوحة

 

Do While Forms.Count > 0
   DoCmd.Close acReport, Reports(0).Name
    Loop
 

[mdanial]

انا متشكر جدا علي الرد= و المساعدة بس معلش انا مش عارف اتعامل مع الكود بس كنت عاوز اوضح اني لما الحدث المطلوب او القيمة الداخله خطا يحدت التهنيخ زي مثالا حدث التاريخ في فترة معينه يكون من تاريخ إلي تاريخ صح لو دخل خطا بقاء يعمل تهنيخ للجهاز و البرنامج

[ابوخليل]

عندك خلل في البرنامج

التشخيص يكون بالاطلاع على موطن الخلل

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

[mdanial]

مرفق القاعدة هو لما تدخل القيمة او الشرط المللوب في التقرير يهنج

[ابوخليل]

تمت التجربة ولم الحظ شيئا  مما ذكرت

قد يكون الخلل في جهازك في الاوفيس مثلا

لتتأكد : شغل مثالك هذا على جهاز آخر

[ابو عارف]

السلام عليكم ورحمة الله وبركاته

عذراً للمداخلة

يبدو الأخ ابو خليل لم ينتبه الى سطر الاول في الكود وأشر فيه الى نماذج بدل تقارير و هو يقصد كتابته  كالآتي:

 

Do While Reports.Count > 0
DoCmd.Close acReport, Reports(0).Name
Loop

 

تم تعديل أبريل 8, 2013 بواسطه ابو عارف

[ابوخليل]

مع ان ردي هذا تأخر بضع سنوات

شكرا لك اخي ابو عارف على التصحيح ، ومع غفلتي هذه فانا في ذلك الوقت جربته ويعمل بكفاءة

واظن السبب ان السطر الاول  لم يكن له تأثير  مادام يوجد نموذج فأكثر .. حيث ان امر اغلاق التقارير صادر من نموذج