ابو البشر

اضف زر في التقرير ثم ضع هذا الكود وظيفته ::: تكوين جدول باسم Temp ثم تصدير البيانات الموجوده في التقرير اليه .... الان تصتطيع فعل ما تشاء سواءا تكوين رسم بياني أو تصديرة للاكسل ... جرب ووافينا بالنتيجة Dim strSQL2 As String strSQL2 = "CREATE TABLE [Temp] ([Assessment] TEXT(5),[Reassessment] TEXT(5), [Multidisciplinary] TEXT(5),[Followup] TEXT(5),[LAMA] TEXT(5),[MLSD] TEXT(5),[Meeting] TEXT(5),[MOH] TEXT(5),[Rounds] TEXT(5),[Total] TEXT(5));" DoCmd.RunSQL strSQL2 On Error Resume Next Dim rs2 As Recordset, Dbs As DAO.Database Set Dbs = CurrentDb Set rs2 = Dbs.OpenRecordset("Temp") rs2.AddNew rs2.Fields(0) = [Reports]![Total of Assessment]![Count] rs2.Fields(1) = [Reports]![Total of Reassessment]![Count] rs2.Fields(2) = [Reports]![Total of Multidisciplinary]![Count] rs2.Fields(3) = [Reports]![Total of Follow up]![Count] rs2.Fields(4) = [Reports]![Total of LAMA]![Count] rs2.Fields(5) = [Reports]![Total of MLSD]![Count] rs2.Fields(6) = [Reports]![Total of meeting]![Count] rs2.Fields(7) = [Reports]![Total of MOH]![Count] rs2.Fields(8) = [Reports]![Total of Rounds]![Count] rs2.Fields(9) = [Assessment] + [Reassessment] + [Multidisciplinary] + [Followup] + [LAMA] + [MLSD] + [Meeting] + [MOH] + [Rounds] rs2.Update Set rs = Nothing

طيب ... بارك الله فيك ممكن مرفق بسيط لما تريد ... حتى نطبق عليه

هناك العديد من تلك الامثلة في المنتدى عند البحث تجدها مثل هذه

ممكن مرفق بسيط للتطبيق عليه

هل هذا ما تريد أخي الكريم .... مشكلة الجمع.accdb

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

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

تفضل ..... ولكن عنوان الموضوع يجب ان يكون موافق لما في داخل الموضوع ( قوانين المنتدى ) ... بارك الله فيك استخلاص تاريخ الميلاد.rar

تفضل .... استخلاص تاريخ الميلاد.rar

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

ممكن مثال مصغر لما تريد فعله

استبدل الكود بهذا .... DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع] ) SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, ""نقدي"" AS s FROM فرعى;" DoCmd.RunSQL "DELETE فرعى.ID, فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس FROM فرعى;" DoCmd.SetWarnings True Me.Requery

تفضل .... المحل نسخة تجريبية.accdb

اخي الكريم ضع المثال الذي عدلته حتى نعرف تحديدا ماذا تريد .. بارك الله فيك

ضع هذا الكود تحت الزر ..... Me.ID.SetFocus DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO فرعى ( ID, [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس ) SELECT الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس FROM الأصناف WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));" DoCmd.RunSQL "DELETE الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس FROM الأصناف WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));" DoCmd.SetWarnings True Me.Requery

استخدم الحماية ... بحيث لا يعمل البرنامج سوى الاجهزة التى تريدها فقط

غير اعدادات اللغة في ويندوز وجرب ....

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

جربت هذا البرنامج

استخدم استعلام الحاق

شكرا لك اخي @kanory

غير من اعدادات الويندوز التاريخ والوقت ... بحيث يكون بداية الاسبوع من الاحد وليس السبت

استعمل برامج الضغط مثل وين رار

مبارك اخي خلف ......... اعانك الله