Moosak

آمين يارب .. ربنا يستجيب دعواتكم ويحقق أمنياتنا وأمنياتكم 😊🤲🏻🌷🌹 :: والآن مع التشويقة الثانية 😎✌ :: :: تحكم كامل بعدد الأزرار والأزرار الفرعية والتسميات والأوامر مع إضافة أيقونات للأزرار بواجهة سهلة الاستخدام وبدون الحاجة للدخول لوضع التصميم ::

عمي العزيز الغالي @الحلبي 😊🌹 لعلك لم تلاحظ أني وضعت لك قلب كبير كقلبك الجميل 😅👈🏻 مكانك في القلب عمي العزيز ومنك المعذرة لعدم ذكرك بالاسم في الردود 🤗 ومما يزيدني سعادة إعجابك ببضاعتي المزجاة ، وهذا من حسن ضنك 🙂 وأبشر إن شاء الله بالجديد ، حاليا أضع اللمسات الأخيرة عليه 😉 ربنا يوفقنا وإياك للخيرات، ويجمعنا بك وبجميع أعضاء أوفيسنا في أعالي الجنات ☺️🤲🏻

طبعا صور ال PNG نعمة .. وممكن تعمل بها أشكال جميلة جدا .. 🙂 ولكن تراعي دائما عدم الإكثار منها لأنها تزيد حجم القاعدة بالكيلو 😁 + وكذلك تصغير حجم ملف الصورة بأكبر قدر ممكن من خلال الفوتوشوب أو أي برنامج تصميم آخر 👍🙂

مش هتصبر لحد ما تذوقنا .. أنا عارفك 😅😅🖐 طبعا عارف ذكي يعني أيييه 😊 وخصوصا لما يكون جاي من ناحيتك 😉👌 مستنينك ياعم .. شكلها دي فترة تفجر للإبداعات

حتدفع كام ؟؟ !!

:: قريبا إن شاء الله 😊👌 :: واجهة متطورة بألوان جذابة :: وقائمة رئيسية يمكن تحريرها بسهولة و لها أزرار فرعية :: بأبسط ما يكون

الآن يا @hanan_ms بدأت تتدفق الأفكار الجميلة منك 😎 شكرا على هذه الفنيات الجميلة 👍🙂🌷

كلك إبداع يابو هندسة @ابو جودي ما شاء الله 🙂👌 لمساتك على المشاريع زي الكرزة الي بتتحط فوق التورتة وزي ما بيقولوا : ( حطيت النقاط على الحروف ) 😄🌷 وتحفة تخش على المكتبة من أوسع الأبواب 🖐 ولازلنا ننتظر مشروع مستر @Foksh المرتقب

راااااااائع ما شاء الله عليك مستر @Foksh 😊👌🏻 تطور وإبداع وتميز 🙂 باقي عندك نقطة التعديل .. عند الضغط على زر التعديل تتجمد الحقول ولا يمكن التنقل بينها ( يتسمر على الحقل الأول بس ) لا يروح السابق ولا التالي 😅🖐🏻

السلام عليكم أخي عبدالله 🙂 جرب هذا الكود حصلت عليه من الذكاء الاصطناعي : Private Sub ChangeRibbonName() Dim RibbonUI Set RibbonUI = Application.CommandBars("Ribbon").Controls("MyRibbonTab") RibbonUI.Caption = "New Ribbon Tab Name" End Sub المصدر : https://poe.com/s/J0iF2yZJzcWS5qH5umBo

معلم .. ومنك نتعلم 😇 بس لسه فيه رسائل خطأ بتظهر عند إنشاء الجدول .. وما يكملش .. وهذه تظهر في حال التعليم على الخيار

يعمل بكفاءة ما شاء الله تبارك الرحمن 😎👌 غفر الله لك ولوالديك ورحمهما كما رباياك صغيرا .. 🤲

ال Caption من ضمن خصائص الحقول في الجدول 😎✌

وعليك السلام ورحمة الله وبركاته باش مهندس @Foksh 🙂 تحفة جديدة تضاف للمكتبة العربية العامرة .. ما شاء الله تبارك الله 😊🌷 ملاحظتين فقط 😅✌ : 1- ياليت لو تضيف أيضا من ضمن البيانات ( التسمية التوضيحية ) ، هذي أنا عندي من الأساسيات 😁👌 2- لو تخليه يعمل المفتاح الأساسي لحقل الترقيم التلقائي ويتعرف عليه تلقائيا .. وإذا ما وجد حقل ترقيم تلقائي ينشيء واحد جديد ويسميه ID . نفس طريقة الأكسس .. 🙂 والله يعطيك العافية على هذي الإبداعات

وعليكم السلام ورحمة الله وبركاته .. أنظر هنا لعلك تجد ما يعجبك 🙂 :

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

جميل ما شاء الله 👍🏻🙂 واصل إبداعاتك 😉👌

وهذي مشاركتي وفكرتي الصغيورة مع الإخوة 🙂🌷 قائمة منسدلة واحدة لجميع الحقول .. وجمعت الكود كله في موديول واحد .. طريقة التطبيق سهلة جدا .. 1- نسخ القائمة المنسدلة في النموذج المطلوب مع الأوامر اللي في حدث بعد التحديث ،، 2- تحديد جميع الحقول المستهدفة وكتابة الدالة الموضحة في حدث عند النقر المزدوج .. الدالة الخاصة بجميع الحقول : الدالة الخاصة بالقائمة المنسدلة المتخبية على الزاوية : 😁 الأكواد اللي في الموديول : المرفق : Drop List For Many Fields (Moosak).accdb

اللهم آمين .. وإياكم أخي العزيز 🙂🌹

أرفق ملفك أخي @pingo22 🙂

إليك الكود المعدل الذي سيسمح لك بإغلاق صفحات النموذج المحددة بدلاً من إغلاق جميع صفحات النماذج المفتوحة: Private Sub Form_Current() Dim FormCount As Integer Dim I As Integer Dim FormNamesToClose As Variant ' أضف أسماء صفحات النموذج التي تريد إغلاقها في هذه المصفوفة FormNamesToClose = Array("Form1", "Form2", "Form3") FormCount = Forms.Count For I = FormCount - 1 To 0 Step -1 If IsInArray(Forms(I).Name, FormNamesToClose) Then DoCmd.Close acForm, Forms(I).Name End If Next I End Sub Private Function IsInArray(ByVal stringToSearch As String, ByVal arr As Variant) As Boolean Dim i As Integer For i = LBound(arr) To UBound(arr) If arr(i) = stringToSearch Then IsInArray = True Exit Function End If Next i IsInArray = False End Function هنا كيف يعمل الكود المعدل: 1- مصفوفة FormNamesToClose تحتوي على أسماء صفحات النماذج التي تريد إغلاقها عند فتح النموذج الحالي. يمكنك إضافة أو إزالة أسماء النماذج من هذه المصفوفة حسب الحاجة. 2- دالة Form_Current() تقوم بالتمرير على جميع صفحات النماذج المفتوحة باستخدام خاصية Forms.Count. 3- لكل صفحة نموذج، يتحقق ما إذا كان اسم النموذج موجودًا في مصفوفة FormNamesToClose باستخدام دالة المساعدة IsInArray(). 4- إذا كان اسم النموذج موجودًا في مصفوفة FormNamesToClose، يتم استخدام بيان DoCmd.Close لإغلاق تلك صفحة النموذج. دالة IsInArray() هي دالة مساعدة تتحقق مما إذا كان السلسلة المعطاة موجودة في المصفوفة المقدمة. إنها تُرجع True إذا تم العثور على السلسلة، وFalse خلاف ذلك. بهذا الكود المعدل، يمكنك الآن تحديد صفحات النماذج التي تريد إغلاقها عند فتح النموذج الحالي، بدلاً من إغلاق جميع صفحات النماذج المفتوحة. ما يحتاج أخبرك من وين جبت الجواب

ما شاء الله تبارك الرحمن .. لله درك باش مهندس @فريدالطحان هذه الإفتتاحية لها ما بعدها إن شاء الله من تطور قواعد البيانات بإذن الله ☺️👌🏼

الله الله الله .. من أيهما أعجب؟ .. من الشرح أم من التطبيق!! 😊🌹 لله دركم جميعا 🌹🌷

شيخنا @ابوخليل ليتك تشرح فكرة الملف 🙂🌹

حتى أعمالك السابقة 😉👌