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

استاذ @طير البحر يجب عليك اظهار (Edit bar) لاستخدامه فيما تريد ويلبي طلبك تفضل شرح اظهاره بمحرر الاكواد .

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا معرفة كم اسم موجود على رقم الهوية.xlsm

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

السلام عليكم ورحمة الله وبركاته اهلا بشمهندس Barna .الحمد لله رب العالمين .بارك الله فيك وجزاك كل خير هذا هو المطلوب تماما ولا انسى هنا بشمهندس خليفة الذي تعب معي جزاه الله كل خير تحياتي

انت فعلا بدأت الاحتراف من الآن اعرض جداولك الرئيسة ( فقط ) وضع فيها بعض البيانات للاستئناس والفهم من اجل الدراسة والمناقشة الجداول الرئيسية فقط .. لأن الفرعية ستأتي تباعا

عليكم السلام مرحا .. مرحا .. ابا حسان .. أخيرا عدت والعود أحمد

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

تفضل استاذ @tiger wanted عرض الصورة على عارض الصور وعلى الرسام . لاتنسي الضغط على أفضل اجابة . Save image-1.rar

اشكرك من أعماق قلبي هذا هو المطلوب

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

وعليكم السلام كما تفضل الاستاذ كمال بالإشارة إلى أنه يجب إرفاق نموذج للعمل عليه نؤكد أن المنتدى زاخر بمثل هذه الأعمال وتفضل تنفيذ بسيط لما طلبت ويمكن عمل 3 أو 4 شهادات في الورقة كما يمكن اضافة بعض التحسينات للعمل قومت بوضع الدالة الأساسية فقط في الملف نموذج للشهادة.xlsx

استاذ @سيد تيمي. حاول ترسل القاعدة

تفضل ملفين من أعمال ألأعضاء بالمنتدى مع العمل أن المنتدى زاخر بأفكار بملفات مثل المرفقات يمكنك استخدام البحث أو تنزيل ملف فهرس المنتدى كود إدراج صورة.rarإدراج صورة من خلال دالة معرفة من قبل.rarإدراج صورة في مربع نص بالدوال.rar

سلمت يمينك استاذي العزيز @Foksh دمت ذخرا وعزا 💐💐

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

DoCmd.RunCommand acCmdPrint

أختنا الكريمة @olah بعد تجربة الكود السابق في المشاركة السابقة توضح انه لا يعمل بشكل صحيح ضمن القيم الفريدة .. وهذا تعديلي الأخير . قاعدة بيانات_عدد السجلات2.accdb

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

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

ما شاء الله عليك انت صخ ولكن يبدو أنك أغفلت أن النطاقات لابد وأن تكون متساوية داخل الصيغة =SUMIFS(E4:E87,D4:D87,"لارج",B4:B87,"="&(TODAY())) حضرتك وضعت =SUMIFS(E4:E87,D4:D11,"لارج",B4:B87,"="&(TODAY())) وان شاء الله هتشتغل معاك

من الافضل جعل قيمة القائمة المنسدلة دور ثان فقط بدون له او لها واستخدام الكود التالي Sub Filter_and_copy_with_condition() Dim d, j Dim Search As Range, clé As String, IRow As Long Dim WS As Worksheet: Set WS = Worksheets("control4") Dim F As Worksheet: Set F = Worksheets("saad") d = 9: j = 16: clé = "*" & F.[k1] IRow = WS.Range("U:U").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row With Application .Calculation = xlManual .ScreenUpdating = False If Len([k1].Value) = 0 Then: Exit Sub Set Search = WS.Range("U16:U" & IRow).Find(clé, LookIn:=xlValues, lookat:=xlWhole) If Search Is Nothing Then MsgBox clé & " " & "غير موجود", vbExclamation, "Admin": Exit Sub F.Range("C10:O" & Rows.Count).ClearContents Do Until IsEmpty(WS.Range("U" & j)) If WS.Range("U" & j) Like clé Then d = d + 1 F.Cells(d, 3).Value = WS.Cells(j, 3).Value F.Cells(d, 5).Value = WS.Cells(j, 5).Value F.Cells(d, 6).Value = WS.Cells(j, 6).Value F.Cells(d, 8).Value = WS.Cells(j, 10).Value F.Cells(d, 10).Value = WS.Cells(j, 12).Value F.Cells(d, 11).Value = WS.Cells(j, 13).Value F.Cells(d, 12).Value = WS.Cells(j, 16).Value F.Cells(d, 13).Value = WS.Cells(j, 17).Value F.Cells(d, 14).Value = WS.Cells(j, 18).Value F.Cells(d, 15).Value = WS.Cells(j, 21).Value End If j = j + 1 Loop .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub مصطفي V3.xlsb

لا ابخل على منتدانا وأخواني والأساتذة أبداً .. آن الأوان يا صديقي 😁😂 الملف مفتوح المصدر ، فقط الدعاء لوالديّ Smart Alarm.zip باب الحوار مفتوح للمناقشة ، والضيافة عند الأستاذ @Moosak

جميل جداً .. وبعد أذن أخي الكريم @alaa aboul-ela =DCount("[ID]","Table1")

جرب ده كده DCount("id", "tabel1" dcount.rar

وعليكم السلام، وأهلا بك @محمد التميمي أود لفت انتباهك إلى أمرين يتعلقان بطلبك !. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد !. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد لا تكون هي المطلوبة! ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...