Moosak

شكرا لك أخي @bidheel2009 على هذه الهدية القيمة .. 🙂 أقترح عليك إضافتها لمكتبة الموقع ليسهل الرجوع إليها لم يحتاجها : https://www.officena.net/ib/files/category/5-قسم-الأكسيس/

شكرا جزيلا أخي @فوزي صلاح اليافعي على الهدية الجميلة 🙂🌹

ما شاء الله عليكم تعمقتم في الموضوع وخضتم وتشعبتم في بحور المكتبات 😄🖐🏼️ أما أنا أعود بكم للموضوع الأصلي لأنه خطرت لي فكرة فما أردت لها أن تضيع في زحام الأفكار 😁👌🏼 الفكرة سلمكم الله هي أن تتيح للمستخدم كتابة أنواع الملفات في معامل الدالة على شكل مصفوفة هكذا ("jpg", "png", "pdf", "rar") ومن ثم يجمعها الكود بالشكل الصحيح ليتم استخدامها في الكود حسب الصياغة الصحيحة وإضافة النجمة لها * .. هكذا (jpg, *.png, *.pdf, *.rar.*) ولعمل ذلك استعنت ب ChatGPT لكتابة الكود التالي مع الكثير من التعديلات لإيصال الفكرة لكم .. 🙂 Function FilesTypes(ParamArray Types() As Variant) As String Dim combinedTypes As String Dim i As Integer ' Initialize the combined string combinedTypes = "" ' Loop through the array items and concatenate with the delimiter For i = LBound(Types) To UBound(Types) combinedTypes = combinedTypes & "*." & Types(i) & ", " Next i ' Remove the last "," If Len(combinedTypes) > 0 Then combinedTypes = Left(Trim(combinedTypes), Len(Trim(combinedTypes)) - 1) End If FilesTypes = IIf(Len(combinedTypes) > 0, combinedTypes, "*.*") End Function Sub testing() Debug.Print FilesTypes("jpg", "png", "pdf", "rar") 'Result = *.jpg, *.png, *.pdf, *.rar Debug.Print FilesTypes() 'Result = *.* End Sub ملاحظة مهمة : طبعا حسب إفادة موقع مايكروسوفت المعامل من نوع ParamArray يجب أن يكون في آخر المعاملات في الدالة وهو إختياري في جميع الأحوال ويمكن تركه فارغا .. ولا يصلح أن يتم استخدامه مع المعاملات من نوع ByVal, ByRef, or Optional . لذلك تركت لك مسألة التعامل مع المعامل btOptionDialog الذي في كودك الأصلي لتجد له حلا 😅🖐🏼️ مرجع : https://learn.microsoft.com/ar-sa/office/vba/language/reference/user-interface-help/function-statement

اللهم آمين .. 🙂🤲🏼 تقبل الله دعواتكم أجمعين .. ولكم بالمثل 🌹

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

ماذا تقترح عمي @ابوخليل 🙂 هات ما في جعبتك 😁

استخدم نفس الدالة Replace 🙂

في حدث بعد التحديث (يعني بعد كتابة الاسم كاملا) تكتب هذا Replace ( [NameText], "عبد " , "عبد") ' للتأكد من عدم وجود مسافتين Replace ( [NameText], " عبد " , "عبد")

إذا كنت ستعتمد على عد المسافات بين الأسماء .. فيمكنك استخدام الدالة التالية لعد المسافات الفاصلة بين الأسماء بغض النظر عن الأسماء ذوات الضروف الخاصة كالأسماء المركبة وغيرها .. 1- أضف حقل محسوب في الاستعلام وهذه قيمته ( تستبدل Text باسم حقل الأسم ) : Len(Text) - Len(Replace(Text; " "; "")) 2- في المعيار أسفل هذا الحقل تكتب الرقم 3 وذلك ليحضر لك الأسماء الرباعية .. أو تكتب الرقم 2 ليحضر لك الأسماء الثلاثية

هذه المشكلة تحصل بسبب اختلاف نسخ الأوفيس بين الأجهزة .. الحل : إفتح ملف أكسس جديد فاضي .. ثم صدر جميع عناصر البرنامج لملف الأكسس الجديد .. وستعمل معك بإذن الله 🙂

بسم الله ما شاء الله .. تبارك الرحمن 😄🖐🏼️ شغل معلمين بجد .. 😊 الله يبارك لك في عمرك وعلمك وصحتك وذريتك 🤲🏻 أنا كنت عارف أن قلبك مش هيسيبك تدينا الكود وتمشي 😅 اشتغلت معايه زي السكينة على الحلاوة ما شاء الله .. 👍🏼 أيش رايك لو تضيف زر إيقاف مؤقت ⏸ للمجموعة وتكتمل النعمة ؟ والمكتبة بتسلم عليك 😂

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

وعليكم السلام ورحمة الله وبركاته.. ماذا تقصد ب هو المتاح ؟؟ وضح السؤال أكثر تكرما

وعليكم السلام ورحمة الله وبركاته .. وممكن تستفيد من إبداعات المهندس @ابو جودي 🙂

شكرا للتذكير عمنا @شايب 🙂🌷

لو يمكن سحب الأكواد في ملف VBS يكون أفضل .. ولكن المشكلة أننا سندخل في معمعة مع مكافحات الفيروسات 😅🖐 وربما يكون لديك فكرة أفضل ..

You may put it under on click command for a button.

كيف لو أردنا إضافة الإصدارات الأحدث للقائمة ؟ لأن الملف exe 🙂

تصميم جميل وألوان هادئة 🙂

ما الذي يفعله هذا الملف بالضبط عمي أبوخليل ؟ وهل تشغله يدويا أم بأمر برمجي ؟ وهل يشترط أن يكون بجانب قاعدة البيانات أثناء التشغيل ؟ 🙂

Me.Refresh 🙂

استخدم مصمم الاستعلامات الخاص بالأكسس للحصول على جمل ال SQL .. صمم الاستعلام ثم إذهب إلى للحصول على جملة ال SQL سهل ومريح .. 🙂

تغيير إعدادات اللغة في خطوات ..

أخي @Alien غيرت لك الفكرة وعملتها بالكود 🙂 جرب الآن وضع أي رقم تشاء .. إن شاء الله مليون رقم حتشتغل معاك 🙂 : بس لما تكون أرقام كثيرة بتاخذ وقت شوية لحد ما يفتح التقرير معاك 😅 Patient Sample Tracking.accdb

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