اذهب الي المحتوي
أوفيسنا

Moosak

أوفيسنا
  • Posts

    1,907
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    50

كل منشورات العضو Moosak

  1. وعليك السلام ورحمة الله وبركاته باش مهندس @Foksh 🙂 تحفة جديدة تضاف للمكتبة العربية العامرة .. ما شاء الله تبارك الله 😊🌷 ملاحظتين فقط 😅✌ : 1- ياليت لو تضيف أيضا من ضمن البيانات ( التسمية التوضيحية ) ، هذي أنا عندي من الأساسيات 😁👌 2- لو تخليه يعمل المفتاح الأساسي لحقل الترقيم التلقائي ويتعرف عليه تلقائيا .. وإذا ما وجد حقل ترقيم تلقائي ينشيء واحد جديد ويسميه ID . نفس طريقة الأكسس .. 🙂 والله يعطيك العافية على هذي الإبداعات
  2. وعليكم السلام ورحمة الله وبركاته .. أنظر هنا لعلك تجد ما يعجبك 🙂 :
  3. أخي @hanan_ms أنت ماهر في تصميم النماذج ولديك خبرة في استخدام عناصر Active x 🙂 أيش رايك تعمل سلسلة دروس في كيفية استخدام هذي العناصر والتحكم فيها.. ( ولكن في مواضيع مستقلة بك وبشكل منظم .. بدل ما توزع المعلومات في مواضيع المنتدى بشكل متفرق ) .. كل مرة تشرح أداة من هذي الأدوات .. من بداية إدراجها .. واستخداماتها .. وكيفية تضبيطها .. والتحكم في خياراتها .. أيش رايك ؟؟ 🙂
  4. وهذي مشاركتي وفكرتي الصغيورة مع الإخوة 🙂🌷 قائمة منسدلة واحدة لجميع الحقول .. وجمعت الكود كله في موديول واحد .. طريقة التطبيق سهلة جدا .. 1- نسخ القائمة المنسدلة في النموذج المطلوب مع الأوامر اللي في حدث بعد التحديث ،، 2- تحديد جميع الحقول المستهدفة وكتابة الدالة الموضحة في حدث عند النقر المزدوج .. الدالة الخاصة بجميع الحقول : الدالة الخاصة بالقائمة المنسدلة المتخبية على الزاوية : 😁 الأكواد اللي في الموديول : المرفق : Drop List For Many Fields (Moosak).accdb
  5. إليك الكود المعدل الذي سيسمح لك بإغلاق صفحات النموذج المحددة بدلاً من إغلاق جميع صفحات النماذج المفتوحة: 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 خلاف ذلك. بهذا الكود المعدل، يمكنك الآن تحديد صفحات النماذج التي تريد إغلاقها عند فتح النموذج الحالي، بدلاً من إغلاق جميع صفحات النماذج المفتوحة. ما يحتاج أخبرك من وين جبت الجواب
  6. ما شاء الله تبارك الرحمن .. لله درك باش مهندس @فريدالطحان هذه الإفتتاحية لها ما بعدها إن شاء الله من تطور قواعد البيانات بإذن الله ☺️👌🏼
  7. الله الله الله .. من أيهما أعجب؟ .. من الشرح أم من التطبيق!! 😊🌹 لله دركم جميعا 🌹🌷
  8. شيخنا @ابوخليل ليتك تشرح فكرة الملف 🙂🌹
  9. أنصحكم بإضافة هداياكم القيمة لمكتبة الموقع : 🙂 https://www.officena.net/ib/files/category/5-قسم-الأكسيس/
  10. أنصحكم بإضافة هداياكم القيمة لمكتبة الموقع : 🙂 https://www.officena.net/ib/files/category/5-قسم-الأكسيس/
  11. شكرا لك أخي فريد @فريدالطحان على الهدية والمشاركة 🙂 وأهلا وسهلا بك دائما 🌷
  12. أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂 وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !! لذلك لم تجد من يجيبك على سؤالك 🙂
  13. من كوكب مصر 😄👌 أنا نفسي فيها برده 😂 أصعب نص ساعة في العالم 😅 هو دا كلام برده ؟!! 😏 ما حدش يلعب في حقل الألغام ،، عايزني أبوض عليك الدنيا ؟؟!! كمل جمايلك يا حبيبي وخلينا أحنا اللي نعبي يابه ند أيه يا عم الناس ؟؟؟؟؟؟ أنا لسه منبهر من شغلك ومش عارف موقعي من الإعراب من كثر إعجابي بمهاراتك ما شاء الله أحبك الله الذي أحببتني فيه ، والله لا يحرمنا من أخوتك وهذا الوجه البشوش والروح المرحة 😊🌷🌹
  14. ألف لا بأس عليك يا بروف 🌹🌷 ( شكله الأستاذ محمد عداني 😅 ) أسأل الله العظيم رب العرش العظيم أن يشفيك من كل داء ويعافيك من كل بلاء 🙂🤲🏻
  15. الله أكبر .. الله أكبر الناس كلها في حتة .. وأنت في حتة تانية خاااااااااااااااااااااااالص شغل معلمين محترم .. وتفكير إبداعي مش خارج الصندوق بس .. دا من كوكب ثاااااني بسم الله ماشاء الله .. مش خسارة عليك المليون جنيه والله نص ساعة وأنا أحلل الكود وأقطع فيه .. فعلا أنت تخليني أعيد التفكير في نفسي وشغلي 😂 أحييك على المهارة دي .. ربنا يبارك لك يارب 😊🤲🏻
  16. أنا عارف أنك عايز الإحترافي الإحترافي اللي ما حصلشي @ابو جودي 😅😁 لكن الوضع دالوقتي هو ده : وأما الحبشتكنات دي : مكانها في الـ Version 2.16 إن شاء الله
  17. الله .. الله .. الله .. 🤗 العنوان لوحده رزانة وهيبة .. 🙂 أبنائكم وتلاميذكم عمي @ابوخليل 😊🌷 أجاب الله دعواتك 🙂🤲
  18. أبشر بسعدك عمي @ابوخليل 😊🌹 أضفت زرين في نافذة إعداد اللعبة : طباعة اللعبة / طباعة الحل : التحميل 🙂 : ‏‏لعبة الكلمات المتقاطعة الإصدار 2.accdb
  19. كلنا مبسوطييييين منها الحمدلله 😄🖐 طب دالوقتي بعد ما عملت ريستارت للسستم بتوعك إشرح لنا الحلاوة دي 😁
×
×
  • اضف...

Important Information