ابو البشر

طبعا اكيد انت تريدها لهذه السنة فقط وليس جميع السنوات .... لان الجدول فيها بيانات 2022 اليس كذلك ؟؟؟؟؟؟؟؟؟؟

تفضل ............. Database8 (2).accdb

هل تريد طريقتي السابقة ... لانك لم تأكد لي انها مناسبة لعملك

اذا .. ما هو مصدر التاريخين في between اذا كان مربع نص في نموذج .. اجعل مصدر مربع النص الموجود في التقرير هو مربع النص الموجود في النموذج

كانت اجابة لك اني جمعت كل الدورات الخمسة في جدول واحد لاتمكن من احصائها ...

استخدم 0<>

طريقة اخرى للاحصائية السابقة ....

اخفيها من استعلام ... بحيث تضع في معيار الارصدة >0

لاحظ عدد السجلات بعد تجميعها كلها ...............

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

انظر ............

هل هذا ما تريد مثلا لشهر 6 ......

استخدم هذا ............... If DCount("dates", "aa") > 0 Then Cancel = True MsgBox "هذا التاريخ مسجل مسبقا", vbCritical, "عملية خاطئة" Else DoCmd.GoToRecord , , acNewRec dates = Date End If

ممكن مثال او توضيح اكثر لان موضوع تحويل التقرير ... هناك العديد من المواضيع في المنتدى تتحدث عن تصدير التقرير الى صيغة pdf ..

تقصد اذا كان التاريخ موجود في الجدول تظهر رسالة ... وضح ..

لذلك ممكن تستخدم الورقة والقلم لتسجيل المسميات ..... افكر في عمل لوب لاختصار الكود .. الله ييسر الامور

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

تم تعديل الكود وانت قمت بتعديل بعص خصائص التقرير .... تفضل <><><><><><> ____________BASEN_5.accdb

اين النموذج الذي يتم من خلالة ادخال الاصناف

حياك الله ... تفضل <><><><><><> ____________BASEN_5.accdb

في احداث النموذج وليس مربعات النص هههههههه .... دائما البرمجة تعلم الصبر والمحاولات المستمرة ...

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

بالمناسب يمكن الغاء النموذج tawfrm وذلك باستخدام هذا مكان الكود السابق الذكر .... جرب ..... حيث يتم عرض رسالة باضافة المدينة أو عدم الاضافة وعند الموافقة يتم اضافة المدينة بدون النموذج ..... وهذا يختصر عليك الوقت في اعادة كتابة المدينة مرة اخرى والعودة للنموذج الرئيسي ... Dim strMsg As String strMsg = "هل تريد إضافة " & NewData & " إلى القائمة؟" If MsgBox(strMsg, vbQuestion + vbYesNo) = vbYes Then Response = acDataErrAdded DoCmd.RunCommand acCmdSaveRecord Else Response = acDataErrContinue End If

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