Moosak

وهذه طريقتي .. في محاولة لقبض العصى من المنتصف أيضا 😇🌼 بكود من سطر واحد .. واستخدام التنسيق الشرطي .. 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

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

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

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

وعليكم السلام 🙂 تفضل أستاذنا العود Database1_Moosa.accdb

لأجل هذه العبارة قمت بعمل تحديث على (الكاتب الذكي لدوال المجال) 😅🖐 قمت بإضافة خيارين للتعامل مع حقول التواريخ : (1) الخيار الأول : تحويلها إلى رقم من نوع Duble (2) الخيار الثاني : تنسيقه بالصيغة التالية : Format(varDate, "yyyy-mm-dd hh:nn:ss") وذلك لأنها الصيغة الأكثر توافقاً مع التنسيق القياسي (ISO) ستدخل على نفسي السرور إن تكرمت بتجربتها 👌 واجهة الأداة مع الخيارات الجديدة : 2nd_DomainFunctionsBuilder_V2.2.accdb

بالنسبة لي شخصيا بدأت أنهج هذا الأسلوب ( تحويل حقول التاريخ إلى أرقام في دوال المجال) .. تعطيك دقة في النتائج وتكفيك شر تنسيقات التواريخ .. 🙂 ملاحظة مهمة جدا إذا أردت تطبيق هذا المنهج : لو أردت تحويل حقل تاريخ إلى رقم يمكنك استخدام الدالة cLng هكذا -----> clng(dateField) ولكن لو أردت تحويل حقل تاريخ مع وقت استخدام الدالة cDbl هكذا -----> cDbl(dateField) وذلك لأن الوقت يتم تخزينه بعد الفاصلة عندما يتم تحويل التاريخ إلى رقم بهذه الصورة >>

الله ينور باش مهندس 🙂🌹 أنت العملاق يا بروف

ما شاء الله تبارك الرحمن 😀 من أجمل المواضيع التي أنزلتها أخي @منتصر الانسي .. جزاك الله كل خير .. 😊 مكتبة غنية شاملة واستعراض جميل جدا للأكواد والأمثلة .. تبارك الله ... وسلمت يمناك 🌹 هذه الخدمة تغني عن تصميم عشرات النماذج التنبيهية والإرشادية 🙂

تفضل أخي عبدالعزيز @Abdelaziz Osman 🙂 هذا الاستعلام لو بتشغله في ال VBA : ' DELETE statement | جملة DELETE Dim sqlDelete As String sqlDelete = "DELETE FROM [TABINDX]" sqlDelete = sqlDelete & " WHERE [ID] = " & var_ID ' Execute The Query | تنفيذ الاستعلام CurrentDb.Execute sqlDelete وهذ لو بتشغله كاستعلام أكسس : DELETE FROM [TABINDX] WHERE [ID] = var_ID ولا تنسى أن تضع قيمة ال ID المطلوب حذفه مكان الـمتغير : var_ID ولو بتحذف كافة محتويات الجدول تكتب كذا : CurrentDb.Execute "DELETE FROM TABINDX"

شكرا لك حبيبنا @Foksh على هذا العطاء والإبداعات 🙂 وفقك الله لما يحب ويرضى وجعلك من المقبولين .. وجمعك الله بوالديك وأحبابك في أعالي جنات النعيم 😊🤲

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

ماشاء الله تبارك الرحمن .. شغل حرفنة 🙂 ياريت لو تضيف تطبيق الألوان على الأزرار بعد ... 🖐🏻️

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

إثراءا للموضوع .. 🙂 كنت أستخدم هذا الكود لفحص الحقول المطلوب التأكد من تعبئتها قبل الحفظ : " كود للتأكد من اكتمال تعبئة جميع البيانات المطلوبة في النموذج قبل الحفظ " هذا الكود يوضع في حدث قبل التحديث للنموذج .. ملاحظة مهمة : يجب وضع علامة * في خاصية Tag لجميع الحقول المطلوب تعبئتها .. ( فقط المطلوبة ) Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo HandleError Dim Ctrl As control For Each Ctrl In Me.Controls If Ctrl.Tag = "*" Then If IsNull(Ctrl.value) Or Ctrl.value = "" Then MsgBox "لا يمكن ترك الحقل " & Ctrl.Name & " فارغا", vbMsgBoxRight + vbCritical + vbOKOnly, "حقل مطلوب" Ctrl.SetFocus Cancel = True Exit Sub End If End If Next Ctrl HandleExit: Exit Sub HandleError: If err.Number <> 0 Then MsgBox err.Number & vbCrLf & err.Description End If Resume HandleExit End Sub :: مكتبة الأكواد الخاصة :: وهنا مواضيع سابقة تتكلم عن نفس الموضوع : 🙂

حركة الإرباك هذه تحصل حتى عندما يكون لديك نموذج آخر وهو مفتوح وعليه تايمر .. وأنت تشتغل على نموذج آخر مش عليه تايمر .. أو حتى وأنت تكتب أكوادك في موديول عام .. هذا ما كان يقصده المعلم العود @jjafferr ... ويظهر أن الكود اللي عملته حضرتك يتصرف بنفس الطريقة التي يتصرفها التايمر المضمن في نماذج الأكسس (حسب ما أفاد المعلم العود ) 🙂

وعليكم السلام ورحمة الله وبركاته معلمنا القدير .. 🙂 🌹 وأنا أحد تلاميذك أسمحلي بأن أطرح فكرتي في هذا الموضوع ( وقد عملت على مشروع مشابه) .. 🙂 أولا : نفترض أن الموظف له فترة دوام محددة (من ضمن القائمة التي ذكرتها) بين تاريخين محددين مثال : 1- شهر رمضان له أوقات دوام مختلفة عن باقي الشهور. 2- الموظف أنتقل من موقع عمل لموقع آخر له فترة دوام مختلفة. 3- الموظف تغيرت ورديته من صباحية إلى مسائية أو العكس. 4- والأمثلة كثيرة ..... ثانيا : نقوم بتصميم جدول فرعي لجدول الموظفين (جدول الورديات) يتم فيه إضافة سجل لكل نوع دوام للموظف حسب نوع الوردية وتحديد الفترة الزمنية (من تاريخ) ---> (إلى تاريخ). ثالثا : تصميم نموذج فرعي يضاف لنموذج الموظفين يتم فيه تعبئة هذه البيانات التي ذكرناها في جدول الورديات . رابعا : يتم احتساب مدة العمل والتأخير والانصراف المبكر وعدد ساعات العمل التي أداها الموظف بناءً على فترة دوامه المذكورة في جدول الورديات . وهذه صور توضيحية حسب المشروع الذي عملت عليه وهو خاص ببرنامج لأحد الاخوة 🙂 : جدول الورديات : نموذج بيانات الموظفين + النموذج الفرعي للورديات ( الورديات التي ليس لها تاريخ نهاية هي ورديات مستمرة حتى تاريخ اليوم ولها اعتبار في كود الحسابات) : صورة مقربة للنموذج الفرعي : القائمة المنسدلة للورديات تأخذ بياناتها من جدول فرعي آخر يتم فيه تسجيل أنواع الورديات والبيانات المتعلقة بها : بعد هذا قمنا بتصميم جملة من الدوال الخاصة بجلب البيانات الخاصة بتفاصيل الورديات من الجداول وتطبيقها على الموظفين وحساب ما يطلب حسابه .. هذا باختصار وسلامتكم 🙂

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