kanory

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

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

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

نسيت اقول اني حولت مربع التسمية الى مربع نص .... تفضل ملفك بعد التعديل ... 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

طيب ليش ما يتم في الجدول من الاساس ... على كل حال تم التعديل حسب طلبك في المرفق ... انظر times24.accdb

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

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

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

هو كان طالب منك وظيفة كل زر بالتفصيل ... يعني شرح

اعتقد مر علي مثال شبيه لما تطلب في المنتدى كان المثال لطلبات مطعم ... والله اعلم