عمر ضاحى

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

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

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

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

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

دائما مبدع بارك الله فيك استاذي @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

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام حفظكم الله كما هو موضح من العنوان اريد ان اصمم خط زمني للمهام للمشاريع مثل هذه الصوره انا عندي فى جدول ال TblTask بسجل فيها المهام للمشاريع (الموظف والمهمه والتاريخ من والى ) وايضا لون للمهمه علشان التمييز فى العرض المطلوب :- 1- كيف يمكنني ان احول النموذج FormTimeLine للشكل كما هو موضح فى الصورة ؟ على ان يتم التحكم فى الوان الخط مثل ما انا مختار لكل موظف او مهمه 2- تصميم تقرير يعرض فيها الموجود فى النموذج FormTimeLine اذا كان هناك طريقة اخرى لتنفيذ هذا العمل بشكل ابسط واسهل من ال انا عامله ياريت تعلموني بارك الله فيكم نقطه اخرى كيف يمكن ان اجعل شكل الكتابه فى مربع النص كما فى الاكسيل بذاوية 90 درجه ^_^ اترك لكم المرفق TimeLine.rar

عرفت اين الخطأ الخطأ فى الشرط فى دالة البحث الشرط بيشير الى نموذج مش مفتوح ^_^ فى الكيس الخاص بـ FromPoTallySearch

On Error GoTo HandleError Dim ObjName As String Select Case CurrentProject.AllForms(ObjName).IsLoaded Case ObjName = "FrmAddNewPOTally" txtLPOID = Forms![FrmAddNewPOTally]![cbIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo cmdEdit.Enabled = True Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" cmdSave.Enabled = True End If Case ObjName = "FromPoTallySearch" txtLPOID = Forms![FromPoTallySearch]![SubFromPoTally].Form![txtIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo cmdEdit.Enabled = True Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" cmdSave.Enabled = True End If End Select HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub ElseIf Err.Number = 2467 Then Exit Sub ' ElseIf Err.Number = 2478 Then ' Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.DESCRIPTION End If Resume HandleExit بالطريقه دي اشتغلت لكن بيظهر لى خطأ 2467 وده معناه انه بيبحث عن نموذج مش مفتوح هرجع لدالة if وامري الى الله ^_^

جربت ادور فى النت ما وصلت لشئ وهنا ايضا ما وصلت لشئ

فى انتظار تجربتك ولا تنسي اختيار افضل اجابة اذا تم حل المشكله

="TOTAL " & Format([txtTotal];"#,###.00")

اها فهمتك استخدم هنا دالة Format