-
Posts
2249 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
56
Moosak last won the day on مايو 12
Moosak had the most liked content!
السمعه بالموقع
2400 Excellentعن العضو Moosak

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
Graphics Designer, Programmer
-
البلد
Oman
-
الإهتمامات
التصميم الجرافيكي ، الأكسس ، VBA
وسائل التواصل
-
MSN
https://www.youtube.com/c/MousaAlKalbani
-
Website URL
https://www.instagram.com/mousa.alkalbani
-
Yahoo
mousa.alkalbani@gmail.com
اخر الزوار
14714 زياره للملف الشخصي
-
Moosak started following فصل النص فى اكسيس و عدم تمكين جميع حقول النموذج فى حال يوجود علامة بحقل بمعين
-
عدم تمكين جميع حقول النموذج فى حال يوجود علامة بحقل بمعين
Moosak replied to figo82eg's topic in قسم الأكسيس Access
وهذه طريقتي .. في محاولة لقبض العصى من المنتصف أيضا 😇🌼 بكود من سطر واحد .. واستخدام التنسيق الشرطي .. 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") *مكتبة الأكواد*
-
⭐ هدية ~ مرسال الواتس أب الجديد 2025⭐ محدّث 4.0
Moosak replied to Foksh's topic in قسم الأكسيس Access
فعلا هذي مشكلة عامة في التحديث الأخير .. 🥴 أخي فوكش @Foksh لكي تتضح لك المشكلة حاول ترسل لشخص أنت مش حافظ رقمه في سجل الهاتف عندك .. وشوف النتيجة -
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
Moosak replied to Foksh's topic in قسم الأكسيس Access
إبداع بسم الله ما شاء الله .. 👍😃 حليت مسألة لطالما انسألنا عنها سبحان الله هناك ثغرة لحل كل معضلة الموضوع سهل والله أعلم .. وذلك عن طريق عمل حلقة تكرر الكود على السجلات المطلوبة .. -
🌷 لقاءات أكسس العرب الافتراضية | 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 حفظ التصميم من الباوربوينت واستيراده إلى الأكسس تصميم نموذج تسجيل الدخول إضافة التفاعل البصري للعناصر تفاعل بصري بالتنسيق الشرطي التأثيرات البصرية التي تطبق على الأزرار الخطوط في النماذج وتنسيقاتها الأنماط اللونية أنماط الخطوط مشاهدة ممتعة 😊🌷
-
لما تكون زهقان وداخل تشوف صحابك بيعملوا ايه فى المنتدى
Moosak replied to ابو جودي's topic in قسم الأكسيس Access
طب بص على المرفق كدة : صفحة رئيسية مطورة - النموذج السادس بدون رعشة.rar -
لما تكون زهقان وداخل تشوف صحابك بيعملوا ايه فى المنتدى
Moosak replied to ابو جودي's topic in قسم الأكسيس Access
أتفرج يا عم ع الزيادة دي : 😂 eye (Moosa).accdb -
⭐ هدية ~ مرسال الواتس أب الجديد 2025⭐ محدّث 4.0
Moosak replied to Foksh's topic in قسم الأكسيس Access
-
لأجل هذه العبارة قمت بعمل تحديث على (الكاتب الذكي لدوال المجال) 😅🖐 قمت بإضافة خيارين للتعامل مع حقول التواريخ : (1) الخيار الأول : تحويلها إلى رقم من نوع Duble (2) الخيار الثاني : تنسيقه بالصيغة التالية : Format(varDate, "yyyy-mm-dd hh:nn:ss") وذلك لأنها الصيغة الأكثر توافقاً مع التنسيق القياسي (ISO) ستدخل على نفسي السرور إن تكرمت بتجربتها 👌 واجهة الأداة مع الخيارات الجديدة : 2nd_DomainFunctionsBuilder_V2.2.accdb
-
بالنسبة لي شخصيا بدأت أنهج هذا الأسلوب ( تحويل حقول التاريخ إلى أرقام في دوال المجال) .. تعطيك دقة في النتائج وتكفيك شر تنسيقات التواريخ .. 🙂 ملاحظة مهمة جدا إذا أردت تطبيق هذا المنهج : لو أردت تحويل حقل تاريخ إلى رقم يمكنك استخدام الدالة cLng هكذا -----> clng(dateField) ولكن لو أردت تحويل حقل تاريخ مع وقت استخدام الدالة cDbl هكذا -----> cDbl(dateField) وذلك لأن الوقت يتم تخزينه بعد الفاصلة عندما يتم تحويل التاريخ إلى رقم بهذه الصورة >>