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

السلام عليكم ورحمة الله بالنسبة للطالب الاول فى الشيت الذى لدى هو راسب فى جميع المواد ومن ضمنها مادة ادارة الاعمال ودرجة هذه المادة صحيحة و لا توجد اخطاء اما ان كنت تقصد الطالب الاول فى شيت الدور الثانى فهو ناجح فى هذه المادة ----- تم تعديل درجة المواطنة و اعتقد ان الخطأ فى هذا لان احدهم قد عبث بالملف و قام بمسح المعادلة فى الشيت الاصلى ----- فعلا كان هناك خطأ بجمع نصف العام بسبب تبديل الاعمدة و تم تدارك الامر ----- كشف النسبة يعمل بامتياز و عندما تقلب الكشف لرقم 2 لن تجد اسماء اخرى لان الكشف الواجد يحتوى على 80 اسم اما مازاد عن ذلك فسيظهر فى الكشوف التالية و للعلم عدد من تجاوزوا نسبة 75% فى هذا الشيت 16 فقط ----- تم تغيير مجموع المادة بحيث اذا كان الطالب غائبا فى امتحان نهاية العام لا يتم جمع المادة بل يكتب فى خانة المجموع "غ" ------ اليكم نسخة من الملف للاطلاع عليه مرة اخرى و ابداء الرأى هذا و الله ولى التوفيق 2086539957_-201999.xlsm

الماكرو لا يعمل بسبب اعدادات اللغة العربية على جهازك الحل الاول : هو تغير اسم شيت قاعدة بيانات الدرجات الى اسم اخر باللغة الانجليزية و كذلك تغير الاسم فى الكود بنفس اسم الشيت الحل الثانى : هو تغير اعدادات جهازك الى اللغة العربية عن طريق 1- Settings 2- Time & Language 3- regional Formatting 4- regional Setting 5- Change date , time or number formats 6- Administrative 7-Change System Local 8- اختيار اللغة العربية و البلد 9- اعادة تشغيل جهاز الكمبيوتر قمت برفع الملف بعد تعديل اسم الشيت باللغة الانجليزية درجات الطلاب.xlsm

اخي عبد الله السعيد تفضل Zeroo.xlsm ان شاء الله يكون المطلوب

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

الغالي @Moosak كل شئ تمام شكراً جزيلاً

you wellcome test1002.rar

تفضل استاذ عمر .. بس التنسيق عليك test1002.rar

ببساطة يا عزيزنا @elghoultk .. تنسخ الدالة ( لكل ليبل الدالة الخاصة به ) .. وتغير اسم الدالة والبيانات اللي فيها حسب المطلوب .. وتحط نداء كل دالة في حدث عند التغيير للعناصر الثلاثة وفي الحالي للنموذج .. أو للخطوة الأخيرة تعمل دالة ثانية أو روتين عام تحط فيها النداءات كلها وبعدين تنادي الروتين مرة وحدة في حدث عند التغيير . إن شاء الله يكون واضح 😁 وبالمثال يتضح المقال 🙂

اخي العزيز استخدم دالة DLOOKUP لجلب القيمة للنموذج الفرعي مع معرفة القيمة هل رقم ام نص او تاريخ رقم DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) نص DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") تاريخ DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#")

لا اعلم مالذي تريده بالضبط..لكن هذا على سبيل المثال Private Sub Combo0_Click() Me.Text1= [Combo0].[Text] End Sub

اخي عبد الله السعيد بألفعل موجود داخل الملف المرسل سابقاً ... تفضل مع الشرح Sub طباعه_دون_فراغ() Application.ScreenUpdating = False Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز ActiveSheet.PageSetup.PrintArea = "a1:L200" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("P1:P200").AutoFilter 'هنا اظهار بعد التنفيز Application.ScreenUpdating = True End Sub

السلام عليكم .. تفضل اخى الكريم درجات الطلاب.xlsm

اخي ahmed88872 هذا الشرح الموجود داخل ملفك اريد ان يتم ترحيل التلاميذ اتوماتيك وجزاكم الله خيرا شرح غير كامل اولاً يجب عليك الاجابه علي الاتي 1:الي اي ورقة تريد الترحيل 2: ما هو الشرط الذي اذا تحقق يتم الترحيل وفي اي خلية يكن موجود الشرط جزاك الله خيراً

تفضل أخي تم التعديل .. الحل يكمن في أنه عليك ضبط عنوان القائمة المنسدلة في الاستعلام بالعنوان الجديد بعدما أصبح النموذج FORM_G كنموذج فرعي لنموذج التنقل .. وهذا هو العنوان الجديد الذي تم تعديله : [FORMS]![نموذج_التنقل]![z].[Form]![حقل 70] الملف بعد التعديل : Service.accdb

تفضل أخي .. تضع هذه المعادلة في محرر الأكواد : Private Function LableValue() As String If Me.age >= 13 And Me.age <= 150 And Me.Age2 = "YEARS" And Me.gender = "male" Then LableValue = "( 17- 13)" End If If Me.age >= 13 And Me.age <= 150 And Me.Age2 = "YEARS" And Me.gender = "female" Then LableValue = "( 16- 12)" End If If Me.age >= 2 And Me.age <= 12 And Me.Age2 = "YEARS" Then LableValue = "( 15- 11.5)" End If End Function ثم تضع جملة النداء لها بعد تحديث الحقول الثلاثة وكذلك في حدث الحالي لنموذج بهذه الطريقة : Private Sub age_AfterUpdate() Me.Label3.Caption = LableValue End Sub Private Sub Form_Current() Me.Label3.Caption = LableValue End Sub Private Sub gender_AfterUpdate() Me.Label3.Caption = LableValue End Sub Private Sub Text6_AfterUpdate() Me.Label3.Caption = LableValue End Sub وهذا هو المرفق بعد التطبيق : تحديث الليبل.accdb

I will leave the explanation of the code to someone who can understand vba codes as I will not be able to explain in Arabic

السلام عليكم ورحمة الله تم اصلاح مواد الرسوب و الدور الثانى تم اصلاح شهادة نصف العام و كشف الراسبين ترتيب الاوائل لنصف او آخر العام موجود بالفعل تعمل بكفاءة تعذر عمل تفرقة بين البنين و البنات فى مسألة ناجح - ناجحة -راسب - راسبة وذلك لعدم وجود عمود النوع (بنين - بنات) و ذلك لصعوبة اضافة عمود جديد للنوع مما يستلزم اصلاح جميع الاكواد هذا و الله ولى التوفيق 1865372352_-201999.xlsm

اذا كان مصدر بيانات الحقل a من مربع التحرير b فلايسمح لك بالتغيير في a اجعل الحقل a غير مرتبط .. واجعل بياناته تستمد من خلال حدث النقر في مربع التحرير وبهذا يسمح لك بالتغيير

وعليكم السلام ورحمة الله محاولة في الملف المرفق.... ملف لاوفيسينا.xlsx

يومين ان شاء الله وانزل الموضوع لأن فيه تفاصيل كتير

مع ان هذا يُعتبر مخالف لقوانين المنتدى: 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. ولكننا سننظر له على ان نتائج هذه المساعدة سوف تستفيد منها في تنقيح برنامجك ، وستلخص لنا النتيجة هنا ، حتى يستفيد الجميع من ذلك 🙂 جعفر

جزاك الله خير على العمل الرائع

السلام عليكم ,, الاخوة الافاضل , موضوعنا اليوم فى نطاق الاستعلامات وكما بالعنوان سوف نتطرق الى الاستعلامات الفرعية وطريقة استخدامها وامثلة عملية عليها واستخدامها كمعايير فى الاستعلامات الرئيسية. وسأقوم باستخدام النصوص فى الجزء الاغلب من الشرح تطبيقا لطلب استاذنا ابو خليل . بالنسبة للمبتدئين امثالى توضيح بسيط : ماهى المعايير ؟ المعايير هى شرط او اكثر بناءً عليه يتم استدعاء البيانات من الجداول وفى الرابط التالى الكثير من المعلومات والامثلة لكافة انواع الحقول (نص - رقمى - وقت وتاريخ الخ...) https://support.microsoft.com/en-us/office/examples-of-query-criteria-3197228c-8684-4552-ac03-aba746fb29d8 نعود لموضوعنا الاستعلامات الفرعية SubQueries , ماهى ؟ كما يوجد نموذج فرعى وتقرير فرعى هناك استعلام فرعى يتم استخدامه داخل الاستعلامات الاساسية بهدف الحصول على نتيجة يصعب الحصول عليها بالطرق العادية , ولها الكثير من الانواع سأتطرق لما استخدمته فعلياً حتى الآن ونأمل ان احد الاساتذة يثرى الموضوع بمشاركات اخرى لتطبيقات عملية أخرى . جملة الSQL : بالنسبة لطريقة كتابتها لا تختلف كثيرا عن كتابة الاستعلام العادى ويمكن كتابتها بسهولة عن طريق انشاء استعلام بالطريقة العادية ونسخ جملة الSQL الخاصة به مع تطبيق بعض الملاحظات التى سيتم ذكرها فى الامثلة التالية . نبدأ بالمثال الأول : على افتراض ان عندى مجموعة البيانات التالية مجموعة من المنتجات واسعارها : Product UnitPrice Banana $1.00 Choclate$5.00 Juice $3.00 Mango $7.00 Milk $4.00 Water $3.75 وأريد ان اعرف ماهى المنتجات التى تتساوى فى السعر او سعرها اقل من سعر منتج Milk , فى الطريقة العادية سيتم وضع معيار تحت حقل السعر ويكتب فيه <=4 وهو سعر المنتج , ماذا لو لم تعرف سعر المنتج الحالى او السعر يتغير باستمرار ويصعب تتبع التغييرات بالتالى يمكن عمل استعلام يقوم بالحصول على سعر المنتج المطلوب وبالتالى فى حالة تغير السعر نتيجة الاستعلام تتغير معه دون تدخل منك , انظر الى الاستعلام التالى: SELECT TblProducts.Product, TblProducts.UnitPrice FROM TblProducts; هذا استعلام اساسى يقوم باستدعاء المنتجات واسعارها بدون معايير , الق نظرة على الاستعلام التالى : SELECT TblProducts.Product, TblProducts.UnitPrice FROM TblProducts WHERE (((TblProducts.UnitPrice)<=(SELECT TblProducts.[UnitPrice] FROM TblProducts Where TblProducts.[Product]="Milk"))); وهذه صورته فى وضع التصميم لو تلاحظ تم اضافة معيار تحت السعر عبارة عن استعلام آخر مهمته هوا الحصول على سعر المنتج Milk كما لو انك كتبت بدلا منه <=4 , وبالتالى نتيجته ستكون عرض كافة المنتجات التى سعرها يقل عن او يساوى سعر المنتج Milk انظر الى النتيجة : Product UnitPrice Water $3.75 Juice $3.00 Milk $4.00 Banana $1.00 نلاحظ عرض المنتجات التى يكون سعرها اقل من او يساوى 4 (وهى نتيجة الاستعلام الفرعى) . ملاحظات على الاستعلام : الاستعلام الفرعى يجب ان يكون بين قوسين (). من المعلوم ان اى جملة SQL تنتهى بفاصلة منقوطة ; وهى الطريقة التى تخبر بها قاعدة البيانات بأن الجملة قد انتهت, ولكن لو لاحظت الاستعلام الفرعى لا يحتوى على فاصلة منقوطة بين الاقواس ولكن تكتفى بغلق الجملة الاساسية فقط وليس الفرعية. الاستعلام الفرعى يحضر نتيجة واحدة فقط (على الاقل الاستعلامات التى استخدمتها فعلياً). فى حالة وجود مسافة فى اسم الحقل مثلا Unit Price يجب تضمينه داخل اقواس Brackets []. يتبع فى رد يحتوى على مثال آخر . مرفق قاعدة بها جميع الامثلة المشروحة فى الموضوع ,, نسألكم الدعاء بصلاح الحال . Amr - SubQueries.accdb

السلام عليكم 🙂 كنت ناوي افرد موضوع خاص لهذا الموضوع ، ولكنك ما شاء الله اخوي ابو ابراهيم ابدعت فيه ، فخليني اساهم هنا 🙂 بالاضافة طريقة اخوي ابو ابراهيم ، اليك طريقه انت متعود عليها : 1. هذا مسار قاعدة بيانات الجداول (هذه خطوة مؤقته) ( D:\Documents\Downloads\LINKED DATA\DB1.ACCDB ) : . 2. نعمل استعلام عادي في برنامج الواجهة ، وبدون اختيار اي جداول ، ثم نضع في Source Databasse ، اسم ومسار قاعدة بيانات الجداول (انظر اعلاه) (بدلا عن كلمة Current) : . 3. انقر على زر Show Tables (رقم 2) ، فسترى جداول قاعدة بيانات الجداول : . 4. ونعمل الاستعلام بطريقة عادية ، ونحفظه (كذلك مؤقتا على نعمل النموذج فقط) : . 5. اعمل النموذج المطلوب ، بحيث يكون الاستعلام اعلاه مصدر بياناته: . 6. ثم نحول الاستعلام الى وضع SQL . 7. ونحصل على الجملة التالية : . 8. ثم نضع هذه الجملة في السطر الذي وضعه اخوي ابو ابراهيم ، في حدث التحميل للنموذج (الجملة كما هي من الاستعلام وبتعديل بسيط) : . 9. نحذف الاستعلام مصدر البيانات ، ونحذف اسم الاستعلام من Record Source (مصدر بيانات) النموذج . 10. وكتعديل اخير حتى يشير الى وجدود قاعدة بيانات الجداول في نفس مجلد برنامج الواجهة (حتى يعمل البرنامج على كل جهاز وبأي مجلد) : . جعفر LINKED DATA_2.zip

مرفق الملفات بدون حماية قاعدة التشغيل Run My App.mdb الحماية من استيراد الكائنات.zip

أستاذ hassan951 أين الضغط على الإعجاب لهذا العمل الرائع الذى توصل وقام بحل مشكلتك وطلبك ؟!!!💙

السلام عليكم على افتراض ان النطاق المطلوب B4:B100 جرب الكود التالي: Sub kh_Replace() Dim ch With Range("B4:B100") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" End With End Sub المرفق 2003 حذف الهمزة والتاء المربوطه.rar