كل الانشطه

اغلق قاعدة البيانات التي ارفقها معلمي أبو خليل ، وانقر زر يمين بالماوس عليها واختر آخر أمر = خصائص = وعلى الأغلب ستجد في مكان المستطيل الأحمر الموضح في الصورة أدناه خيار ثالث = Unblock ، فقط قم بالتعليم عليه ، ثم انقر موافق

بارك الله فيك معلمنا الفاضل على هذه المعلومة التي قد يكون الكثيرين ومن بينهم أخوك الصغير الي لا يعلمها فعلاً ، وقد اكون لم أستخدمها ابداً في تطبيقاتي ... شكراً لك مراراً وتكراراً على هذه المدرسة التي نتعلم منها الكثير دائماً

شكرا أخي الفاضل تفضل المرفق زر نموذج اعداد السري والجلوس في الفورم عند فتح الملفData122.rar

والله ياغالي جميع المحاولات لم تنجح

امان الماكرو عالي عندك خفض أمان الماكرو

للأسف البرنامج مايفتح والأكواد ما اشتغلت

يمكن استيراد درجات الطلاب عند تحقق شروط في المصنف وهي وجود هذه الحقول ضمن المصنف في سطر واحد : 1- معرف الطالب ... واعتقد عندكم في العراق يعتمد الرقم الموحد او الرقم الاحصائي 2- المرحلة 3- المادة 4- الفترة ( الاول /المنتصف/الثاني / المعدل/ درجة الاختبار ) 5- الدرجة ( بالضبط كما هو الحال في جدول الدرجات الموجود في مثالنا )

عليكم السلام سبق وان عملنا هذا للاختبارات الفصلية لو ارفقته قد نتمكن من التعديل عليه ليخدم الدور الثاني بدلا من تكرار النماذج وتزاحمها في مشروعك

تفضل ‏‏القرآن 4 .rar

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

بعد اذن اخي @Foksh مشكلتك الأساسية في العلاقات .. لأنك تتعامل مع 3 جداول تم ضبط العلاقات بين الجداول وايضا تم معالجة الصفحات الخالية في التقرير بدون اكواد .. الحقيقة لم افهم طريقة عملك في البرنامج لذا اخترت مريضة اسمها ( كنز ) واكملت بياناتها عشوائيا في الجدول جرب ووفنا بالنتيجة . JO 2026_new.rar

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

السلام عليكم ورحمة الله وبركاته حبيبي عندي استفسار بسيط مستعجل جدا بخصوص برنامج القرآن الكريم *فيه أزرار أمر لفتح كل سورة لوحدها حسب الطلب* *عند تنفيذ الكود يفتح النموذج فارغا* عند فتح النموذج كاملا بزر أمر مستقل يفتح عادي بدون أي مشكلة.

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

وإياكم مثلما دعيتم وأكثر في هذا اليوم الطيب .. العفو يا صديقي ..

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

الخبير الفاضل الذى لايبخل بعلمة على احد قمت بعمل بموذج لادخال بيانات مريض جديد او اضافة تحاليل لمريض قديم ممكن حضرتك تضغط على مفتاح اضغط هنا الموجود بالنموذج وتخنار تحليل معين سيظهر امامك اسماء الاشخاص اللى لهم هذا التحليل اليك نسخة جديدة من البرنامج بعد اضافة نموذج الادخال JO 2025_new.rar

وعليكم السلام ورحمة الله تعالى وبركاته بعد معاينة آخر مشاركاتك على المنتدى إليك الكود ليتوافق مع جميع الإصدارات سواءا 32bit أو 64bit جرب هدا ربما يناسبك Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If Private Const Style As Long = -16 Private Const Menu As Long = &H80000 Private Const MIN As Long = &H20000 Private Const MAX As Long = &H10000 Private Sub UserForm_Activate() Dim xForm As LongPtr, tmps As Long xForm = FindWindow("ThunderDFrame", Me.Caption) If xForm <> 0 Then tmps = GetWindowLong(xForm, Style) tmps = tmps Or Menu Or MIN Or MAX SetWindowLong xForm, Style, tmps DrawMenuBar xForm End If End Sub TEST Minimize.xlsb

تحسينات جديدة ، وإضافات جديدة في التحديث الجديد لجعل المشروع كاملاً متكاملاً

وإياكم أخي الكريم .. شكراً لك

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

جزاك الله كل الخير وجعله في ميزان حسناتك

شكرا لك أخي الكريم وبارك الله فيك وأكثر الله من أمثالك وزادك الله من علمه وشكرا جزيلا لأخي الفاضل وصديقي المخلص ( fokash )

أخي @algammal بما أننا اعتمدنا على العمل الديناميكي أثناء التعامل مع الملف أود أن أشاركك طريقة أخرى أكثر ديناميكية لإنشاء الأزرار الخاصة بالتنقل بين الأوراق دون الحاجة إلى نسخ الارتباطات من ورقة معاشات يتم إنشاء زر لكل ورقة عمل في المصنف بشكل تلقائي - استثناء الورقة التي يشير إليها الزر أي لا يضاف زر داخل نفس الورقة - تلوين الزر بنفس لون تبويب الورقة التي يشير إليها الزر لسهولة التعرف والتمييز البصري ربط الزر بكود التنقل GotoSheet الموضح أدناه مما يتيح الانتقال بين أوراق العمل المقصودة دون الإعتماد على أي إرتباط تشعبي Sub GotoSheet() SetApp False Dim wsName As String wsName = Replace(Application.Caller, "btn_", "") On Error Resume Next ThisWorkbook.Sheets(wsName).Activate On Error GoTo 0 SetApp True End Sub توحيد البحث في شيت واحد v10.xlsb

الصراحة هذا الأمر مهم وأول مرة يمر علي شكراً لك أستاذ @ابوخليل