نجوم المشاركات

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena.net/ib/index.php?showtopic=59463 و لمعرفت احد فوائد ذلك الموضوع غالب مايعاني الاشخاص في ادخال اصناف فواتير البيع او الشراء رغم الطرق الكثيرة التي رئيتها لفعل ذلك الا انها تتسم ب: (الركاكة) ان صح التعبير او نقول غير مريحة في الادخالات احسن اقدم لكم اليوم هذته الطريقة التي وحسب رئي الشخصي افضل الطرق للوصول الى هدفنا المتمثلة في نموذج بسيط لفاتورة لكنه يشرح الفكرة بوضوح في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* ملاحظة يوجد ملفان في المرفق احدهما اوفيس 2003 لاكن الاخير يعطى خطاء في المعادلات المستعملة في الملف اضن بسبب دالة IFERROR و على ما اعتقد ان النسخة لا تدعمها اما الملف الثاني 2007 فما فوق شغال عادي تحياتي للجميع تم تغيير المرفق بعد 7 تحميلات Model Facteur.rar

بعد اذن اخويا ومعلمى الاستاذ عبدالرحمن هاشم انا مأخدتش بالى من موضوع التقارير وربطها بمربع التحرير والسرد من زر الامر نسيت كود الربط فقط وضعت كود للتأكد من انا كل خيار يعرض التقرير المنوط به من خلال زر الامر ونسيت ربطها كما اراد اخونا عبد الله فى طلبه وعلى كل حال انا مكنتش عارف هأعمل ايه لسه فى الموضوع ده وكنت لسه هأفكر ولان حضرتك كان ليك السبق الطيب فى تلك المسأله واعتقد مكنتش هاعملها بالطريقة الجميلة دى استسمح حضرتك انا دمجت الكود من الثلاث ازرار فى كود واحد لزر امر واحد وهو يعمل حسب الاختيار وكل الشكر والتقديرلحضرتك وجزاكم الله خيرا اخوكم محمد اسف نسيت ارفاق القاعده تم التعديل لرفع القاعدة بعد التعديل Cleaning contracts- باضافة التقارير لعرضها من زر امر واحد فقط.rar

وعليكم السلام ورحمة الله هذا مقترح آخر بعد أذن أخي العزيز أسير الشوق Cleaning contracts.rar

الملف جاهز على قدر فهمى الضئيل ارجوا ان تكون فيه الفائده المرجوه ان شاء الله Cleaning contracts-UP .rar

حاول عملها بنفسك و اي استفسارات سنساعدك على الاقل سيكون حافزا لتعلمك التعامل مع اليوزرفورم وهذه افضل طريقة للتعلم (الحاجة أم الاختراع) تحياتي بارك الله فيك أخي الفاضل الحاجة أوصلتني لهذا الحد فقط ولم أتمكن من المتابعة على الأقل في الوقت الراهن ... أعلم أنني وبإذن الله إذا نويت أن أنجز اليوزر فورم سأنجح في ذلك لأنني خضت سابقاً غمار الكودات البرمجية ضمن نطاق الحاجة ونجحت في ذلك ... بس الوقت يا أخي وترتيب الأولويات يقف عائقاً في إبحاري في هذا المحيط حالياً ... الله يكرمنا بأحد الخبراء المتفرغين .... ربك كريم ... وخاصة أن الكودات قد تكون شبه جاهزة عنده في أرشيفه وبالتالي نطبق القاعدة التي تقول : ابدأ من حيث انتهى الآخرون .... وشكرً على الرد

لم أدرك جيدا المطلوب لكن جرب التالي Private Sub Workbook_Open() If Date > DateValue("10/3/2015") Then If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then MsgBox "كلمة المرور خطائة " ThisWorkbook.Close If CloseMode = vbFormControlMenu Then Cancel = True MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً " Application.DisplayAlerts = False Application.Quit End If Else MsgBox "تفضل بالدخول كلمة المرور صحيحة " UserForm2.Show Sheet3.Select Range("B1").Select Exit Sub End If End If End Sub

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

بعد التطبيق في المثال السابق .. هذا هو الكود هو المسؤول عن العملية Private Sub co2_AfterUpdate() If co2 = 1 Then 'ويمثل الاختبار الاول في مربع تحرير الفترة subs.Form!text1.ControlSource = "ekhtbar1" 'حقل الاختبار الاول في الجدول ElseIf co2 = 2 Then subs.Form!text1.ControlSource = "ekhtbar2" ElseIf co2 = 3 Then subs.Form!text1.ControlSource = "ekhtbar3" ElseIf co2 = 4 Then subs.Form!text1.ControlSource = "NISFALSANH" ElseIf co2 = 5 Then subs.Form!text1.ControlSource = "ekhtbar4" ElseIf co2 = 6 Then subs.Form!text1.ControlSource = "ekhtbar5" ElseIf co2 = 7 Then subs.Form!text1.ControlSource = "NHAIATALSANH" End If End Sub text1.ControlSource يعني مصدر عنصر التحكم لحقلنا الموجود في النموذج الفرعي كما تلاحظون في الكود يتغير المصدر بتغير قيمة مربع التحرير الفترة الموجود في النموذج الرئيسي

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً. وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما. للمزيد حول الموضوع يرجى زيارة الرابط التالي رابط الموضوع من هنا

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

حبيب قلبى واستاذى الفاضل // شوقى ربيع السلام عليكم ورحمته الله وبركاته لديك كل الحق فيما ذكرته فأنا عن نفسى لاأقوم برفع أى موضوع للطرح العام إلا بعد البحث والتمحيص وبعدة طرق ومع تغييركلمات البحث كما لوكنت ألعب دور " وكيل نيابة " حتى أحظى بما أريد وبالرغم من أن هناك موضوعات كثيرة قد لاتكون فى محلها لعدم اقتناعى بها وإن لم أجد فمن هنا يتم رفع الموضوع للمناقشة والاهم أن يكون هناك إصرار من السائل للوصول الى الحل الامثل وأذكرك أخى الحبيب بهذا الموضوع الذى عالج قصورا شديدا من ميكروسوفت http://www.officena.net/ib/index.php?showtopic=55273&page=2 حيث أردت أن أرد لسيادتكم الجميل على الرابط http://www.officena.net/ib/index.php?showtopic=55519&hl= قامت الدنيا ولم تقعد واسمح لى أن أضيف على ماذكرته أخى الحبيب أن هناك أمور لاينبغى أن تحدث من زملاء أفاضل وهم معرفون على مستوى الموقع بشأن التقليل من حجم السائل حال توصله لحل الموضوع سواء توصل اليه بنفسه او توصل اليه عن طريق أحد الزملاء وإذ تفاجىء بردود لاتليق على الاطلاق من زملاء من المفترض أن يتسموا بالتواضع الامرالذى يدفع معظم السادة الاعضاء الى عدم المشاركة اوالانقطاع أوالدخول على الموقع بحساب جديد حتى يتمكن من الحصول على مايريد او مراسلة الزملاء عبر الخاص أو تبادل الملفات على أحد مواقع تخزين الملفات بحثا عن حل لمشكلاتهم خارج الموقع ومن هنا لاتعم الفائدة على الجميع فكما تعلم أن هناك من يتخصص فى المعادلات فقط وهناك من يتخصص فى الاكواد فقط وهناك من يجمع بين الاثنين ولاغنى عن كلاهما فى مجال اعمالنا واخيرا ارجواخى العزيز تعديل اقتباسكم فقد اكتفيت بتحية الاسلام أولا فى بداية مشاركتى لاننى اعلم أن ردى سيتغرق وقتا لسرده وافر تقديرى واحترامى فأنتم على حق جزاكم الله خيرا

بسم الله الرحمان الرحيم السلام عليكم لكل شخص لديه ادخالات يومية لحظور او غياب او اجزات موظفين اقدم لكم اليوم هذا الملف الذي يقوم بكل ماسبق ذكره لاكن بطريقة مميزة وسلسة في الحقيقة هو جزء من برنامج تسيير الموظفين الخاص بي وددت مشاركتكم اياه وتعميم الفائدة وبالاكمان استخدام هذا الملف في عدت مجالات مع بعض التعديلات المحتوايات قائمة لتنقل بين اشهر السنة بسهولة فورم للتعديل على بيانات الموظفين المسجلين في داتا البرنامج فورم لاضافة موظف جديد بحث عن موظف (النص التنبئي) امكانية طباعة بطاقة الحظور صورة توضيحية لازرار التسجيل في البرنامج وهذا فيديو توضيحي للملف ككل اعتذر لعدم وجود الصوة لازلت جديد على عمل الفيديوهات لم انتبه الى ان الصوة موقف اثناء التسجيل والصراحا تخاذلت لاعادة تصوير الفيديو ملاحظة الاعمدة الملونة بالازرق تدل على ايام الجمعة تحياتي للجميع Feuil Pointage.rar Feuil Pointage 2003.rar

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

أخي ابا عمرو هل تم حل مشكلتك؟ حياك الله أخي انت الله هداك دخلت في تعليقك كأنك صاحب الموضوع ، فدوختني على العموم ، تفضل ، اشرح اللي تريده (لا شرحك اللي كتبته غير واضح وغير كافي) ، اشرح باسماء النماذج والحقول اللي عندك ، وكيف اقدر اشوف الرسالة اللي تقول عنها ، وارفق قاعدة بياناتك جعفر

زادك الله من علمه وفضله ورفع درجاتك فى الجنة

جميل أوي أخي الكريم الكود الذي وضعته في زر استعراض اكثر من تقرير Select Case Reports Case 1 On Error Resume Next DoCmd.OpenReport "Report1", acViewReport Case 2 On Error Resume Next DoCmd.OpenReport "Report2", acViewReport Case 3 On Error Resume Next DoCmd.OpenReport "Report3", acViewReport End Select انا عملت 3 ازرار معلش بقى لسة مبتدئين

ومنكم نتعلم استاذي الكريم والرأي رأيك >>> بس نسيت الختم ...

جزاك الله خيرا

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

انا عدلت وتركت حقل التاريخ القديم كما هو امممممممممم مشكلتى انى مش عارف اظهر اسم الشهر بصراحه مكنتش عارف الاجابه وبحثت حتى هدانى الله لهذا الحل لازلت احاول اظهار اسم الشهر وان كان احد الاخوة او اساتذتنا الكرام يستطيع مد يد العون فى ذلك حتما لن يتخلفوا عن رد طلبكم ان شاء الله تنبيه بإنتهاء تفوي - up .rar

السلام عليكم أخي عبدالعزيز رجاء ، لا تستخدم الخط الضخم ، فانا أقرأ المنتدى على الجوال في الكثير من الاوقات ، والخط الكبير صعب القراءة عليه 1. تم التعديل ، 2 و 3. تم إرجاع البيانات السابقة (كنت اعتقد بان البيانات كانت للتجربة ، وعلى العموم انا غيرت في الكثير منها ، للتجربة) ، 4. فرق تصفية السجلات بين تصفيتها في الاستعلام وتصفيتها في النموذج/التقرير كالتالي: فلنعتبر الجدول عبارة عن مخزن لتخزين المواد ، الاستعلام هو قاعة مخصصة لتصفية وفرز المواد ، والنموذج/التقرير هو منزلك او متجرك ، السؤال: عندما تريد شراء المواد ، عمل الفلتر من الاستعلام: هل تختار وتصفي ما تشاء في المكان المخصص لذلك في المخزن ، وتأخذ الى متجرك البضاعة التي تريدها فقط ، عمل الفلتر من النموذج: او تأخذ جميع بضاعة المخزن الى متجرك ، ثم تختار البضاعة التي تريد ، 5. تم التعديل بإزالة ربط حقول السرد ، ولكن السنة لا تزال هي الاهم جعفر 14.3.البرنامج المميز.mdb.zip

استاذ / ياسر خليل ما شاء الله و جزاك الله خيرا

عااااااااااااااااااااااااااااااااااااااااشت يداك اخي الكريم هذا هو المطلوب تحياتي لؤي الخزرجي

اذا تكرمت استاذنا وضح لي ذلك او دلني على الموضوع المناسب لذلك لاكمل برنامجي

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

شى جميل جداً ........ ان شاء الله يكون في ميزان حسناتك :fff:

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

تفضل استاذى الكريم هل هذا هو طلبك انظر المرفق اعمال السنة2+.zip

السلام عليكم ورحمة الله الاستاذ / ياسر خليل ابو البراء ما شاء الله تبارك الله فعلا كنز ثمين للمبتدئ والمتقدم اسعدنا نتمنى لكم مزيدا من التقدم والإزدهار في كامل حياتك جزاك الله خير وبارك فيك وجعله الله في ميزان حسناتك.

البيانات اعلاه تكون في جدول واحد لانها بيانات ثابتة لا تتغير ولا تزيد ولا تنقص متى نحتاج الى الجداول الاخرى ؟ نحتاجها عند وجود بيانات متغيرة مثلا : 1-المرتبات ...... تزيد وتنقص وتتجدد كل شهر 2- الاجازات .... تختلف وتمنح من حين الى آخر 3- الدرجات للطلاب ... وهكذا .....

حبيب قلبى الاستاذ الفاضل // ياسر خليل السلام عليكم ورحمته الله وبركاته استاذ ورئيس قسم الله يكرمك ويكرم اصلك الطيب الله أسأل أن يسدد على طريق الخير خطاكم وانارالله قلبك وبصرك وبصيرتك بهذا التوضيح حلت مشكلات كثيره بالنسبة لى جزاكم الله خيرا وبارك فيكم ونحن فى انتظار تعديلات إحداثيات محفظة الاكواد

أستاذى وأخى الفاضل ياسر بارك الله فيكم وفى أعمالك وجعلها فى ميزان حسناتكم

وعليكم السلام أخي حسسين في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز جعفر

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

كما تفضل الأخ عبد الفتاح .. ولكني استخدمت الكود في حدث عند التحميل للتقرير a = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 3"), 0) b = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 6"), 0) c = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 5"), 0) كذلك قمت بتعديل جدول typeofcalling وربطه بعلاقة مع الجدول الرئيسي كما تم تغيير مربعات النص الغير منظمة إلى a,b,c الق نظرة على المرفق وان شاء الله يفي بالغرض . Protection Concern.rar

بعد إذنكم انسخ هذه داخل مربع النص غير المنضم =DCount("*";"Childdetails";" TypeOfcalling = 'غير حقيقي'")

أخي الفاضل هناك العديد واالعديد من الموضوعات داخل المنتدى للتعليم ( منها دوروس ومنها شروحات ) ويمكن انت تطرح السؤال او الفكرة التي ترغب بها وهنا من يجيبك إن شاء الله ومنها تتعلم ما تريد

تفضل أخي الحبيب وإن كنت لا أدري شكل الأكواد لديك .. Codes To Run At Startup.rar

1- اضافة زر بالنموذج لتغيير التاريج لكل السجلات دفعة واحدة. ممكن توضح بس انهو تاريخ حضرتك عاوز تغيره دفعه واحده 2 - اضافة زر بالنموذج لحفظ الشهر الحالي للرجوع اليه عند الحاجة. اعتقد الحفظ تلقائى 3 كيفية اضافة اوامر مثل فتح نموذج اوتقرير للوظائف الاضافية في اكسس 2010 (اي انشاء شريط ادوات خاص بالمنظومة ) انا مش فاهم النقطه دى برجاء التوضيح

بسم الله الرحمن الرحيم إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم الدرس الثانى من ( سلسلة الفارس فى شرح دوال الإكسل عن طريق الفيديو ) شرح دالتى AND و OR وان شاء الله الدرس القادم سيكون عن استخدام دالة IF مع دالة AND أو دالة OR http://youtu.be/Y2FwfUAZIuY OR ودالة AND دالة.rar

السلام عليكم هذا مثال لما اوردته باستخدام في مشاركتي السابقة عن استخدام سلكت كوس غير معطياتك كعميل او مورد Sub kh_AddItem(nSh As String) Dim MyRng As Range Dim R As Integer Dim ContRow As Long, i As Long Dim tFindNum As String Dim dt1 As Date, dt2 As Date '------------------------- On Error GoTo 1 '------------------------- Set MyRng = Sheets(nSh).Range(MyTopColmnRng) '------------------------- With MyRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With If ContRow = 0 Then Exit Sub '------------------------- ' اسم الحساب المطلوب tFindNum = LCase(saad1.ComboBox1.Value) '------------------------- ' التواريخ dt1 = CDbl(CDate(saad1.ComboBox2)) dt2 = CDbl(CDate(saad1.ComboBox3)) '------------------------- With MyRng.Offset(1, 0) For R = 1 To ContRow Select Case .Cells(R, dColmn).Value2: Case dt1 To dt2 If LCase(.Cells(R, MyColmnFind)) Like tFindNum Then '''''''''''''''''''''''''''''''' 'مثلا هذه الاعمدة مطلوبة في كل الحسابات Cells(ii, "B").Resize(1, 6).Value = .Cells(R, 1).Resize(1, 6).Value ' المعيار اسم الورقة Select Case .Worksheet.Name 'باقي الاعمدة وهي اربعة نختار فيها مانريده Case "مشتريات", "م.مبيعات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, "", .Cells(R, 9).Value) Case "مبيعات", "م.مشتريات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, .Cells(R, 9).Value, "") Case "خزينة" Cells(ii, "H").Resize(1, 4).Value = Array("", "", .Cells(R, 7).Value, .Cells(R, 8).Value) End Select '''''''''''''''''''''''''''''''''''' ii = ii + 1 End If End Select Next End With '------------------------- 1: Set MyRng = Nothing End Sub المرفق 2003 تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar

الاخ / أبو حنين شكرا لك الان نتعلم كيفية جمع المواد المختلفة مثل العربى الدراسات العلوم ....... التى رسب فيهم الطالب بطريقة سهلة وبدون كتابة معادلات انظر الفيديو الفيديو جمع المواد المختلفة.rar

والان كيفية عمل بيانات الطالب اليكم الامر باستعمال دالة LOOKUP من ادراج دالة =LOOKUP(B12;الشيت!A9:A108;الشيت!B9:B108) واليكم الشرح بالفيديو اسم الطالب ودرجاته.rar

نتعرف الان على كيفية عمل خلفية للورقة وازالتها واخفاء خطوط الشبكة وكيفية رسم مستطيل وكتابة بيانات او عنوان اليكم الفيديو خلفية وعنوان.rar

الاخوة الزملاء كنت امل التفاعل مع شرح خطوات عمل شيت كنترول للوصول الى شكل يستفاد منه الجميع وعموما اليوم نتعرف على بداية عمل شهادة للطالب أو ممكن استعمالها فى الكشف على درجات طالب بداية سننفذ مربع تحرير وسرد اى بالضغط على الزر تظهر قائمة بارقام الجلوس نختار الرقم تظهر بيانات الطالب واليكم الشرح بالفيديو http://magdiyonis.forumegypt.net/ مربع تحرير وسرد.rar

اخي لاحظ المرفق color select.rar

الاستاذ يحياوي : تحية طيبة مرفق اكواد رياضية رائعة - 2 ملف - مع شرح بسيط لتطبيقات vba مع الاكسل لاستاذنا الكبير محمد طاهر وفقك الله ياسر الحافظ شرح برنامج اكسل و تطبيقات الفيجوال مع اكواد رياضية رائعة.rar

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

السلام عليكم و رحمة الله إضافة لحلول الأخوة الجميلة أخي يمكنك عمل فلترة و اظهار الأسماء غير المكررة في نفس القائمة بإتباع الخطوات التالية : حدد المدى الذي يحتوي الأسماء ثم قم بإختيار التصفية المتقدمة Advanced Filter و أبقي الخيار الاول كما هو Filter the list , in place و قم بتحديد الخيار الأخير Unique Record Only ثم اوكي و سيعطيك الاسماء غير مكرره في نفس المدى

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