اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو جودي

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    7329

  • تاريخ الانضمام

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

  • Days Won

    219

 نوع المحتوي 

كل منشورات العضو ابو جودي

  1. ابو جودي
    ان شاء الله تجد ضالتك هنا التأكد من الاتصال بجهاز محدد على الشبكة المحلية - ( سلسلة تفكيك برنامج الارشفة الاليكترونية - 1) - قسم الأكسيس Access - أوفيسنا (officena.net)
  2. ابو جودي
    اتفضل نفس الأكواد التى تفضل بها الاستاذ الكريم @الجموعي جزاه الله خيـــر مع بعض التعديلات التى تماسب طلبك تماما Test TimeToLettre.mdb
  3. ابو جودي
    ايه ده هو انت ما اخدت بالك ان علامة الصح اصلا اللى بتظهر وتختفى فى مربع النص ياللى تحت زر الامر المخفى بتعتمد على التنسيق الشرطى ؟! لا سحر ولا شعوذه ... هاد تنسيق شرطى بس
  4. ابو جودي
    اولا فى وضع التصميم اختر مربع النص الخاص بالتأشير ثم بعد ذلك اذهب الى conditional formatting >>---> التنسيق الشرطى وغير ما بدك بس لا تحكى السر لحد
  5. ابو جودي
    مش راح اقول لك سر 🤣🙃🤐
  6. ابو جودي
    عظم الله اجركم وجبر مصابكم وغفر لوالدكم اللهم اغفر له وارحمه وأكرم نزله وأبدله دارا خيرا من داره وأسكنه الفردوس الأعلى من الجنة إنا لله وإنا اليه راجعون اعتذر لم الاحظ المنشور الى الان
  7. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام تحية طيبة عطرة وبعد هل هناك فارق فى اسلوب ادراج بيانات من نموذج غير منضم الى الجدول فى الطرق الاتية الطريقة الاول من خلال RunSQL وبناء الاستعلام بالكود طبعا الطريقة الثانية من خلال DAO.Recordset وايهما اسرع فى حالة استخدام شبكة محلية وتقسيم قاعدة البيانات الى خلفية وامامية ؟ وهل هناك حالات تقتضى استخدام طريقة محددة
  8. ابو جودي
    اولا لا شكر على واجب ثانيا ارجوك بدون القاب لازم تركز فى التفاصيل
  9. ابو جودي
    طيب بص النموذج frmMain فى التصميم لاحظ وحود نربع تص باسم SelectedRec يجب ان يكون موجود فى النموذج tester كذلك وقم تبطبيق باقى الاوامر فى الاحداث
  10. ابو جودي
    ممكن مرفق حضرتك علشان افهم المشكله فى ايه واقول لحضرتك
  11. ابو جودي
    ممكن توصح اكتر حضرتك عاوز تعمل ايه
  12. ابو جودي
    كل الشكر والتقدير لاخوانى الكرام واساتذتى على مشاعركم الطيبة تنويه بسيط .. تم التعديل على المرفق بحذف سطرين كنت قد نسيت ازالتهما اناا جدا اسف ☺️ كما تم تفعيل هاى لايت عند التأشير باختيار السجل على كامل السجل كنت قد نسيت ايضا تفعيله محدش يزعق انا عرفت غلطى
  13. ابو جودي
    اعد رفع المرفق مرة أخرى
  14. ابو جودي
    للاسف انا والله ما عارف اعمل ى شئ انا اسف جدا جدا ولكن لا تقطع لرجاء من الله ان يسهل لاحد اساتذتنا الكرام الامر ويجرى الحل على يديه ان شاء الله
  15. ابو جودي
    الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل طيب اتفضل طلبك جاهز هدية متواضعة : مربع اختيار غير منضم فى نموذج مستمر ☺ - قسم الأكسيس Access - أوفيسنا (officena.net)
  16. ابو جودي
    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته اولا واخرا وقبل كل شئ سبحانك لا علم لنا الا ما علمتنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك الحمد لله الذى هدانا وما كنا لنهتدى لولا أن هدانا الله عزوجل أحبابى واخوانى الكرام أضع بين اياديكم تلك الهدية البسيطة المتواضعة راجيا من الله عزوجل تنال اعجابكم ورضاكم MultiSelectInContinuousForms (V2).mdb
  17. ابو جودي
    طيب ابشر .. انتظر بمخمخ لك فى فكرة ممكن تنفع ان شاء الله
  18. ابو جودي
    ده اللى حضرتك عايزة واللا اناا فهمت غلط ؟! ان مش هو اللى انت محتاجه لا تخجل فى طلب ما تريد مرارا وتكرارا لحد ما حد يلبى رغبتك
  19. ابو جودي
    فى مشكلة فى المرفق ولاحظ كلمة Unavailable
  20. ابو جودي
    طيب شوف الفكرة دى tester.accdb
  21. ابو جودي
    ماشى كنت لسه بارفع الحل
  22. ابو جودي
    رائع ما شاء الله تسلم ايدك ولكن ان سمخ وقتكم الثمين برفع المرفق حتى اتعلم منكم استاذى القدير
  23. ابو جودي
    التطبيق call Sub Routine.mdb
  24. ابو جودي
    على كل جرب الاتى Form_SubformName.MySubroutine
  25. ابو جودي
    أى طريقة افضل هذه Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop أم تلك Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("table1") Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) rs.AddNew rs("dater1") = dt + 1 rs.Update Loop rs.Close Set rs = Nothing
×
×
  • اضف...

Important Information

  I accept