كل الانشطه

هذا باعتبار أن الملف Accdb أو ملف قاعدة بيانات !! لكن الملف هو ملف تنفيذي EXE

ان لم اشغله على جهاز اخر لكن كل برنامج تنفيذي يعتبره الويندوز فايروس لتجاوز التحذير عند التحميل من المتصفح/الشبكة: كليك يمين على ملف .exe ←\leftarrow← Properties (خصائص) ←\leftarrow← ضع علامة صح على Unblock (إلغاء الحظر) في الأسفل ثم OK. قم بتعطيلها الحماية اظن انه سيعمل

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

اعرض الملف أداة شريط التمرير المنزلق Slider المخصصة {سلسلة الأدوات المساعدة المخصصة} اليوم أقدم لكم أداة سيعشقها كل من يحب العمل مع المؤثرات البصرية أو يريد منح المستخدمين حرية التعديل على خصائص عناصر التحكم الأخرى داخل النموذج في وقت التشغيل كتحريكها أو تكبير وتصغير أحجامها وغيرها من الوظائف المشابهة ولا يوجد من يقوم بهذه الوظيفة أفضل من عنصر تحكم شريط التمرير المنزلق أو Slider (والذي لا يوجد له في أكسس إلا عنصر تحكم ActiveX أي أنه يمكن أن يتوقف عن العمل في أي وقت) وكما تعودنا دائماً ستجدون في المرفقات نسخة توضيحية تحتوي على أمثلة عملية مدعمة بالملاحظات والتعليقات التي أرجو قرائتها بتمعن وتركيز بالإضافة إلى القالب الذي سيحتوي على منشئ صيغة الكود والكائنات المطلوبة لتشغيل الأداة أرجو أن تنال الأداة إستحسانكم وفي إنتظار أي ملاحظات أو إستفسارات تحياتي صاحب الملف منتصر الانسي تمت الاضافه 11/07/26 الاقسام قسم الأكسيس  

السلام عليكم ان فكرة انشاء تطبيق شبيه بالاكسيس يقراة قاعدة البيانت فقط امر سهل جدا اما انشاء تطبيق متكامل فهر امر في غاية التعقيد والصعوبة لانك تحتاج الى محرك خاص وهذا لوحده مشكلة ومعقد للغاية ثم التوافق مع الاكسيس وتعديل البيانات او انشاء جداول يقراها المشروع الجديد والاكسيس طبعا اكبر خبير في البرمجة claude5.5 opus رفض الفكرة لانها شبه مستحيلة لان البيانات في اكسيس كالجدول لها تشفيرات خاصة وتعقيدات لها اول وليس لها اخر ومشكلة النماذج الذكاء الصناعي اذا اخذ فكرة انه صعب مثل هذا الفكر تكون صعب للتعامل معه. فلجئت الى gemini 4 argon كان النموذج متحمسا ولكن عندما واجهنا مشاكل لها اول وليس لها اخر وخاصة عند مراجعة عملة بواسطة chatgpt6 و claude5.5opus وتوصيات النماذج المراجعة للعمل ان تبقي البرنامج لقراءة البيانات دون تعديلها فضلا على انشاء جداول جديدة وضعني امام خياران اما الاستمرار على اي حال او انشاء برنامج خاص ممكن ان تستورد بيانات الاكسيس منه طبعا اخترت الاستمرار عل اي حال الان الحمدلله اقول اني اجتزت 35% من المشروع الذي ساطرحه لاحقا على جت هب بعد اكمال مشكلة الجداول ليكون الجميع يشارك به لان استحالة ان اكمله لوحدي احببت ان ارفق لكم نسخة من البرنامج فقط للتجربة في الجداول من اضافة بيانات في انشاء جداول من المشروع وتعبئة بياناتها طبعا ادخال بيانات الى الجدول ما زال متخلف وهو ليس مهم لانه ليس صعبا هو ان تنقر زر new recorf عند اضافة الي سجل للجدول خصوصا وسارفق مقاطع فيديو قصيرة تبين كيفية استخدام المشروع لانه صعب جدا تتعاملوا لانه جديد ومخلبط ليس مهتما مطلقا بالشكل ههه طبعا الشرط ان تنشئ قاعدة بيانات اكسيس فارغة من برنامج الاكسيس لان انشاءه من المشروع له قصة طويلة ومعقدة ولكن لها حل. وقبل ان انشء الفيديوهات اود ان تقولو لي هل تعمل المرفقات ام تطلب ملفات اخرى لكي تعمل لاني لم اجرب على جهاز لغيري bin.rar

جرب التعديلات الاتية في ThisWorkbook ضع الكود التالي Private Sub Workbook_Open() Application.Visible = False UserForm1.Show vbModeless End Sub حتى يظل الفورم ظاهراً فوق أي ملف إكسل آخر تفتحه، أضف الجزئية في اعلي اكواد الفورم #If VBA7 Then Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr #Else Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If Const HWND_TOPMOST = -1 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 قم باضافة هذا الكود للفورم Private Sub UserForm_Initialize() Dim hwnd As LongPtr hwnd = FindWindow("ThunderDFrame", Me.Caption) If hwnd <> 0 Then SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End If End Sub واخيرا في ThisWorkbook ضع الكود التالي Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True ThisWorkbook.Save ThisWorkbook.Close End Sub وكنت سارفق لك رابط لاخينا واستاذنا Foksh به حل للمشكلة ولكن وجدت انك صاحب الطلب نفسه فعدلت عن ذلك وهذا كل ما لدي لجل المشكلة وبالاستعانة ببرامج الذكاء الاصطناعي

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

وعليكم السلام ورحمة الله وبركاته لم توضح لنا ما هي الاكواد التي جربتها ولم تنجح لكي لا تكررها اذا كان السطر Application.Visible = False موجود ضمن الكود فهذا السطر يخفي برنامج إكسل من الجذور، مما يجعل أي ملف إكسل آخر تفتحه مخفياً أو غير قابل للوصول ويمكن استبدالها ThisWorkbook.Windows(1).Visible = False كذلك يكون الفورم vbModeless ضع الكودين في ThisWorkbook Private Sub Workbook_Open() UserForm1.Show vbModeless ThisWorkbook.Windows(1).Visible = False End Sub وع Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub

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

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء ده ملف حاولت مع كلود AI تصميمه ويعني الملف يوفي بالغرض لكن كنت عايز مساعدة حضراتكم في جعل هذا الملف كبرنامج لشئون عاملين فرع_ثقافة_الإدارات_والعاملين.xlsx تقارير خاليه.rar

تمام حضرتك

أنا أفترضت أن الأسماء المطلوب تمييزها غير ثابت ، فيمكن تمييز محمد أو عبدالله أو عمر أو أو ... لذلك عملت مربع نص تكتب فيه الاسم المراد تمييزه هكذا : ولعمل ذلك أتبع الخطوات : وفي حال أن الأسماء ثابته ضع الأسم المطلوب مكان اسم مربع النص وكرر العملية حسب عدد الأسماء المطلوب تمييزها .. InStr(1;[الاسم];"محمد")>0 Database3.accdb

ازاي اعمل تنسيق شرطي بحيث يميز فى حالة احتواء الحقل على كلمات معين يعني فى الملف المرفق عابز لو حقل الاسم يختوي على (محمد و محمود) يتم تميز الحقل Database3.accdb

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

وعليكم السلام ورحمة الله وبركاته انت تستخدم الحرف a لادراج علامة الصح الظاهرة و بخط Marlett عليه تكون المعادلة =SUMPRODUCT(($F$7:$BQ$7)*(F9:BQ9="a")) الملف وبه التطبيق تقويم القراءة الأدائية.xlsm

الاخوة الافاضل أساتذة اعضاء القروب المحترمين السلام عليكم ورحمة الله وبركاته عجزت عن ايجاد الحل لايجاد المجموع في البرنامج حيث يوجد في البرنامج شيت اسمه الاسماء يتكون من 16 بند لتقييم الطلاب وكل بند فيه سلم تقدير من 0 الى 3 والعمود الاخير فيه المجموع وقد وضعت اشارة صح في كل بند حسب تقييم الطالب مثلا الطالب الذي اتقن 16 بندا وضعت له اشارة الصح في التقييم 3 وغيره من الطلاب قد يكون في التقييم 1 او 0 او 2 اريد ان اجمع اشارة الصح لوضع علامة من 48 في المجموع مثلا الطالب الذي وضعت اشارة الصح له في الرقم 2 لجميع البنود فانه يحصل 32 وهكذا اريد المجموع حسب موضع اشارة الصح فقد تكون في التقييم 0 او 1 او 2 او 3 والرنامج مرفق علما ان الدخول الى البرنامج مباشرة دون اسم مستخدم ولا كلمة مرور وكلمة مرور حماية الشيتات هي دارفشيان أرجو مساعدتكم والبرنامج مرفق تقويم القراءة الأدائية.xlsm

وعليكم السلام ورحمة الله وبركاته ، أخي عبدالله .. بداية شكراً لك على المتابعة ، وفعلاً كان الخلل في اسم المدرسة التي ذكرتها . حيث كان اسمها في الورقة Sheet2 = "عمربن الخطاب بالزاوية " ولاحظ الفراغ الموجود في نهاية الاسم . بينما في الورقة الثانية = "عمربن الخطاب بالزاوية"

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

شكرا استاذنا العزيز جميل بارك الله فيك ولكن هناك اختلاف فى العدد حيث ان العدد الجمالى 1801 بينما العدد الموجود بالاحصاء 1798 فى فرق 3 واحد فى الصف الرابع و2 فى الصف السادس مع العلم انى وحدت كلمة الرابع وكلمة السادس ولا ادرى ما السبب وكذلك وحدت اسم المدرسة دمج بهاء (1).xlsx

تمام حل سليم شكرا اخي منتصر

شكرا اخي منتصر جاري التجربة

تم تعديل المرفق لتلبية جميع الطلبات ولكي تفهم الآلية التي إتبعتها فأريد منك عندما تفتحه في البداية وقبل فتح النموذج أن تفتح جدول الدرجات لأنك ستجده فارغاً الآن ولحل الجزء الأول من السؤال عند فتح النموذج لأول مرة سيتم ترحيل جميع السجلات المطلوبة لدرجات جميع الطلاب ولجميع المواد في الترمين (هذه العملية ستتم لمرة واحدة فقط أو عند إضافة طلاب جدد سيتم ترحيلهم فقط) وبهذا فعند تحديد الصف + الترم + المادة سيظهر لك جميع طلاب الصف (يجب أن تكون مربعات التحرير والسرد الثلاثة غير فارغة) وعند تحديد الفصل سيتم مراعاة الطلب الثاني فعند تحديد الفصل سيتم تصفية البيانات بطلاب الفصل المحدد فقط وعند ترك مربع التحرير والسرد فارغاً سيظهر طلاب جميع الفصول أما الطلب الثالث فهذا يتم آلياً بمجرد الإنتقال إلى أي سجل آخر ولا يحتاج إلى زر للحفظ أرجو الإطلاع على المرفق وإجراء التجارب عليه وإذا عندك أي إستفسار تفضل تحياتي Exam.rar

للرفع