كل الانشطه

السلام عليكم ارسلت المرفق ومشكورا قائمة الفصل 2027.rar اخى اشكرك كثيرا ولكن الكود لا يعمل انا ارسلت ملف بالقائمة اخى الكريم اشكرك على الاهتمام ولكن الكود لا يعمل

هذا هو التقرير اوفيس 2003 قائمة الفصل 2027.rar

خدمة 5 نجوم

أيضاً ويمكن من خلال مربع نص غير منضم وأن تجعل مصدر بياناته :- =DCount("*","Tbl_student","gender=1 AND fsl_id=" & [txtFslId] & " AND alsaf_Id=" & [alsaf_Id])

وتكملة لمسيرة الأفكار .. ومشاركة مع مهندسنا العزيز @منتصر الانسي 🙂 .. تم تعديل الكود ليقوم بتعديل اسم البرنامج بنفسه ثم يعيد تشغيل البرنامج مرة أخرى 🙂 Private Sub Form_Load() Const strCorrectName As String = "gelani" ' اكتب هنا الاسم الصحيح بدون الامتداد Dim currentPath As String Dim targetFullName As String Dim batchFilePath As String Dim fso As Object Dim ts As Object ' التحقق من مطابقة اسم الملف الحالي للاسم المطلوب If CurrentProject.Name <> strCorrectName & ".accdb" Then Label0.Caption = "جاري تعديل اسم البرنامج..." currentPath = CurrentProject.Path targetFullName = currentPath & "\" & strCorrectName & ".accdb" batchFilePath = currentPath & "\rename_db.bat" ' إنشاء الملف الدفعي لتنفيذ إعادة التسمية بعد الإغلاق Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile(batchFilePath, True) ' كتابة الأوامر داخل الملف الدفعي ts.WriteLine "@echo off" ts.WriteLine "chcp 65001 > nul" ts.WriteLine "timeout /t 2 /nobreak > nul" ' انتظار إغلاق ملف أكسس تماماً لفك القفل ts.WriteLine "cd /d """ & currentPath & """" ts.WriteLine "ren """ & CurrentProject.Name & """ """ & strCorrectName & ".accdb""" ts.WriteLine "start """" """ & targetFullName & """" ' إعادة تشغيل القاعدة بالاسم الجديد ts.WriteLine "del ""%~f0""" ' حذف الملف الدفعي بعد الانتهاء ts.Close ' تنبيه المستخدم قبل الإغلاق والتعديل MsgBox "تم اكتشاف أن اسم قاعدة البيانات غير صحيح!" & vbCrLf & _ "سيتم إغلاق البرنامج وتعديله تلقائياً إلى: " & strCorrectName & ".accdb", _ vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تعديل اسم البرنامج" ' تشغيل الملف الدفعي في الخلفية Shell "cmd.exe /c """ & batchFilePath & """", vbHide ' إغلاق قاعدة البيانات الحالية DoCmd.Quit Else Label0.Caption = "الإسم صحيح" End If End Sub gelani.accdb

الطريقة الأسهل: استعلام تجميعي (Query) أنشئ استعلاماً جديداً وضع فيه هذا الكود (SQL View)، مع تعديل اسم الجدول Students إلى اسم جدولك الحقيقي: SELECT Class AS كود_الصف, class_no AS كود_الفصل, Sum(IIf(sex=1,1,0)) AS بنون, Sum(IIf(sex=2,1,0)) AS بنات, Count(*) AS الإجمالي FROM Students GROUP BY Class, class_no ORDER BY Class, class_no; هذا الاستعلام سيعطيك جدولاً فيه عدد البنون وعدد البنات والإجمالي لكل فصل من فصول كل صف. الطريقة الثانية: داخل التقرير نفسه (أسفل التقرير) إذا كنت تريد الأعداد تظهر أسفل التقرير مباشرة، افتح التقرير في Design View ثم: 1) في تذييل التقرير (Report Footer) أو تذييل المجموعة (Group Footer): أضف مربع نص وضع فيه: =Sum(IIf([sex]=1,1,0)) هذا لحساب البنون. ومربع نص آخر: =Sum(IIf([sex]=2,1,0)) هذا لحساب البنات. ومربع نص للإجمالي: =Count(*) إذا أردت التفصيل حسب كل فصل تحت بعضه (تجميع) لعمل تذييل لكل فصل يعرض عدد البنون والبنات فيه: في التقرير اضغط Grouping & Totals (أيقونة التجميع). اختر التجميع حسب Class ثم class_no. في تذييل المجموعة ضع نفس المعادلات السابقة. بهذا تحصل على: عدد البنون والبنات لكل فصل في تذييل الفصل. وعدد البنون والبنات للصف كامل في تذييل الصف. وعددهما لكل المدرسة في تذييل التقرير. ملاحظة مهمة: تأكد أن حقل sex مخزّن كرقم (1 و 2) وليس نصاً، لأن المعادلة IIf([sex]=1,...) تفترض ذلك. إذا كان نصاً، اكتب IIf([sex]="1",1,0) بدلاً منها.

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

على رأي المعلق الرياضي رؤوف خليف شنو هاااااذااااا منتهى الروعة والجمال الأداة بوضعها الحالي لاتشوبها شائبة ولكن لدي ملاحظة وإقتراح الملاحظة هي إختلاف شكل رسالة التنبيه بإختلاف طريقة حفظ التعديل كما في الصورة المتحركة التالية أدري أن الماكرو يقوم برفع خطأ برقم ونص مخصصين ولكن لاحظ رقم الخطأ في أول رسالة (عند النقر على زر الحفظ) سنجد أن رقمه 3939 رغم أن الماكرو يرفع خطأ بالرقم 9991 والرقم 9992 فهل بالإمكان أن يتم رفع رقم الخطأ من الماكرو وإعتراضه عن طريق الكود ليتم معالجته بإستخدام VBA ؟ أما المقترح أن يتم إستخدام مربعات قائمة (قابلة للتحديد المتعدد) بدلاً عن مربعات التحرير والسرد وهذه الصورة ستوضح الفكرة في الأخير وكما أسلفت فإن الملاحظة والمقترح هما من باب مشاركة الأفكار ولا ينقصا من روعة الأداة بوضعها الحالي بشيئ تحياتي

السلام عليكم الاخوة الاعزاء محتاج كود يحسب تلاميذ كل فصل من فصول الصف اسفل التقرير مثال بنون - بنات - حملة كود الصف الأول 1 كود الفصل اول 1 فصل ثانى 2 كود الصف الثانى 2 كود الفصل اول 1 فصل ثانى 2 كود بنون 1 كود بنات 2 حقل الصف Class حقل الفصل class_no حقل النوع sex

رائع جدا حفظك الله خاصة انه ينبه الى الاسم الأصلي للبرنامج ويسهل إعادة التسمية . مع خالص الشكر والتقدير

تم تعديل الملف بإضافتين بسيطتين ، وتصحيح وظيفة موجودة مسبقاً :- إضافة ميزة الكشف عن حالة الجدول عن اختياره من قائمة الجداول . إضافة ميزة تطبيق الحماية أو حذفها عن جميع الجداول مع استثناء جداول محددة في سطر الإستدعاء . تصحيح وظيفة "تضمين التحقق من وجود الكائن" ، والتي تم تعديلها لتعمل فقط عند اختيار جداول محددة من القائمة المنسدلة .

اعرض الملف ⭐ هدية ~ أداة حماية الجداول وتحصينها في آكسيس 2026 ⭐ أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. في الموضوع الذي سبق وتم طرحه في هذا الموضوع ، كانت المشاركات بناءة لفتح باب الإبتكار والتطوير وخلق بيئة حماية وحصانة للجداول من خلال ضبط حماية السجلات وتحصينها داخل الجداول عن طريق ماكرو البيانات . والشكر موصول لأخي الأستاذ موسى @Moosak وأخي منتصر @منتصر الانسي ، لمشاركتهما الحديث والأفكار بخصوص هذا الموضوع . وبناءً على الفكرة العامة فقد توصلت وبحمد الله وفضله لفكرة تمكن المستخدم ( المطور عادةً أو صمم قاعدة البيانات ) من حماية الجداول والسجلات من الحذف أو التعديل المباشر على السجلات داخل الجداول . وبالتالي تطبيق حصانة كاملة على الجداول التي يحددها المستخدم . ميزات الأداة :- 1️⃣ تأتي الأداة بمديول واحد يمكن نسخه إلى أي قاعدة بيانات ، وإستدعاء دالة الحماية ، أو حذفها على أي جدول / جداول يختارها المستخدم . 2️⃣ واجهة تفاعلية تسمح لك كمستخدم بتطبيق واختيار نوع الوظيفة بسهولة تامة ، بدلاً من كتابة الإستدعاءات ، تسهيلاً لتطبيق الحماية أو حذفها . 3️⃣ تتعامل الأداة مع الجداول المحلية و الجداول المرتبطة بشكل منظم وديناميكي صامت جداً . 4️⃣ للأداة القدرة على التعامل مع استدعاءات الإستعلامات ( الإضافة ، التحديث والحذف ) بشكل صارم ومحكم التنفيذ . 5️⃣ أيضاً القدرة حتى مع التعامل مع استعلامات الـ SQL بذكاء خاص . 6️⃣ قدرة الأداة على تطبيق الحماية على جدول ( على سبيل المثال ) مع استثناء حقل أو حقول من الحماية . بحيث تستطيع من خلال أي نموذج التعديل على هذه الحقول داخل الجدول المحمي دون أي تعارض . 7️⃣ إمكانية تطبيق الحماية / حذفها لجداول محددة تختارها من خلال الإستدعاء مرة واحدة ، أو جميع الجداول في قاعدة بياناتك . 8️⃣ إتاحة الفرصة أيضاً لتطبيق الحماية أو حذفها على جداول قاعدة بيانات خارجية دون الحاجة إلى نقل المديول لقاعدة البيانات هذه ( التي اخترتها ) . 9️⃣ التعامل الذكي مع الجداول المرتبطة فقط بحمايتها أو إلغاء الحماية عنها ؛ وأن تستثني الجداول المحلية الغير مرتبطة . 🔟 التعامل مع مسار جداول قواعد البيانات المرتبطة دون الحاجة لإدخال المسار بشكل يدوي . 1️⃣1️⃣ التعامل بذكاء مع قواعد البيانات المرتبطة والمحمية بكلمة مرور . بحيث يتم التعرف واكتشاف كلمة المرور تلقائياً وتمريرها إلى الحماية أو الحذف دون الحاجة للتدخل اليدوي . 1️⃣2️⃣ قراءة جداول قاعدة البيانات الخارجية والتعامل معها مباشرة مع عرض جداولها داخل الأداة من داخل قاعدة بيانات مشروعك . وحتى حقول كل جدول في قاعدة البيانات تلك التي اخترتها . 1️⃣3️⃣ إمكانية تطبيق الحماية أو الحذف بشكل صامت أو إظهار رسالة تفاعلية بالنتيجة التوضيحية . 1️⃣4️⃣ رسائل أخطاء معربة بالكامل لجميع احتمالات رسائل الخطأ التي يمكن أن تظهر للمستخدم . 1️⃣5️⃣ تمكين المستخدم من نسخ سطر الإستدعاء ولصقه في أي وظيفة أو حدث يحتاجها لها . 1️⃣6️⃣ في المديول ، يوجد شرح مبسط لآلية الإستدعاءات التي يمكن للأداة تطبيقها وتقديمها لك من خلال واجهة النموذج المخصص للإستدعاءات . 1️⃣7️⃣ إتاحة الفرصة بتطبيق الحماية أو حذفها عن كافة الجداول ، مع استثناء جداول محددة . 1️⃣8️⃣ عرض حالة الجدول إن كان محمياً مسبقاً أو لا ، وحالة الحماية عند وجود حقول تم استثناؤها . 1️⃣9️⃣ تضمين التحقق من وجود الكائنات التي يتم استدعاء الحماية عليها من خلال كود VBA . كمثال :- ' التحقق من وجود الكائن قبل التنفيذ If DCount("*", "MSysObjects", "Name In ('Tbl_1', 'Tbl_2') And Type In (1, 4, 6)") = 2 Then Else MsgBox "أحد الكائنات المحددة [Tbl_1, Tbl_2] غير موجود في قاعدة البيانات!", vbExclamation End If صورة من واجهة الأداة :- ملف الأداة مفتوح المصدر صاحب الملف Foksh تمت الاضافه 10/07/26 الاقسام قسم الأكسيس

ملف أكسس مثله مثل أي ملف آخر داخل ويندوز يمكن لأي شخص تعديل إسمه لذا فلا يمكن منع أي مستخدم من تعديل إسمه ولكن يمكننا تقييد تشغيل البرنامج إلا إذا كان بالإسم الذي نريد في المرفق نفس الملف الذي أرسلته جرب فتحه بالإسم gelani وأغلقه وغير إسمه إلى أي بإسم آخر وشاهد النتيجة فهل يناسبك هذا الحل؟ gelani.rar

حفظك الله عندي ملف أكسس اسمه gelani.accdb وارغب في منع تغيير الاسم . مع اطيب تحيه gelani.accdb

وعليكم السلام ورحمة الله وبركاته .. طلبك غير واضح أبداً أخي جيلاني 😇 .. يا ريت تدعم طلبك بتوضيح أكثر وحتى لو مدعوم بملف أو صورة على الأقل .

اذهب الى عرض الجدول Tbl_Lab_Results بوضع التصميم ، واذهب الى الحقل HDL_Risk ، واجعل خاصية حجم الحقل = Single - مفرد ، والتنسيق = 0.00# أو Fixed - أعتقد ثابت ، واحذف القيمة 4.00 الحالية وجرب عدل في النموذج القيمة 211 .

الجزء الثاني : و أتمني من الزملاء الاعزاء المشاركة بما لديهم من محاضرات تشرح لنا كيفية دمج ال AI مع Ms Access العنوان بالإنجليزية: How to use Access with AI? العنوان بالعربية: كيف تستخدم أكسس مع الذكاء الاصطناعي؟ الاختصار: مقدمة عملية توضح الطرق الفعالة لدمج والاستفادة من تقنيات الذكاء الاصطناعي داخل قواعد بيانات مايكروسوفت أكسس. الرابط: https://www.youtube.com/watch?v=6hw5caVfIy8 2. العنوان بالإنجليزية: Setting up your Environment using Microsoft Access with AI العنوان بالعربية: إعداد بيئة العمل الخاصة بك لاستخدام مايكروسوفت أكسس مع الذكاء الاصطناعي الاختصار: دليل خطوة بخطوة لتجهيز الأدوات والإعدادات البرمجية اللازمة للبدء في ربط أكسس بأنظمة الذكاء الاصطناعي. الرابط: https://www.youtube.com/watch?v=P9B0b0ief3Y 3. العنوان بالإنجليزية: Using Microsoft Access with AI - PART 3 العنوان بالعربية: استخدام مايكروسوفت أكسس مع الذكاء الاصطناعي - الجزء الثالث الاختصار: استكمال السلسلة بتطبيقات متقدمة وحلول برمجية ذكية لتعزيز كفاءة وتطوير قواعد البيانات. الرابط: https://www.youtube.com/watch?v=_pxpz4GeqjE 4. العنوان بالإنجليزية: Unlocking the Potential of ChatGPT in Microsoft Access via OpenAI's API - Part 1 of 2 العنوان بالعربية: إطلاق إمكانات ChatGPT في مايكروسوفت أكسس عبر واجهة برمجة تطبيقات OpenAI - الجزء الأول من جزأين الاختصار: شرح تقني لربط واجهة برمجة التطبيقات (API) الخاصة بـ OpenAI مع أكسس للاستفادة من قدرات شات جي بي تي البرمجية. الرابط: https://www.youtube.com/watch?v=pohDppXUcHY

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

السادة الخبراء الافاضل بعد التحية برجاء التعديل على التنسيق ليصبح رقم عشرى بدل من رقم صحيح lab.rar

السلام عليكم ورحمة الله وبركاته هل استطيع منع تغيير اسم البرنامج ؟ مع اطيب تحية للجميع

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

دخل الذكاء الصناعي في معظم حياتنا و بات مهدد لوظائف كثيرة و لذلك يجب كمبرمجين ان نتعلمه و نستخدمة لخدمتنا و نطوعه في عملنا لذلك رغم عدم المامي بالموضوع و خبرتي المتواضعة . الا اننا يمكنني ان انير لغيري الطريق كي يتعلم و يعلمنا كيفية استخدامه . لذلك ما يلي بعض المحاضرات في كيفية استخدام AI مع الاكسس و هذه المشاركة ما هي الا بذرة تحتاج من حضراتكم المشاركة و المساهمة بكل جهد كي تكون مرجع لنا نحن المتخصصين - او المبتدئين - لكي نواكب العصر ان شاء الله . 1. تشغيل الذكاء الاصطناعي مجاناً وبشكل محلي على حاسوبك لقواعد بيانات مايكروسوفت أكسس English Title: Run FREE AI on Your PC for Microsoft Access (Complete Ollama Setup Guide) رابط الفيديو: (أو البحث في قناة AccessUserGroups.org) الملخص: دليل عملي متكامل لإعداد وتثبيت نماذج الذكاء الاصطناعي محلياً عبر أداة Ollama واستخدامها لخدمة وتطوير قواعد بيانات أكسس دون الحاجة للاتترنت. 2. البرمجة في أكسس باستخدام الذكاء الاصطناعي عبر باورشل English Title: Programming in Access with AI using PowerShell رابط الفيديو: (متاح على قناة اليوتيوب الرسمية للمنظمة) الملخص: يستعرض كيفية دمج لغة الأتمتة PowerShell مع تقنيات الذكاء الاصطناعي لتسريع عمليات الكتابة البرمجية وإدارة قواعد بيانات Access بكفاءة. 3. أكسس لم تموت.. لقد حصلت أخيراً على "مساعد ذكي" (لا، ليس هذا المقصود!) English Title: Access Isn't Dead. It Finally Got a "Co-Pilot". (No. Not that one.) رابط التفاصيل: الملخص: مناقشة عميقة حول كيفية توظيف وكلاء الذكاء الاصطناعي وخوادم (MCP Servers) المخصصة لأكسس لتحديث الأنظمة القديمة وقيادة عملية التطوير. 4. إدارة فريق من وكلاء الذكاء الاصطناعي في هندسة البرمجيات English Title: Managing a Team of AI Agents -- Creating an AI skill.md رابط التفاصيل والتسجيل: الملخص: استعراض عملي لاحتراف إدارة بيئات التطوير المعتمدة على عدة مساعدين ذكيين (مثل Claude Code و ChatGPT) لتصميم وهندسة الأنظمة البرمجية. 5. إعداد وتكوين بيئة العمل لاستخدام مايكروسوفت أكسس مع الذكاء الاصطناعي (الجزء الثاني) English Title: Using Microsoft Access with AI - Part 2 رابط الفيديو: https://www.youtube.com/watch?v=dZeeuha6my4 الملخص: جلسة تفاعلية متقدمة تعرض مستودعات القوالب الجاهزة وكيفية الإجابة على استفسارات المطورين البرمجية وتطويع الـ AI لخدمة قواعد البيانات.

العفو أخي @SAROOK .. تحياتي لك

مشكور جدا بشمهندس على هذا البرنامج الرائع وعلى مجهودك الكبير وفقك الله ورعاك بحفظه