عمر ضاحى

هل يمكن التحكم فى التسميات للاشهر من العربيه الى الانجليزيه دون التدخل فى نظام الوقت على الكمبيوتر ؟

ما شاء الله دائما مبدع اشكرك كثيرا على الهديه القيمه

دائما مبدع بارك الله فيك استاذي @Moosak

الحمد لله ان الفكره جازة اعجابك وربنا يوفقك فى جميع شؤن حياتك لما فيه الصالح لك ولجميع المسلمين الف شكر

فالحل موجود فعلا في زاد المثابر 😅👌 .. جميع النماذج تظهر في القائمة ومن ضمنها النماذج الفرعية اختر النموذج الفرعي من القائمة وسيعطيك عناصره مباشرة 🙂 **************************************************************** استاذي الغالى موسي بارك الله فيك وجزاك الله عنا كل خير 🌷 انا شايف ان يمكنك عرض جميع النماذج سواء فرعيه او رئيسية 😊 لكن ما قصدته هو ان اجعل قائمه فرعيه تظهر اذا كان النموذج الذى اخترته به نموذج فرعي او اكثر ف باختياري احدهم ياتينى بالعناصر ال فى النموذج الفرعي وبعدها يعطينى عنوان العنصر كامل اى يشمل اسم النموذج الرئيسي والفرعي 😁 والف شكر على المجهود

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

وجدتهااااااااااااااا ^_^ 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

تقريبا ال فهمته ان لما باستخدم دالة For داخل دالة For ده بيجعل النتائج تتضاعف بعدد الدورات يعنى فى مثالى ال عندي 30 دورة واخرى 31 دورة بتصل الى 930 دورة ايه الحل البديل

الحمد لله تقريبا قربت انتهي من انهاء هذا المشروع لكن وقف معي نقطه اريد ان اختصر هذا الكود (الطويييييل) 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 لكن المشكله تظهر معي بهذا الشكل كله اصبح نفس التاريخ 🤕 مش عارف فين الخطأ بصراحه

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

للرفع

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

المشكله استاذى المهندس / قاسم ان عندي فى الشركه (اجهزتهم) ليس بها هذه البرامج وعلشان كده اطريت ان افكر فى استخدام الاكسيس انا شفت فيديو لناس مقدمه اعمال مثل هذا لكن دون شرح لفكرة الاكواد او حتى نشر الكود فقط الملف التنفيذى فانا عاوز اتعلم كيف فعلها سوف ارفق ملف التنفيذى للفيديو ال شفته وال حاولت ان اقلده Project-Manager-FREE.zip

مش عارف اكمل اكثر من كده حاسس اني تايه ومش عارف اجمعها TimeLine.rar

انا عرفت اوصل لهذه الافكار لكن وقفت على كيف اطبق هذا (الالوان حسب رقم اللون ) عرفت عن طريق استخدام دالة if مع التنسيق لكن مش عارف اكملها بطريقة اسهل غير ان اخترهم مربع نص مربع نص كلا على حد ولو حبيت اطور واضيف الوان اكثر هتكون العمليه مرهقه TimeLine.rar