تصميم خط زمني للمشاريع

**عمر ضاحى** · مارس 8, 2023

السلام عليكم ورحمة الله وبركاته

اساتذتى الكرام حفظكم الله

كما هو موضح من العنوان

اريد ان اصمم خط زمني للمهام للمشاريع

مثل هذه الصوره

انا عندي فى جدول ال TblTask بسجل فيها المهام للمشاريع (الموظف والمهمه والتاريخ من والى ) وايضا لون للمهمه علشان التمييز فى العرض

المطلوب :-

1- كيف يمكنني ان احول النموذج FormTimeLine للشكل كما هو موضح فى الصورة ؟ على ان يتم التحكم فى الوان الخط مثل ما انا مختار لكل موظف او مهمه

2- تصميم تقرير يعرض فيها الموجود فى النموذج FormTimeLine

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

نقطه اخرى كيف يمكن ان اجعل شكل الكتابه فى مربع النص كما فى الاكسيل بذاوية 90 درجه ^_^

اترك لكم المرفق

TimeLine.rar

تم تعديل مارس 8, 2023 بواسطه عمر ضاحى

**عمر ضاحى** · مارس 8, 2023

انا عرفت اوصل لهذه الافكار

لكن وقفت على كيف اطبق هذا (الالوان حسب رقم اللون )

عرفت عن طريق استخدام دالة if مع التنسيق

لكن مش عارف اكملها بطريقة اسهل

غير ان اخترهم مربع نص مربع نص كلا على حد

ولو حبيت اطور واضيف الوان اكثر هتكون العمليه مرهقه

TimeLine.rar

**عمر ضاحى** · مارس 8, 2023

مش عارف اكمل اكثر من كده

حاسس اني تايه ومش عارف اجمعها

TimeLine.rar

**Eng.Qassim** · مارس 8, 2023

حيا الله استاذ عمر..

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

ومن البرامج السهلة في هذا الشأن من مايكروسوفت هو برنامج Microsoft Project..وهناك الكثير طبعا لكني اشتغلت فقط عليهم

**النجاشي** · مارس 8, 2023

انظر هنا قد تستفيد

تم تعديل مارس 8, 2023 بواسطه النجاشي

**عمر ضاحى** · مارس 9, 2023

9 ساعات مضت, Eng.Qassim said:

حيا الله استاذ عمر..

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

ومن البرامج السهلة في هذا الشأن من مايكروسوفت هو برنامج Microsoft Project..وهناك الكثير طبعا لكني اشتغلت فقط عليهم

المشكله استاذى المهندس / قاسم

ان عندي فى الشركه (اجهزتهم) ليس بها هذه البرامج وعلشان كده اطريت ان افكر فى استخدام الاكسيس

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

فانا عاوز اتعلم كيف فعلها

سوف ارفق ملف التنفيذى للفيديو ال شفته وال حاولت ان اقلده

Project-Manager-FREE.zip

**عمر ضاحى** · مارس 9, 2023

للرفع

**Eng.Qassim** · مارس 9, 2023

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

بالمناسبة استاذ عمر الان فتحت ملفك..مالذي تقصده بهذا التعبير =IIf([txtTodyDate]+2 Between [txtStart] And [txtEND],"1","0")

Gantt_DB_PeterHibbs.zip

تم تعديل مارس 9, 2023 بواسطه Eng.Qassim

**عمر ضاحى** · مارس 9, 2023

24 دقائق مضت, Eng.Qassim said:

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

باشكر حضرتا جدا جدا على المساعده

24 دقائق مضت, Eng.Qassim said:

بالمناسبة استاذ عمر الان فتحت ملفك..مالذي تقصده بهذا التعبير =IIf([txtTodyDate]+2 Between [txtStart] And [txtEND],"1","0")

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

مثل هذا (لكن قمت بتعديلها فيما بعد وحذفت الصفر لان ما له لزمه)

انا بحاول اعملها بالصورة البدائية

لحد ما الاقى كود يختصر على كل التعب ده

**عمر ضاحى** · مارس 11, 2023

الحمد لله تقريبا قربت انتهي من انهاء هذا المشروع

لكن وقف معي نقطه

اريد ان اختصر هذا الكود (الطويييييل)

txtD01 = Format(txtTodyDate + 0, "dd - mm")
txtD02 = Format(txtTodyDate + 1, "dd - mm")
txtD03 = Format(txtTodyDate + 2, "dd - mm")
txtD04 = Format(txtTodyDate + 3, "dd - mm")
txtD05 = Format(txtTodyDate + 4, "dd - mm")
txtD06 = Format(txtTodyDate + 5, "dd - mm")
txtD07 = Format(txtTodyDate + 6, "dd - mm")
txtD08 = Format(txtTodyDate + 7, "dd - mm")
txtD09 = Format(txtTodyDate + 8, "dd - mm")
txtD10 = Format(txtTodyDate + 9, "dd - mm")
txtD11 = Format(txtTodyDate + 10, "dd - mm")
txtD12 = Format(txtTodyDate + 11, "dd - mm")
txtD13 = Format(txtTodyDate + 12, "dd - mm")
txtD14 = Format(txtTodyDate + 13, "dd - mm")
txtD15 = Format(txtTodyDate + 14, "dd - mm")
txtD16 = Format(txtTodyDate + 15, "dd - mm")
txtD17 = Format(txtTodyDate + 16, "dd - mm")
txtD18 = Format(txtTodyDate + 17, "dd - mm")
txtD19 = Format(txtTodyDate + 18, "dd - mm")
txtD20 = Format(txtTodyDate + 19, "dd - mm")
txtD21 = Format(txtTodyDate + 20, "dd - mm")
txtD22 = Format(txtTodyDate + 21, "dd - mm")
txtD23 = Format(txtTodyDate + 22, "dd - mm")
txtD24 = Format(txtTodyDate + 23, "dd - mm")
txtD25 = Format(txtTodyDate + 24, "dd - mm")
txtD26 = Format(txtTodyDate + 25, "dd - mm")
txtD27 = Format(txtTodyDate + 26, "dd - mm")
txtD28 = Format(txtTodyDate + 27, "dd - mm")
txtD29 = Format(txtTodyDate + 28, "dd - mm")
txtD30 = Format(txtTodyDate + 29, "dd - mm")
txtD31 = Format(txtTodyDate + 30, "dd - mm")

txtDN01 = Format(txtTodyDate + 0, "ddd")
txtDN02 = Format(txtTodyDate + 1, "ddd")
txtDN03 = Format(txtTodyDate + 2, "ddd")
txtDN04 = Format(txtTodyDate + 3, "ddd")
txtDN05 = Format(txtTodyDate + 4, "ddd")
txtDN06 = Format(txtTodyDate + 5, "ddd")
txtDN07 = Format(txtTodyDate + 6, "ddd")
txtDN08 = Format(txtTodyDate + 7, "ddd")
txtDN09 = Format(txtTodyDate + 8, "ddd")
txtDN10 = Format(txtTodyDate + 9, "ddd")
txtDN11 = Format(txtTodyDate + 10, "ddd")
txtDN12 = Format(txtTodyDate + 11, "ddd")
txtDN13 = Format(txtTodyDate + 12, "ddd")
txtDN14 = Format(txtTodyDate + 13, "ddd")
txtDN15 = Format(txtTodyDate + 14, "ddd")
txtDN16 = Format(txtTodyDate + 15, "ddd")
txtDN17 = Format(txtTodyDate + 16, "ddd")
txtDN18 = Format(txtTodyDate + 17, "ddd")
txtDN19 = Format(txtTodyDate + 18, "ddd")
txtDN20 = Format(txtTodyDate + 19, "ddd")
txtDN21 = Format(txtTodyDate + 20, "ddd")
txtDN22 = Format(txtTodyDate + 21, "ddd")
txtDN23 = Format(txtTodyDate + 22, "ddd")
txtDN24 = Format(txtTodyDate + 23, "ddd")
txtDN25 = Format(txtTodyDate + 24, "ddd")
txtDN26 = Format(txtTodyDate + 25, "ddd")
txtDN27 = Format(txtTodyDate + 26, "ddd")
txtDN28 = Format(txtTodyDate + 27, "ddd")
txtDN29 = Format(txtTodyDate + 28, "ddd")
txtDN30 = Format(txtTodyDate + 29, "ddd")
txtDN31 = Format(txtTodyDate + 30, "ddd")

الى هذا الكود

  
    
    Dim Sn As Integer
    Dim aD As Integer
    
    
    For Sn = 1 To 31
            For aD = 0 To 30
        
                Me("txtD" & Format(Sn, "00")) = Format(txtTodyDate + aD, "dd - mm")
                Me("txtDN" & Format(Sn, "00")) = Format(txtTodyDate + aD, "ddd")
                
        Next aD
    Next Sn

لكن المشكله

تظهر معي بهذا الشكل

كله اصبح نفس التاريخ 🤕

مش عارف فين الخطأ بصراحه

تم تعديل مارس 11, 2023 بواسطه عمر ضاحى

**عمر ضاحى** · مارس 11, 2023

تقريبا ال فهمته ان لما باستخدم دالة For داخل دالة For ده بيجعل النتائج تتضاعف بعدد الدورات

يعنى فى مثالى ال عندي 30 دورة واخرى 31 دورة بتصل الى 930 دورة

ايه الحل البديل

**عمر ضاحى** · مارس 11, 2023

وجدتهااااااااااااااا ^_^

    Dim Sn As Integer
    Dim aD As Integer
    For Sn = 1 To 31
    aD = Sn - 1
        Me("txtD" & Format(Sn, "00")) = Format(txtTodyDate + aD, "dd - mm")
        Me("txtDN" & Format(Sn, "00")) = Format(txtTodyDate + aD, "ddd")
    Next Sn

تسجيل الدخول

تصميم خط زمني للمشاريع

الردود الموصى بها

عمر ضاحى

عمر ضاحى

عمر ضاحى

Eng.Qassim

النجاشي

عمر ضاحى

عمر ضاحى

Eng.Qassim

عمر ضاحى

عمر ضاحى

عمر ضاحى

عمر ضاحى

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information