كل الانشطه

بارك الله فيك أستاذ وجزاك الله خيرا

انا كل الي عايزه ثلاث اشياء البحث عن موظف و اضافة بياناته بعد البحث عند اضافة الاجازة تظهر الاجازات الخاصة كلها الحاصل عليها 2025.xlsx

ايه حل المشكله

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

وعليكم السلام ورحمة الله تعالى وبركاته إضافة عمود في الليست بوكس أوفيسنا 2.xlsm

#دورات_2025_2026 #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى السياحة وإدارة الفنادق التى سوف تعقد خلال العام 2025 &2026 يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو - الاسكندرية …………………………… دورة إدارة المطاعم والمقاهي والكافيهات دورة ادارة الفنادق ودور الضيافة دورة نظام تحليل المخاطر وتحديد النقاط الحرجة (الهاسب) HACCP دورة سلامة الغذاء طبقا لمواصفة الايزو 22000:2018 دورة فن خدمة المطاعم دورة الإشراف الداخلي فى الفنادق والمطاعم دورة اعداد وتأهيل الشيف المحترف للعمل في المطاعم والفنادق دورة ادارة مكاتب الاستقبال في الفنادق دورة التأهيل لوظيفة الاستيوارد بالمطاعم والفنادق دورة الممارسات الصحية الجيدة في مجال صناعة الغذاء Mini MBAدورة في الادارة الفندقية دورة ادارة الاغذية والمشروبات دورة إدارة المؤتمرات والحفلات في صناعة الفنادق دورةاعداد مسئول ادارة فعاليات معتمد CSEP دورة القيادة الإدارية في مجال الضيافة والخدمات الفندقية دورة اللغة الانجليزية في مجال السياحة والفنادق - English for Tourism دورة الشئون الصحية فى المنشآت الفندقية وجودة سلامة الغذاء دورة استلام وتخزين الخامات الغذائية فى الفنادق والمطاعم دورة إدارة المطابخ الفندقية دورة مراقبة تكاليف الأغذية والمشروبات دورة تأهيل موظفي الكونسيرج Concierge في الفنادق دورة محاسبة الفنادق وشركات السياحة والسفر دورة تدريبية في إتيكيت وبروتوكول فن الخدمة في المطاعم دورة اعداد دراسة الجدوى للمشروعات الفندقية دورة تأهيل المرشدين السياحيين دورة إدارة المبيعات في الفنادق وشركات الضيافة دورة المبادئ الأساسية لنظام سلامة الأغذية BRC دورة المهارات المتقدمة لعامل البوفيه - Office Boy دورة المدير المناوب المحترف في الفنادق والمنتجعات دورة تسويق الخدمات الفندقية دورة البحث والتطوير في الأغذية والمشروبات في الفنادق والمطاعم دورة ادارة وتشغيل المطابخ السحابية - Cloud Kitchen دورة الاستدامة البيئية في مجال الفنادق والمطاعم دورة الحوكمة في الفنادق والمطاعم ومؤسسات الضيافة دورة إعداد دليل التشغيل للمطاعم والمقاهي دورة الممارسات الصحية في مستودعات المواد الغذائية دورة كبير المراجعين - Lead Auditor ISO-22000 دورة فهم ربح وخسارة تقسيم الغرف دورة استراتيجيات تسويق المطاعم :كيفية جذب الزبائن وتعزيز العلامة التجارية دورة التحليل المالي للفنادق : مهارات تحليل البيانات لاتخاذ قرارات استراتيجية دورة السياحة الصحية : نماذج وتوجهات جديدة فى الصناعة دورة إدارة الجودة فى الفنادق ضمان رضا الضيوف دورة السياحة الرقمية كيفية استخدام وسائل التواصل الاجتماعي دورة إدارة الوجهات السياحية التخطيط والتطوير دورة تصميم التجربة السياحية من الفكرة الى التنفيذ دورة تطوير المهارات القيادية فى صناعة الضيافة دورة التسويق الالكتروني للخدمات الفندقية والسياحية دورة إدارة الازمات فى السياحة مهارات التعامل مع التحديات دورة السياحة الثقافية استكشاف التراث وتعزيزه دورة إدارة مبيعات الفنادق استراتيجيات لتحقيق أعلى العوائد دورة إدارة الموارد البشرية فى صناعة السياحة دورة تجربة الضيف كيفية تقديم خدمة استثنائية دورة إدارة الفعاليات تنظيم مؤتمرات واحتفالات ناجحة دورة أساسيات إدارة الفنادق من الاستقبال الى الإدارة العامة دورة تكنولوجيا الضيافة استخدام الابتكار لتحسين الخدمة للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات هندسة التعدين والتنقيب - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام

تحية طيبة متجددة أخي @Foksh بعد التجريب في قاعدتي الخلصة المشكلة في المعدل العام أنا جاعل نوع النتيجة تكون مزدوج 😞 فيظهر الخطأ كما في الصورة) لكن لما أحول المعدل العام : إلى عدد صحيح . يشتغل عادي وبدون مشاكل وأنا في قاعدتي الخاصة المعدل العام : لازم تكون مزدوج (يكون بالفاصلة ) ولايمكنني تحويل المعدل العام :إلى عدد صحيح في قاعدتي الخاصة ان شاء الله يكون عندك حل لهذا المشكل وبارك الله فيك

في حاجة صغيرة عايز اظبطها عند وضع رقم الجلوس والسري للدور الثاني أجد رقم الجلوس والسري لنفس التلاميذ اتغير في الفصل الدراسي الأول والثاني بمعني لو طالب أخد رقم جلوس 50 في الفصل الدراسي الأول والثاني ولديه مادة رسوب وقمت بوضع جلوس جديد ورقم سري جديد له في الدور الثاني مثلا 10 عند الرجوع للفصل الدراسي الأول والثاني أجد رقم جلوسه اتغير 10 ارجو الافادة

شكرا جزيلا أخي الفاضل وبارك الله فيك

وعليكم السلام ورحمة الله وبركاته 🤗.. كفكرة ، قم بإنشاء تقرير يجلب الصور من مساراتها ، ثم قم بتصدير التقرير إلى ملف PDF . أعتقد هذا أنسب حل لك 😉 . أتابع من الجوال

بارك الله فيك وجزاك الله خير

السبب هو في خصائص مادة الدين هي الوحيدة بين المواد التي تدخل في النجاح ولا تدخل في المجموع لذا انظر في استعلام qry_Temp_term3 افتحه على التصميم وامسح المعيار true من عمود الخاص بالداخل بالمجموع ( تم تحديده في الصورة )

السلام عليكم اصدقائي الغالين ورحمة الله وبركاته طلبي هو دمج مجموعة صور في ملف Pdf بحيث عندي مجلد اسمه A1 فيه مجموعة صور اريد دمجها في ملف Pdf وخزنها في مجلد ثاني اسمه A2 وهذا برنامج عينة بسيط لغرض العمل عليه مع فائق الشكر والتقدير لكم جميعا Prog10.rar

نموذج خاص لمشروعك @منتصر الانسي ☕🌹❤️ لعمل زر انهاء واغلاق هذا الكود 1- الغاء الكود Private Sub Form_Unload(Cancel As Integer) ' ' منع إغلاق النموذج ' Cancel = True ' HandleCloseAttempt End Sub 2- تعديل كود زر اغلاق وانهاء كما موضع بسطر الكود في المرفق ' تعطيل إمكانية الإغلاق عند التحميل SetAccessCloseAbility False ' تفعيل إمكانية الإغلاق عند التحميل SetAccessCloseAbility True Private Sub Run_Click() On Error GoTo Qut SetAccessCloseAbility True Dim frmXrpt As Integer Dim frmX As Integer Dim rptX As Integer For frmXrpt = 1 To 1 For frmX = 0 To Forms.count - 1 DoCmd.close acForm, Forms(0).name Next frmX For rptX = 0 To Reports.count - 1 DoCmd.close acReport, Reports(0).name Next rptX Next frmXrpt 'DoCmd.Quit acQuitSaveAll SafeExit Exit Sub Qut: MsgBox err.Description End Sub =============================================== :نستفيد من اخفاء الملفات بطريقة المتاهات تذكرة لعبة المتاهات كان عند @Foksh مشكلة ما قدر يحلها المهم توضيح 1- قاعدة فارغة لتشغيل القاعدة واغلاق لماذا بسبب ان اختصار سطح المكتب يعرف فيه مكان قاعدة التشغيل 2- اجعل مجلد القاعدة الفارغه هو اختصار سطح المكتب وعند مجلده اضافة ملفات برقة بيضاء شكلا ووهم ان هذه هي القاعدة دالة التشفير وفك التفير تزيد امان مع تفعيل غفل القواعد بكلمة مرور ودالة العكس والمعالجه المهم جرب طريقة بتشغيل اختصار وهمي On Error GoTo ErrorHandler Dim folderPath As String Dim result As Long Dim fs As String fs = Application.CurrentProject.Path ' تنظيف المسار من أي فواصل أو مسافات زائدة '==================( من غير حقل مفقط مسار قاعدة folderPath = Trim(fs) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' التحقق من وجود المجلد If Dir(folderPath, vbDirectory) = "" Then MsgBox "المجلد غير موجود!", vbExclamation, "خطأ" Exit Sub End If ' إخفاء المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_HIDDEN) If result <> 0 Then Me.lblStatus.Caption = "تم إخفاء المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إخفاء المجلد!" Me.lblStatus.ForeColor = vbRed End If Exit Sub ErrorHandler: Me.lblStatus.Caption = "حدث خطأ: " & err.Description Me.lblStatus.ForeColor = vbRed واذا كان الاستخدام لمفات تتعلق بنظام او القاعدة تكتب سطر سطر من غير & Run من غير جدول من غير حقول Dim Path_X0 As String Dim Path_X1 As String Dim Path_X2 As String Dim Path_X3 As String Dim Path_X4 As String Dim Path_X5 As String Dim Path_X6 As String Dim Path_X8 As String Dim Path_X9 As String Dim Path_X10 As String Dim Path_X11 As String Dim Path_X12 As String Dim Path_X13 As String Dim Path_X14 As String Dim Path_X15 As String Dim Path_X16 As String Dim Path_X17 As String Dim Path_X18 As String Dim Path_X19 As String Dim Path_X20 As String Dim Path_X21 As String Dim Path_X22 As String Dim Path_X23 As String Dim Path_X24 As String Dim Path_X25 As String Dim Path_X26 As String Dim Path_X27 As String Dim Path_X28 As String Dim Path_X29 As String Dim Path_X30 As String Dim Path_X31 As String Dim Path_X32 As String Dim Path_X33 As String Dim Path_X35 As String Dim Path_X36 As String Dim Path_X37 As String Dim Path_X38 As String Dim Path_X39 As String Dim Path_X40 As String Dim Path_X41 As String ' On Error GoTo ErrorHandler Dim folderPath As String Dim result As Long Dim Run As Integer Path_X0 = Application.CurrentProject.Path & "\DDB_Control" Path_X1 = Application.CurrentProject.Path & "\IMG_Company" Path_X2 = Application.CurrentProject.Path & "\IMG_Company_ReP" Path_X3 = Application.CurrentProject.Path & "\IMG_Wallpaper_backgreound" Path_X4 = Application.CurrentProject.Path & "\App_IMG_Wallpaper_backgreound" Path_X5 = Application.CurrentProject.Path & "\IMG_Editor_Menu" Path_X6 = Application.CurrentProject.Path & "\Cantry_IMG" Path_X7 = Application.CurrentProject.Path & "\fonts" Path_X8 = Application.CurrentProject.Path & "\Icon_Button" Path_X9 = Application.CurrentProject.Path & "\Icon_Msgbox" Path_X10 = Application.CurrentProject.Path & "\Sound" Path_X11 = Application.CurrentProject.Path & "\Wallpaper" Path_X12 = Application.CurrentProject.Path & "\Video" Path_X13 = Application.CurrentProject.Path & "\db_BE" Path_X14 = Application.CurrentProject.Path & "\ExE" Path_X15 = Application.CurrentProject.Path & "\IMG_Report" Path_X16 = Application.CurrentProject.Path & "\File_word" Path_X17 = Application.CurrentProject.Path & "\File_Excel" Path_X18 = Application.CurrentProject.Path & "\Book" Path_X19 = Application.CurrentProject.Path & "\File_PowerPoint" Path_X20 = Application.CurrentProject.Path & "\File_Text" Path_X21 = Application.CurrentProject.Path & "\File_Code" Path_X22 = Application.CurrentProject.Path & "\All_InFile_One_Zip_Rar" Path_X23 = Application.CurrentProject.Path & "\ICOn" Path_X24 = Application.CurrentProject.Path & "\Icon_bar_DB" Path_X25 = Application.CurrentProject.Path & "\Icon_bar_Form_Report" Path_X26 = Application.CurrentProject.Path & "\Icon_Button" Path_X27 = Application.CurrentProject.Path & "\icon_Gif" Path_X28 = Application.CurrentProject.Path & "\Icon_Msgbox" Path_X29 = Application.CurrentProject.Path & "\LinkedDB_Backups" Path_X30 = Application.CurrentProject.Path & "\Office_Video" Path_X31 = Application.CurrentProject.Path & "\Qr" Path_X32 = Application.CurrentProject.Path & "\QR_User" Path_X33 = Application.CurrentProject.Path & "\Resources" Path_X34 = Application.CurrentProject.Path & "\World_Cantry" Path_X35 = Application.CurrentProject.Path & "\Gif_IMG" Path_X36 = Application.CurrentProject.Path & "\Fix_Photo" Path_X37 = Application.CurrentProject.Path & "\db_db_db_test_link" Path_X38 = Application.CurrentProject.Path & "\Corrupted_DBs" Path_X39 = Application.CurrentProject.Path & "\Corrupted_Archives" Path_X40 = Application.CurrentProject.Path & "\Change_Dy_Time_All_Table" Path_X41 = Application.CurrentProject.Path & "\Add Fonts.bmp" For Run = 0 To 40 If Run = 0 Then ' تنظيف المسار folderPath = Trim(Path_X0) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 1 Then ' تنظيف المسار folderPath = Trim(Path_X1) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 2 Then ' تنظيف المسار folderPath = Trim(Path_X2) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 3 Then ' تنظيف المسار folderPath = Trim(Path_X3) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 4 Then ' تنظيف المسار folderPath = Trim(Path_X4) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 5 Then ' تنظيف المسار folderPath = Trim(Path_X5) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 6 Then ' تنظيف المسار folderPath = Trim(Path_X6) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 7 Then ' تنظيف المسار folderPath = Trim(Path_X7) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 8 Then ' تنظيف المسار folderPath = Trim(Path_X8) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 9 Then ' تنظيف المسار folderPath = Trim(Path_X9) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 10 Then ' تنظيف المسار folderPath = Trim(Path_X10) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 11 Then ' تنظيف المسار folderPath = Trim(Path_X11) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 12 Then ' تنظيف المسار folderPath = Trim(Path_X12) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 13 Then ' تنظيف المسار folderPath = Trim(Path_X13) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 14 Then ' تنظيف المسار folderPath = Trim(Path_X14) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 15 Then ' تنظيف المسار folderPath = Trim(Path_X15) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 16 Then ' تنظيف المسار folderPath = Trim(Path_X16) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 17 Then ' تنظيف المسار folderPath = Trim(Path_X17) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 18 Then ' تنظيف المسار folderPath = Trim(Path_X18) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 19 Then ' تنظيف المسار folderPath = Trim(Path_X19) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 20 Then ' تنظيف المسار folderPath = Trim(Path_X20) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 21 Then ' تنظيف المسار folderPath = Trim(Path_X21) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 22 Then ' تنظيف المسار folderPath = Trim(Path_X22) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 23 Then ' تنظيف المسار folderPath = Trim(Path_X23) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 24 Then ' تنظيف المسار folderPath = Trim(Path_X24) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 25 Then ' تنظيف المسار folderPath = Trim(Path_X25) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 26 Then ' تنظيف المسار folderPath = Trim(Path_X26) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 27 Then ' تنظيف المسار folderPath = Trim(Path_X27) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 28 Then ' تنظيف المسار folderPath = Trim(Path_X28) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 29 Then ' تنظيف المسار folderPath = Trim(Path_X29) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 30 Then ' تنظيف المسار folderPath = Trim(Path_X30) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 31 Then ' تنظيف المسار folderPath = Trim(Path_X31) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 32 Then ' تنظيف المسار folderPath = Trim(Path_X32) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 33 Then ' تنظيف المسار folderPath = Trim(Path_X33) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 34 Then ' تنظيف المسار folderPath = Trim(Path_X34) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 35 Then ' تنظيف المسار folderPath = Trim(Path_X35) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 36 Then ' تنظيف المسار folderPath = Trim(Path_X36) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 37 Then ' تنظيف المسار folderPath = Trim(Path_X37) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 38 Then ' تنظيف المسار folderPath = Trim(Path_X38) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 39 Then ' تنظيف المسار folderPath = Trim(Path_X39) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 40 Then ' تنظيف المسار folderPath = Trim(Path_X40) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 41 Then ' تنظيف المسار folderPath = Trim(Path_X41) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If Next Exit Sub ErrorHandler: Me.lblStatus.Caption = "حدث خطأ: " & err.Description Me.lblStatus.ForeColor = vbRed End Sub ما رايك في الفكرة 😇 @منتصر الانسي

أخي الفاضل ( أبو خليل ) بعد سلام الله عليكم ورحمة الله وبركاته لعلك والأخوة الكرام بصحة وعافية في الملف المرفق الذي أسسته بكرمك وفضلك وعلمك زاد الله ( من علمك ) في نتيجة الدور الثاني بالصف الثالث طبعا حضرتك علي علم بأن من شروط النجاح حصول الطالب علي 50 % من الدرجة فيه طالب عنده دين من مواد الرسوب من الترم الثاني وفي الدور الثاني حصل علي 50 % من الدرجة ولكن هذه الطالب لم يظهر في النتيجة علي اعتبار انه ناجح الطالب اسمه ( ابراهيم محمد ابراهيم حسن ) عايز اعرف ايه السبب ؟ Data129.rar

السلام عليكم اخي @منتصر الانسي هل لازالت المشاركات بينك وبين @hanan_ms تخص هذا الموضوع؟ تأمين التطبيق ، Taskbar ، اخفاء المجلد ، حفظ علاقات الجدول ، هذه المواضيع لا علاقة لها بالموضوع!! سيتم فصل هذه المشاركات الى موضوع جديد

وعليكم السلام متابع 🖐️

السلام عليكم ورحمة الله اخواني الكرام أطلب منكم مساعدة في اظهار 4 أعمدة في الليست بوكس عندما أبحث عن اللقب ويكون مكرر أريد اظهار الإسم وشكرا إضافة عمود في الليست بوكس أوفيسنا.xlsm

لكم مني كل الشكر والتقدير والاحترام

اممممممممم .. طيب جرب هذا التعديل ؟ الإستعلام الأصلي السابق ، وفي حدث في الحالي تعيين قيمة مربع النص الخاص بالترتيب .. baseC5.zip

بعد التجربة أخي الاستعلام يشتغل جيدا فيما يخص : حساب ترتيب الطالب وكذا حساب مجموع الطلاب في النموذج لكن لا يمكن التعديل على علامات الطلاب في النموذج - إذا ما كان خطأ ما. و بارك الله فيك

بالطبع اخي الكريم كلا ، هذا استعلام فرعي داخل استعلام رئيسي المرفق للتوضيح أكثر baseC4.zip

إليك برنامج مجاني موجود على النت لو يصلح معك اجازات الموظفين - Copy.xlsm

السلام عليكم أخي @Foksh مشكور جدا على هذا الرد هل أجعل هذا الاستعلام كمصدر للسجلات في النموذج frm_modul و هل غيرت اسم الجولين

وعليكم السلام ورحمة الله وبركاته ,, هذا يعني انه يمكن ان يكون المعيار مختلفاً !!!! طيب ، أمامك حلين اثنين في الوقت الحالي .. الأول من خلال معادلات مع الإستعانة بخلية ( عمود مساعد ) . وسيكون الحل كالآتي :- سنجعل المعايير متغيره بحيث يتم ادخال عدد الذكور والإناث وعدد القاعات في الخلايا ( i5 , j5 , h5 ) في الخلية المساعدة ولنفترض E2 ، نستعمل هذه المعادلة :- =IF(D2="M", COUNTIF($D$2:D2,"M"), COUNTIF($D$2:D2,"F")) طبعاً ، وسنسحب المعادلة الى آآآخر خلية للتنفيذ عليها . ولا مشكلة لو تم اخفائها على سبيل المثال . الآن في العمود C والخلية C2 نستخدم هذه المعادلة :- =IF(D2="M", "قاعة " & CEILING(E2/$I$5,1), "قاعة " & CEILING(E2/$J$5,1)) الثاني من خلال الماكرو التالي :- Sub DistributeStudentsToRooms() Dim ws As Worksheet Dim lastRow As Long, i As Long Dim totalRooms As Integer, malesPerRoom As Integer, femalesPerRoom As Integer Dim maleCount As Integer, femaleCount As Integer Dim roomAssignment As Integer Dim roomCounters() As Integer Dim gender As String Set ws = ThisWorkbook.Sheets("ورقة1") totalRooms = ws.Range("H5").Value malesPerRoom = ws.Range("I5").Value femalesPerRoom = ws.Range("J5").Value ReDim roomCounters(1 To totalRooms, 1 To 2) lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ws.Range("C2:C" & lastRow).ClearContents For i = 2 To lastRow gender = ws.Cells(i, "D").Value For roomAssignment = 1 To totalRooms If gender = "M" Then If roomCounters(roomAssignment, 1) < malesPerRoom Then roomCounters(roomAssignment, 1) = roomCounters(roomAssignment, 1) + 1 Exit For End If Else If roomCounters(roomAssignment, 2) < femalesPerRoom Then roomCounters(roomAssignment, 2) = roomCounters(roomAssignment, 2) + 1 Exit For End If End If If roomAssignment = totalRooms Then roomAssignment = 0 Next roomAssignment ws.Cells(i, "C").Value = "قاعة " & roomAssignment Next i MsgBox "تم توزيع الطلاب على القاعات بنجاح", vbInformation + vbMsgBoxRight, "" End Sub وهذا ملف مرفق للطريقتين :- Desktop.zip