Moosak

في حدث بعد التحديث (يعني بعد كتابة الاسم كاملا) تكتب هذا 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 طبعا عملت التسلسل بالأكسل ثم نسختها للأكسس .. يمكنك زيادتها كما تشاء .. أضف الحد الذي تريده

أستاذي ومعلمنا العزيز @ابوخليل .. وأنا يشرفني كثيرا أنك أول الحضور والمعلقين 🙂 🌹 عمت الفرحة وزاد الهنا ☺️ أجاب الله دعواتك .. وعمت بركاتك .. ونفعنا الله بك .. وحفك التوفيق والتسديد 🤲🏻

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹

أدخل في الماكرو الموجود على الزر وغير طريقة عرض التقرير إلى > طباعة .. بدل معاينة الطباعة

وعليكم السلام ورحمة الله وبركاته .. جرب هذه الفكرة 🙂 Patient Sample Tracking.accdb

أو يمكنك استخدام هذه الأكواد البديلة : 3 دوال لـ ( نسخ - لصق - تفريغ الذاكرة ) شرح الكود: ضع الكود كاملا في موديول ثم استخدمه في البرنامج كما هو واضح في الأسفل .. الكود: '==================================================(Copy) Public Function CopyText(ByVal Text As Variant) As Boolean CopyText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text) End Function '==================================================(Paste) Public Function PasteText() As String On Error Resume Next PasteText = CreateObject("htmlfile").ParentWindow.ClipboardData.getData("Text") End Function '==================================================(Clear The ClipBoard) Public Function ClearClipBoardText() As Boolean ClearClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.clearData("Text") End Function طريقة الاستدعاء (الاستخدام): CopyText(Text) <------ للنسخ PasteText() <------ للصق ClearClipBoardText() <------ تفريغ الذاكرة

عمي قاسم .. ممكن تغير مكان الحفظ الإفتراضي إلى المجلد اللي تريده .. ( اتبع الخطوات : ) 🙂 ( الخطوة رقم 4 لعمل مجلد جديد للبرنامج بدل ما تحفظه على ال C مباشرة )

جربت التحميل هذه المرة ولم أواجه أي مشكلة ولله الحمد 🙂 ولكن كما أخبرتك سابقا .. الحساب التجريبي ممنوع من عمل أي شيء .. فقط فتح البرنامج وإغلاقه عندي سؤال : ما هو البرنامج الذي تستخدمه لعمل التنصيب ؟