كل الانشطه

بارك الله فيك وفي تعبك ومجهودك العظيم 🌹🌹🌹

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

وعليكم السلام ورحمة الله وبركاته.. بدلاً من هذه اللفة الطويلة ، لم لا تذهب مباشرة لحذف كافة سجلات الجداول الموجودة في القاعدة التي اخترتها 😅

السلام عليكم لا يعمل كود تلوين التتابع النصي الذي يتم البحث عنه المطلوب أن تظهر الاحرف التي يتم البحث عنها بلون أحمر في كافة السجلات. 02.rar

السلام عليكم ورحمة الله الاخوة الكرام حياكم الله عندي في المرفق فورم فيه كومبوبوكس اريد تعبئته بأسماء قواعد البيانات الموجودة في البرنامج وعند اختيار اي قاعدة في الكومبوبوكس نضغط زر الحدف ينسخ اسم وحقول القاعدة المختارة الى قاعدة جديدة ويحدف القديمة ملاحظة" اريد قاعدة البيانات الجديدة تكون فارغة من البيانات وجزاكم الله خير الجزاء نسخ قاعدة البيانات قبل الحدف.accdb

وعليكم السلام ورحمة الله وبركاته اليك التعديل المطلوب Horaire1.xlsb

غفر الله ذنوبك كلها وعفا عنك وأحسن إليك ورزقك من حيث لا تحتسب .. لك ولوالديك وجميع أحبابك 😊🤲 وعدت فأوفيت .. وصنعت تحفة راااااائعة قمة في الجمال .

الله الله الله .. عمل فوق الوصف وأداة قمة في الروعة ما شاء الله عليك 😃 والفائدة أصبحت فائدتان عندما شرحت طريقة إضافتها كـ Add-In للبرنامج ( معلومة كنت أبحث عنها من زمااااااان ) 😅👌 جزاك الله خيرا كثيرا .. وغفر الله لك ولوالديك وجزاكم جنات ونهر في مقعد صدق عند مليك مقتدر 😊🤲 هل هذا أحد الخيارات ؟ لربما أنه يعتمد على لغة النظام .. فعندي تظهر الأزرار باللغة العربية

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

جميل جدا استاذنا القدير اعجبني المثال 2 .. ولدي ملاحظة صغيرة في التوسع والطي .. لو تم التوسع والطي حسب البند ايضا لكان اكمل وأجمل

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

السلام عليكم اريد ترحيل البيانات من ورقة حجز التوقيت الى ورقة Feuil1 اريد عند ملء الخلايا بالون الابيض يتم ترحيل البيانات وعند ترك خلية واحدة لم يتم الترحيل Horaire.xlsb

وعليكم السلام ورحمة الله وبركاته أهلا بك وكل عام وأنتم بخير الرجاء إرسال ملف اكسل , اكتب فيه البيانات ووضح فيه طلبك

تفضل استاذ @بلال بلال المرفق بعد التعديل بطلبك . ووافني بالرد . Mon_Excel_Bilal_Yamen-Last.rar

وتنفيذاً للوعد الذي وعدته للأخ @Moosak قمت بإضافة أداة مساعدة في إنشاء صيغ أوامر مربع الرسائل MsgBox إلى مكتبة الموقع

اعرض الملف أداة إنشاء صيغة أوامر مربع الرسائل MsgBox القياسي {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة بسيطة ولكن فائدتها كبيرة لما تختصره من الوقت والجهد في كتابة الأوامر الخاصة بمربعات حوار الرسائل MsgBox خصوصاً في حالة النصوص الطويلة بإستخدام هذه الأداة لن تحتاج إلا إلى إدخال عنوان الرسالة والنص الخاص بها وتحديد بقية الخيارات من خلال تحديدها من قائمة الخيارات بدون الحاجة إلى أي معرفة برمجية وعند الإنتهاء من تحديد الخيارات يمكنك إستعراض الرسالة للتأكد من ظهورها بالشكل المطلوب وعندها كل ماعليك هو نقر زر لنسخ صيغة الأمر والذهاب للمكان المطلوب في تطبيقك ولصقه بإمكان الأداة القيام بإنشاء صيغتين للأمر 1- صيغة الأمر البسيطة والتي ستكون بالشكل التالي MsgBox "نص الرسالة",vbOk,"العنوان" 2- صيغة الأمر ضمن شرط If وستظهر عندما تحتوي الرسالة على أكثر من زر لتصبح بالشكل التالي If MsgBox ("نص الرسالة",vbOkCancel,"العنوان")=vbOk Then End If كذلك ستجد خيارات إضافية كإمكانية تحديد إتجاه الرسالة لتناسب الرسائل باللغة العربية أو الإنجليزية وإمكانية الإحتفاظ بالنص في متغير والذي يكون مفيداً للغاية عند العمل مع النصوص الطويلة والتي تحتوي على أكثر من سطر وغيرها من المزايا الإضافية التي ستجدونها من خلال تجربتكم للأداة. كما ذكرت فالأداة بسيطة جداً لدرجة أني لم أحتاج لإضافة أي تعليمات توضيحية لطريقة عملها فهي لاتحتوي إلا على نموذج واحد فقط ويمكنك تخصيص قاعدة بيانات مستقلة للقيام بمساعدتك في إنشاء الصيغ لبقية التطبيقات أو إستيراد النموذج لأي تطبيق والعمل به بكل بساطة. كفائدة إضافية وحتى لا تحتاج لإستيراد النموذج إلى جميع تطبيقاتك فقد أنشأت منه نسخة تعمل كوظيفة إضافية Add-In مرفق معها مستند وورد يشرح طريقة تثبيتها وإستخدامها أرجو أن تنال هذا الأداة إعجابكم وإذا كانت هناك أي ملاحظات فأرجو ذكرها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 03/26/26 الاقسام قسم الأكسيس  

المشكلة ان الطلب غير مفهوم بالمرة هل تريد ترقيم الكل ام المعمل فقط والترقيم يسلسل من 55001 حتى القديم أم على تسلسل الارقام (Esal)

ابشر جاري العمل .................................

استاذنا @منتصر الانسي طبعاً لا تفوتنا وبما ان الطالب مصري فالدرجات بمصر أقل من أوتساوي التاسعة على ما أذكر . ولو الطالب عاوز انا حاضر .................. تفضل . الشرح والمرفق بعد التعديل .ووافني بالرد. ahmad2026-111.rar

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

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

وعليكم السلام ورحمة الله وبركاته .. تفضل المرفق بعد تعديل الحدث ليصبح :- Private Sub cboOpenPDF_AfterUpdate() Dim strPath As String Dim objShell As Object strPath = CurrentProject.Path & "\" & Me.cboOpenPDF.Column(2) & ".PDF" If Not IsNull(strPath) And strPath <> "" Then If Dir(strPath) <> "" Then Set objShell = CreateObject("Shell.Application") objShell.Open (strPath) Set objShell = Nothing Else MsgBox ":الملف غير موجود في المسار" & vbCrLf & strPath, vbExclamation + vbMsgBoxRight, "ملف غير موجود" End If Else MsgBox "لم يتم تحديد مسار للملف", vbExclamation + vbMsgBoxRight, "خطأ" End If End Sub الاختبار.zip

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

السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بالف خير وصحة وسلامة المطلوب : اريد ربط العناصر في القائمة المنسدلة في النموذج ملفات خارجية a1 ,a2 الملفات مرفقه وهي صيغة pdf ولكم جزيل الشكر الاختبار.rar