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

استبدل الكود لديك بهذا .......................... Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("SELECT hol.lateday, hol.ck, hol.Rea, hol.[no], hol.ck, hol.Rea, hol.absdate, hol.start_date, hol.end_date " & _ " FROM hol " & _ " WHERE (((hol.[no])=" & [Forms]![late-enter]![no] & ")) " & _ "ORDER BY hol.lateday;") rst.MoveFirst Do Until rst.EOF If rst!lateday = Me![نص15] Then MsgBox " تاريخ التأخر مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do ElseIf rst!absdate = Me![نص15] Then MsgBox " الموظف غائب اليوم ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

بارك الله فيك ..... انظر الصورة لهذا الموظف قبل التحديث وبعد التحديث ( هل هذا هو المطلوب ) ؟؟؟؟؟؟ جرب المرفق واعلمنا بالنتيجة ..... الغياب والتاخير.accdb

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

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

بارك الله فيكم استاذى Foksh

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @Foksh جزاه الله خيرا اتفضل استخدم التعديل التالى IIf(Len([اسم الخامة] & "")=0;"";Nz(DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]);0)) والاصل قبل الاضافه DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]) والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم بالتوفيق

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

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

تفضل أخي @الماهر522 . ProS1.accdb

وعليكم السلام ورحمة الله وبركاته تفضل اخى تقسيم الاسم على اربعة اعمدة لاول اربعة اسماء تقسيم الاسم الرباعى الى اربعة اسماء منفصلة.xlsm

السلام عليكم و رمة الله و بركاته ما هو التعديل على الكود الذي يقوم بتقسيم الاسم اذا كان رباعي اسم , سم الاب , اسم الجد , اسم العائلة على اربعة اعمدة بارك الله لكم و جزاكم كل خير

استاذ @abouelhassan وحشتنا كثيراً ومن فضلكم اريد المشاركة بما فهمت المرفق به تصوري حسب مافهمت لأني بدأت به قبل رد أستاذي @ابوخليل . المرفق به طلبك الأول أما التقارير خطوة ثانية اذا عجبك تصوري . اليك الشرح والمرفق . DDListboxMultiSelect.rar

تعديلات طفيفة تتلخص في التالي : - الترقيم للحسابات وللاصناف يجب ان يبدأ برقم كبير ... من اجل ضبط التصفية والفرز مستقبلا - في جدول العمليات جعلت مصدر الحساب والصنف رقما من اجل المعايير وصحتها وسرعة تنفيذ الاستعلامات - لمسات على التسميات بما اننا في البداية ------------------------------------------- سوف نبقى في الجداول ولن نخرج عنها حتى اكتمالها .. ونستعين بالاستعلامات حتى نطمئن على النتائج --------------------------------------- الآن : قم بتعبئة جدول تفاصيل العمليات بسجلات مناسبة .. بيانات تشتمل على كل ما تفكر باستخراجه في التقارير حينما نجري تجاربنا باستخراج النتائج ، ستجد ان العمل اصبح ممتعا ، وسيفتح لك باب في التصميم والبرمجة كان مختبئا عنك . tables1.rar

بارك الله بكم @Moosak @jjafferr عمل اجمل من رائع ,,, جزاكم الله كل الخير

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

تفضل جرب الملف ان شاء الله هو المطلوب لو انا فهمت ما تريده بشكل صحيح تقبل تحياتى مساعده بتغيير محتوى قيم خليه بالجمع والنقص (1).xlsb

تفضل اخى تم بحمد الله عمل المطلوب والتعديل على الدالة التى ارفقتها للحصول على النتائج المطلوبة واعذرنا على التأخير لكل منا مشاغله ملاحظة يجب اضافة الاسم المركب الجديد فى الكود كما فى هذا الجزء MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") بمعنى ان وجد مثلا اسم مثل نور الهدى احمد عبدالحليم فيجب على اضافة كلمة الهدى قبلها فراغ اى زر المسطرة قبل كلمة الهدى الى هذه المصفوفة وهكذا مع باقى الاسماء المركبة الجديدة لتصبح هكذا MyArray = Array(" عبد", " أبو", " ابو", " آل" _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق", " الهدى") جرب الملف واعلمنا بالنتيجة تقبل تحياتى تقسيم الاسم في ثلاثة اعمدة.xlsm

وعليكم السلام ورحمه الله وبركاته ممكن شرح بالتفصيل ما هو المطلوب حتي يتسنى لمن يريد المساعده فهم طلبك اي بيانات تريد عرضها واي فورم تريد عرض الصور عليه

السلام عليكم كان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك فالمنتدى كنوز -تفضل على الرغم انك لم تقم برفع ملف اكسيل موضح به المطلوب بكل دقة https://www.officena.net/ib/topic/22735-طباعة-الشهادات-المدرسية/ وهذا أيضاً برنامج صانع الشهادات المدرسية https://www.jo-teachers.com/forum/t9644

تفضل استاذ @SAROOK التعديل حسب طلبك بعد تدارك ملاحظاتك . 2-الغياب والتاخير.rar

جزيل الشكر لكم اخوتي حل آخر باستخدام بور كويري المصنف1.xlsx

يمكن لكن كدا كل جزء ها يكون في خلية ها تستبدل "Y" ب "YM" علشان تظهر الشهر و "MD" علشان الأيام

تفضل استاذ @SAROOK التعديل حسب طلبك بعد اضافة تأخير لموظف فقط اضغط الزر تحديث . 1-الغياب والتاخير.rar

استخدم المعادلة التالية باعتبار أن الرقم القومي في الخلية B3 =DATEDIF(DATE(IF(LEFT(B3;1)*1=3;20;19)&MID(B3;2;2);MID(B3;4;2);MID(B3;6;2));TODAY();"y") حيث يتم تقسيم الرقم القومي إلى شهر وسنة وأيام وبعدها يتم طرحه من اليوم الحالي today واظهار الناتج بالسنة y

جرب =IF(G2=K2,"01-01-2000",IF(K2+L2<G2,"01-01-2030",INDEX($D$5:$D$10307,SMALL(IF(($A$5:$A$10307=E2)*($C$5:$C$10307>=SUMIF($E$2:E2,E2,$L$2:L2)),ROW($A$5:$A$10307)-ROW($A$5)+1),2)-5))) الدالة دالة مصفوفة لتعمل Ctrl + Shift + Enter لتنفيذها

هذه واحدة من الواجهات التي صممتها بطريقة مميزة نوعا ما : والشكر لك مهندسنا @jjafferr على البرنامج الراااااااااائع 🙂 ومن هنا التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb جعفر صفحة رئيسية مطورة.zip ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb520 kB · 439 downloads ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar

ما شاء الله اخونا ابو الحسن الرد سريع والاجابة جاهزة جعلها الله في صحائف الاعمال وجزاكم عنا خير الجزاء