Moosak

شخصيا عانيت من نفس المشكلة أيضا .. وبعد الكثير من المحاولات الفاشلة لحل المشكلة طلبت من ال Ai حل للمشكلة فأعطاني ملف REG يزيل اللغة الزائدة من ملف الريجيستري مباشرة .. ولكنه زاد الطين بلة فتلخبطت معي الإعدادات واختفى شريط اللغة من شريط المهام بالمرة 😅 فتركته .. ولكن فعلا كانت هذه اللغة تظهر عند فتح برنامج الأكسس فقط ومع حواراتكم الجميلة طرأ على بالي أنه فعلا ربما تكون هذه الإعدادات مدمجة مع برنامج الأكسس .. !! والآن عند تصفحي للإعدادات وجدت أن إعدادات اللغة العربية (للمملكة الحبيبة) 🙂 مضافة فعلا ضمن القائمة .. سأجرب إزالتها ولعلي أوافيكم لاحقا بالنتيجة

وعليكم السلام ورحمة الله وبركاته مستر فوكش 🙂 دائما متميز ماشاء الله عليك .. طرح استثنائي تبارك الله .. أنا نسختي مفعلة ولكن ما تظهر مدة التفعيل بالأعلى

شكرا لك على العطاء 🙂🌷 يعمل بنجاح ما شاء الله .. الملاحظة الوحيدة : الأصل أن يتم التأكد من حفظ السجل قبل تشغيل الماسح الضوئي

أنظرهنا .. ستجد الحل في هذا الموضوع ... 🙂

وهذه طريقتي .. في محاولة لقبض العصى من المنتصف أيضا 😇🌼 بكود من سطر واحد .. واستخدام التنسيق الشرطي .. BlockExam_Moosak.accdb

وهاتان دالتان كتبتهم من زمان 🙂🌷 : *دالة تفصل الأرقام عن الحروف ودالة تفصل الحروف عن الأرقام* *شرح الكود:* الدالة تستخرج الأرقام من جمله تحتوي على أرقام وحروف .. مثال1 : " أسماء الله 99 أسما " - النتيجة: 99 مثال2 : " أسماء الله 99 أسما " - النتيجة: أسماء الله أسما *الكود:* '==========================================(لاستخراج الأرقام فقط من النص) Public Function ExtractNumbersFromText(strText As String) Dim x As Long Dim L As String Dim r As String For x = 1 To Len(strText) L = Mid(strText, x, 1) If IsNumeric(L) Then r = r & L End If Next x ExtractNumbersFromText = Trim(r) End Function '==========================================(ولإزالة الأرقام من النص والإبقاء على الحروف فقط) Public Function RemoveNumbersFromText(strText As String) Dim x As Long Dim L As String Dim r As String For x = 1 To Len(strText) L = Mid(strText, x, 1) If Not IsNumeric(L) Then r = r & L End If Next x RemoveNumbersFromText = Trim(r) End Function *طريقة الاستدعاء (الاستخدام):* ExtractNumbersFromText("Your text with 123456 Here") RemoveNumbersFromText("Your text with 123456 Here") *مكتبة الأكواد*

ما شاء الله عليك أخي @منتصر الانسي أطنان من الفوائد الإثرائية للمكتبة العربية .. لله درك 😊🌼 شكرا جزيلا على هذا العطاء الوفير ..🌷

فعلا هذي مشكلة عامة في التحديث الأخير .. 🥴 أخي فوكش @Foksh لكي تتضح لك المشكلة حاول ترسل لشخص أنت مش حافظ رقمه في سجل الهاتف عندك .. وشوف النتيجة

إبداع بسم الله ما شاء الله .. 👍😃 حليت مسألة لطالما انسألنا عنها سبحان الله هناك ثغرة لحل كل معضلة الموضوع سهل والله أعلم .. وذلك عن طريق عمل حلقة تكرر الكود على السجلات المطلوبة ..

🌷 لقاءات أكسس العرب الافتراضية | 03 | 🌷 موضوع اللقاء : مهارات وفنيات تصميم النماذج واختيار الألوان وتنسيق العناصر رابط اليوتيوب: ★ روابط اللقاء الثالث ★ ○ موقع إلهام : https://www.pinterest.com https://www.freepik.com ○ مواقع اختيار الألوان : https://coolors.co https://colorhunt.co https://www.materialpalette.com https://coolors.co/gradients ○ مواقع الأيقونات : https://icons8.com/icons https://www.flaticon.com https://icon-icons.com/ https://www.iconarchive.com/ https://flaticons.net/free-icons ○ مواقع صور PNG : https://www.cleanpng.com https://www.pngwing.com https://www.seekpng.com ○ مواقع صور خلفيات : https://www.pexels.com https://www.freepik.com/free-photos-vectors/background https://pixabay.com https://www.vecteezy.com/free-photos/background https://stocksnap.io/search/background ○ مواقع الخطوط : https://fonts.google.com https://arbfonts.com خطوط رسومية : https://www.vertex42.com/ExcelTips/unicode-symbols.html https://www.ssec.wisc.edu/~tomw/java/unicode.html ○ مراجع مهمة : https://elshemy.me/content/2025_8/Access_UI_UX_ِGuide.html ★ روابط تهمك ★ ❀ ملفات اللقاءات الافتراضية : ○ https://shorturl.at/mR2T3 ○ اللقاء الأول : https://drive.google.com/drive/folders/1wiMVugVZNzU9eaJ9abX-YfqhhSG6_Ec5 ○ اللقاء الثاني : https://drive.google.com/drive/folders/1EcaTZBp0rhmxhm7c_NKOg6BC-O89DS4W ○ اللقاء الثالث : https://drive.google.com/drive/folders/1VX4an_hg3ZdX-Q9_MlNNPoCzkCN6b98d ○ برمـجيـات - أدوات - إضـافـات : https://drive.google.com/drive/folders/1RtmH-cuk1rpj0zKkUNPbQz681oqKVNo3 ○ مجلد ورش العمل المشتركة : https://drive.google.com/drive/folders/1LL5_hsElZR4zQv62Wt1TxU2_M8Gv1Jja ❀ رابط الانظمام لمجموعة الأكسس جروب (واتسأب) : https://chat.whatsapp.com/HQvOPGrkASM2guvAotHXCw ❀ قناة أكسس العرب (اليوتيوب) : http://www.youtube.com/@ArabAccessGroup ❀ مواضيع اللقاء : المقدمة الإلهام البصري pinterest الإلهام البصري Google اختيار الألوان المناسبة تطبيق الألوان على قاعدة البيانات الأيقونات النصية الأيقونات الأيقونات - برنامج Pichon إضافة الصور المفرغة PNG تصميم الواجهات عن طريق PowerPoint حفظ التصميم من الباوربوينت واستيراده إلى الأكسس تصميم نموذج تسجيل الدخول إضافة التفاعل البصري للعناصر تفاعل بصري بالتنسيق الشرطي التأثيرات البصرية التي تطبق على الأزرار الخطوط في النماذج وتنسيقاتها الأنماط اللونية أنماط الخطوط مشاهدة ممتعة 😊🌷

طب بص على المرفق كدة : صفحة رئيسية مطورة - النموذج السادس بدون رعشة.rar

أتفرج يا عم ع الزيادة دي : 😂 eye (Moosa).accdb

ممكن تدخل بنفسك من هنا 🙂👈>>>>>>

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

حبيبنا @ابو جودي اقرأ تعليق الأستاذ جعفر هنا 🙂 : وحسب ما يظهر أن الاستعلام هنا لا يتعدى السبع سجلات ، وهي بعدد أيام الأسبوع.