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

نجوم المشاركات

  1. أبوأحـمـد

    أبوأحـمـد

    03 عضو مميز


    • نقاط

      4

    • Posts

      347


  2. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      2

    • Posts

      12,158


  3. kanory

    kanory

    الخبراء


    • نقاط

      2

    • Posts

      2,256


  4. حسونة حسين

    حسونة حسين

    أوفيسنا


    • نقاط

      2

    • Posts

      1,039


Popular Content

Showing content with the highest reputation on 10 أغس, 2023 in all areas

  1. بارك الله فيك استاذ محمد والف شكر على التعديل انا لا اريد احد يعمل لصالحي ولا احب اكلف على أحد وكل طلبي كود أو دالة تلبي طلبي او رابط لمشاركة فيها ما أريد وصدقني بحثت كثير في المنتدى وخارجه ولم اجد الحل والف شكر على جهدك وردك وبالفعل هذا ما أريد
    2 points
  2. هذا الموضوع تمت معالجته قبل ذلك كثيرا وبقليل من البحث كنت ستصل لضالتك ورغم أن الملف لا يوجد به أي محاولة من حضرتك وهذا يعني أنك تريد أن يعمل غيرك لصالحك وليس الهدف التعلم كما هو هدفنا في المنتدى رغم كل ما سبق هذا جهدي المتواضع في ملفك بالتوفيق إنشاء شيتات وربطها بالرئيسية.xlsb
    2 points
  3. بارك الله في جهودكم وتفاعلكم .. شكرا ابو احمد على التطوير والاضافة الجميلة للبرنامج
    2 points
  4. عملنا مثلها سابقا .... حاول الاستفادة من دروس السابق .... هنا انظر <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    1 point
  5. للاسف عندك بعض المواد فيها علامات Unicode لذلك وجدت صعوبة في قرائتها بالكود انظر مثلا الطالب رقم 5919513 !!!!!!!!
    1 point
  6. بارك الله في مجهوداتكم الطيبة ونرجو إضافة ضمن خيارات الحفظ تحويل مجموع من ملفات الوورد إلى PDF دفعة واحدة
    1 point
  7. هذا طبيعي لان الترقيم في الاستعلام اصبح حقلا حقيقيا ثابتا ، فعند التصفية في النموذج فهو يعرض الرقم الحقيقي للسجل الموجود في الاستعلام فالآن التصفية تتم في النموذج ، وعلى ذلك يلزم الترقيم في النموذج Aziz5_05.rar
    1 point
  8. لم تضف الكود كاملا نسيت هذا ضعه في الموديول Module Function fnd2(n As Long, s As Long) Dim ItemRow As Integer ItemRow = WorksheetFunction.Match(n, Sheet1.Range("A1:A99999"), 0) If ItemRow = Empty Then Beep: Exit Function fnd2 = Sheet1.Range("S" & ItemRow).Value - s End Function
    1 point
  9. اقرأ الكود جيدا أو على الأقل جرب البرنامج أضفت لك في الكود البرمجي أشياء أصل لم تطلبها لمنع التسجيل عدم تحديد كود الصنف عدم كتابة عدد القطع بالإضافة إلى هل الرصيد كافي Exit Sub تعني اخرج من الإجراء
    1 point
  10. الشياب يتمتعوا بالحكمة والوقار وكلنا شياب اخذت السنين حقها في وقتها شكرا لك
    1 point
  11. DoCmd.Restore اخونا الفاضل شايب 🌹
    1 point
  12. جزاك الله خيراً وجعلة الله بميزان حسناتك باذن الله
    1 point
  13. تفضل التحاليل الطبية.xlsx
    1 point
  14. جزاكم الله خيراً أخي الكريم بارك الله بجهودكم .أسأل الله تعالى أن يتقبل منا ومنكم صالح الأعمال حبذا لو كان بدلاً من المعادلة التي تستخدم دالة Filter بشكل رئيسي أن يكون هناك كود يؤدي الغرض ذاته لتوفره في معظم النسخ بينما دالة Filter لا يمكننا استخدامها في نسخ 2016 وما قبل ، أما إن كان هناك تحديث ليشمل هذه الدالة في نسخة 2016 يرجى إفادتنا به والسلام عليكم.
    1 point
  15. بارك الله فيك اخي @taas2079 وجعله في ميزان حسناتك
    1 point
  16. بعد اختيار الصنف سيظهر رصيدة في خانة الملاحظات - تستطيع عمل حقل اخر له عند كتابة الكمية اذا كانت الكمية اكبر من المتوفر تظهر لك رساله تستطيع بعد ذلك عمل المناسب من الاوامر بالتوفيق Database5.accdb
    1 point
  17. اين هذا الجدول ؟؟؟؟ ارجو ارفاق نموذج به بيانات وهمية للتجريب والمحاولة ...
    1 point
  18. تفضل كود نسخ البيانات.xlsm
    1 point
  19. 1 point
  20. وعليكم السلام-تفضل بما انك لم تقم برفع ملف للمطلوب ..فهذا الفيديو به طلبك
    1 point
  21. جزاكم الله خيراً أخي الحبيب أبو عاصم. Speed Test
    1 point
×
×
  • اضف...

Important Information