kanory

طبق ما في الصورة

هل هذا المطلوب .... My Prog.accdb

اذا ... اجعل c في الكود بهذا الشكل وغير في الاستعلام الشرط في a الى "" rs!c=""

وانت تريدها في 1-1 او في 1-2

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

ارسل التقرير فقط في مرفق

بعد التعديل ولا من قبل التعديل ؟؟؟؟؟؟؟؟؟

انظر الصور وطبق على كل تقرير فرعي ....

اين الرقم القديم واين الرقم الجديد واين تريد الرقم بعد التحديث ؟؟؟

نسيت اقول اني حولت مربع التسمية الى مربع نص .... تفضل ملفك بعد التعديل ... 20231220.mdb لاحظ اتعاب المحاسب .... ههههههه

هههههه ..... طيب بالنسبة للطلب ... انظر الصور وطبق لديك ....

اكتب الفكرة هنا ليستفيد منها غيرك ممن يمر على هذا الموضوع

هل المطلوب 30000 ام تريدها 30000- لان الناتج سالب في عمليتك الحسابية فهل العملية صحيحة وتريد الرقم موجب فقط ؟؟؟

سقط سهوا .... 20231220.mdb

جرب واعلمنا بالنتائج .... على العموم هل هذه الصورة المطلوبة للتقرير ؟؟؟؟

انظر الصورة ... تجد في التقرير الرئيسي هناك عدة تقارير فرعية بداخلها وعند العرض تظهر في الصورة النهائية كما في الصورة ... اذا توفر لدي الوقت سوف اعمل على تنفيذها لبياناتك ان شاء الله تعالى ... حاول تنفيذها وقد يساعدك الاخوة هنا بالموضوع اذا اردت تنفيذ الفكرة ...

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

تابع هذا الموضوع ...

هل النماذج فرعية ؟؟؟؟ ام نماذج رئيسية ؟؟؟ وهل كل النماذج مفتوحة ؟؟؟ اذا كانت نماذج رئيسية وكلها مفتوحة غير في الكود بهذا الشكل ... سوف اكتب لك صيغة لعنصر واحد وانت اكمل الباقي """"" rst!ID = Forms![Form1]![T2] ال اسم النموذج الذي يوجد به ذلك العنصر( Form1 ) مع ملاحظة تغيير اسم النموذج

مشاركة مع الاستاذ خليفه صمم التقرير المطلوب ثم اتبع الخطوات حسب الصور لديك .... ان لم تستطع اعلمنا لادراج الملف <<<<<<< Private Sub Report_Open(Cancel As Integer) Me.RecordSource = Form_fr1.SubFr.Form.RecordSource End Sub

لم افهم جيدا هذه !!! ؟؟؟؟ ممكن اسماء مجموعة من تلك الانشطة التي لم يتم تعديلها او فيها خطأ

لأن هناك عبارات موجود في الجدول namex وغير موجودة بمرادفها في الجدول kinedx لذلك لا تنقل بالشكل الصحيحة .... عليك اضافة كل العبارات الموجودة في الجدول namex والمطلوب تحديثها ثم حذفها في الجدول kinedx انظر الصورة وعدم وجود هذه العبارة في الجدول kinedx

غيرنا التشكيلة .... جرب المرفق بالضغط على التحديث الجديد وشاهد .... Replace&add.mdb

مشاركة مع الغالي @عمر ضاحى جرب واعلمنا بالنتيجة <><><><><><><><><> DoCmd.GoToRecord , , acFirst For i = 1 To Me.mh1 kan = "" If Me.daraja <> "" Then Me.CurrFasl = "F" kan = Me.daraja End If DoCmd.GoToRecord , , acNext Next i For ii = 1 To Me.Recordset.RecordCount If Me.daraja = kan Then Me.CurrFasl = "F" DoCmd.GoToRecord , , acNext End If Next ii MsgBox "لقد تم بنجاح", vbOKOnly

برنامج العقود - 4.accdb