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

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      23

    • Posts

      11641


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      11

    • Posts

      7073


  3. Moosak

    Moosak

    أوفيسنا


    • نقاط

      7

    • Posts

      2206


  4. متقاعد

    متقاعد

    الخبراء


    • نقاط

      5

    • Posts

      583


Popular Content

Showing content with the highest reputation on 07/18/22 in مشاركات

  1. السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb
    6 points
  2. وعليكم السلام -يمكنك ذلك بهذه المعادلة =COUNTIFS($E$3:$E$500,$E3,$D$3:$D$500,$D3)>1 التنسيق الشرطي للتكرار بشرط1.xlsx
    4 points
  3. السلام عليكم ورحمة الله وبركاته ليعمل البرنامج المكتبي من خلال الإنترنت فأنت بحاجة إلى التحويل إلى قواعد بيانات كلاود وهذه تكلفتها عالية لا يقبل بها العميل في الغالب. في حال كان هناك أكثر من فرع فيمكن أن تتم عملية مزامنة بين الفروع والمقر الرئيسي أو ما يسمى في بعض البرامج العالمية (Pulling) وذلك من خلال تسجيل عمليات المبيعات و المشتريات والحركات الأخرى في جداول إضافية يتم مزامنتها من السيرفر الرئيسي (الجهاز الذي تم تثبيت النسخة الأساسية). وللمعلومية في كثير من الأحيان يكون MSSQL Express كافيا. أعتقد أن طريقة ربطك بين النماذج والجداول هي التي تحدد سرعة الاتصال .. طبعا أتكلم عن الشبكة الداخلية أما الإنترنت فالتحول حسب وجهة نظري إلى الويب بيس (سواء باستخدام تقتيات .Net أو PHP) وسيعمل حينها برنامجك من المتصفح وهذا الحل أفضل وأرخص الحلول أما عن سؤالك الثاني: نعم سيحتاج كل فرع أن تثبت نسخة واحدة من سيرفر MSSQL على أحد الأجهزة والبقية يتم ربطهم به. قارن بين قواعد البيانات الأخرى فقد تجد ضالتك في نوع آخر من القواعد مثل SQLite يمكنك الاطلاع على مقارنة بين مشغلات قواعد البيانات المختلفة http://erikej.blogspot.com/2011/01/comparison-of-sql-server-compact-4-and.html
    3 points
  4. للأسف مع الاكسس لا sql server ممتاز مع لغات اخرى غير الاكسس و تقدر تجرب و بشكل مجاني من خلال سيرفر SOMEE - انشئ حساب جديد - انشئ قاعدة بيانات جديدة - اضف جدول جديد بعدها استخدم جملة الاتصال و الاستعلام للتجربة
    3 points
  5. نعديل بسيط ...تم اعمل تظليل للصف الذي به البحث عند عمل كليك في اللست بوكس ولا تنسي ..عند عمل دبل كليك علي كل من تكست بوكس او كومبوبكس ..يتم تفريغ كل منهما Test_2.xlsm
    3 points
  6. اذا ناوى تتعامل مع سيكوال يبقى سيب الاكسس وروح ل vb.net ولكن سيكون هناك اختلافات قليلة فى بناء الاكواد وبما انك نويت التغيير ما انصجك بال vb.net انصحك بالتوجه فورا وبدون تفكيــر لـ #C
    2 points
  7. الشكر لله اخي احمد ثم لكم على جهودكم لخدمة فئة عزيزة علينا من ذوي الاحتياجات الخاصة اسأل الله لكم التوفيق والسداد ولاحبائنا الصغار الشفاء العاجل وان نراهم اعضاء فاعلين في مجتمعهم تحياتي وتقديري
    2 points
  8. تسلم ايدك مبرمج سابق ربنا يبارك فيك علي هذا المجهود الرائع انت مش عارف هتساعد كد ايه في انجاز عمل كهذا لخدمة الاطفال المعاقين والتسهيل من وضع خطط لعلاجهم الف شكر وربنا يجازيك خير الجزء بكل هدف هيتم اختياره لعلاج هؤلاء الاطفال لان كلماتي تعجز عن تقدير مجهودك ولن انسي كل الزملاء الافاضل بالمنتدي اللي ساعدوني لغاية وصول البرنامج بهذا الشكل ربنا يكرمهم بخير الجزاء
    2 points
  9. السلام عليكم ورحمة الله وبركاته .. اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 وهذا هو الموقع : https://denigma.app الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA .. وهذا شرح مبسط للاستخدام .. بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى : نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!] : ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 هذا وسلامتكم ☺️🌹
    1 point
  10. والله نبهنا كثير جداً على هذا الأمر ... الذى يؤدى بدوره الى اهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية ... فلا يمكن العمل على التخمين كما انه لا يمكن العمل نهائياً بدون ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة!!!!!
    1 point
  11. التعديل في تقرير جديد تم تقسم التقرير الى جزين الجزء الثاني داخل الجزء الأول مرتبط بالإسم عند البحث عرض التقرير مرفق الملف بعد التعديل اجازات الضباط_1.1.zip
    1 point
  12. اكثر الله خيرك وزادك ورزقت الجنة اللهم امين يارب
    1 point
  13. ستة جداول في نموذج واحد امر غير مألوف بالنسبة لي ربما نحتاج لبعض البيانات من هذه الجداول ولكن نستخدم مربعات التحرير والسرد للحصول على قيمة حقل او اكثر او نستخدم بعض الدوال على كل حال مراقب بصمت لعل احد الخبراء او الاساتذة يشرح كيف يتم ذلك فهذا امر جديد بالنسبة لي وارغب في التعلم واكتساب الخبرة تحياتي وتقديري وبالتوفيق باذن الله
    1 point
  14. جزاكم الله خيرا على دعواتكم الطيبة اسأل الله تعالى ان يرزقكم فضلها الحمد لله الذى تتم بنعمته الصالحات
    1 point
  15. ابو جودي حفظك الله ورعاك بارك الله فيك وبك وزال همك واكثر مالك وبارك فى ال بيتك وحفظك وغفر لك اللهم امين اللهم امين يارب احبك فى الله اخى
    1 point
  16. الاجابة رزق ولها وقتها الذى يقدره الله تعالى .. هنيئا لكم احبكم الله الذى احببتمونا لأجله وانا احبكم فى الله ولله كذلك جزاكم الله خيرا على دعواتكم الطيبة اسأل الله تعالى ان يرزقكم فضلها وبخصوص موضوع التعب .. لم اقصد الملل او التعب والله ولكن فعلا فهم السؤال شطر الجواب انا لا عارف اعمل ايه ولا الناتج شكله ايه المشكلة حضرتك بتتعامل فى الحوار وعرض الموضوع على اننا فاهمين افكارك وشكل الناتج النهائى بالارقام وعل كل حال اليكم التعديل على مرفقين والاثنان ان شاء الله تعالى يعملان بكفاءة اختر ما يعجبكم الاختلاف فى المرفق الاصدار الثانى هو الاستغناء عن مربعات السرد فى النموذج الفرعى Financial Management System.zip
    1 point
  17. مسألة صنع نموذج يتحكم بنموذج آخر انا عتبره عمل غير مجدي وغير احترافي طيب يوجد حل آخر وهو ان تجعل النموذج غير منضم ويتم ارسال البيانات الى الجدول من خلال الكود اذا تحقق الشرط
    1 point
  18. 1 point
  19. وهذا تعديل من اخر ببعض التعديلات لالغاء الكمبو بوكس من النموذج الفرعى واخيرا اتمنى على الله تعالى ان لا تكون هناك تعديلات اخرى لات بجد تعبت خلاااااااص Test1(5).zip
    1 point
  20. 1 point
  21. اخى العزيز ...حسين-مامون/ اشكرك جدا على الحل وهذا ما اعتدنا علية من هذا الصرح والعاملين علية بارك الله لك وجعلة فى ميزان حسناتك فانت لاتعرف مدى الخدمة التى قدمتها لى
    1 point
  22. عملت لك نموذج الاختيار الاهداف في نموذج اختيار الخطة وضعت زر امر يفتح النموذج المساند للاختيار المتعدد وبالتالي يمكن اختيار اكثر من هدف كل مرة ويمكنك الاستمرار على الطريقة السابقة اي انه يمكن اضافة هدف كل مرة او مجموعة من الاهداف الاهداف بلون مختلف في النموذج الجديد تعني انها موجود مسبقا لدى الطفل فلا يتم اضافتها مره اخرى حتى لا يحصل تكرار صحيح ممكن منع التكرار او منع ظهور هذة الاهداف ضمن النموذج ولكن ليس لدي وقت ولا طولة البال تحياتي برنامج اعداد الخطط لمركز السلام(3).accdb
    1 point
  23. وعليكم السلام يمكن الاطلاع على الرابط التالي
    1 point
  24. تفضل تـــم التعديل وذلك بسبب مشكلتك انت مع الكود لأنك لغيت سطر إظهار التكست بوكس كتاريخ 1حلقات مسجد الجامع....xlsm
    1 point
  25. وعليكم السلام-بعد اذن الأستاذ محمد يوسف-تفضل فاتورة جديدة12022.xls
    1 point
  26. أحسنت دكتور محمد بارك الله فيك وزادك الله من فضله .. وكل عام وانتم بخير
    1 point
  27. كل عام وانتم بخير ادعو الله ان يتقبل منا ومنكم سائر الأعمال
    1 point
  28. وعليكم السلام-اجعل المعادلة هكذا =IF(A3="","",IF(OR($A3="Can limon",$A3="meritte"),0%,IF($A3="Rosie",100%,70%))) New Microsoft Excel Worksheet (1).xlsx
    1 point
  29. وعليكم السلا-فقط استخدم هذه المعادلة =COUNTIF($A$2:$A$150,">0") عد الخانات التي تحتوي على ارقام عدا التي تحتوي على صفر و الفراغ1.xlsx
    1 point
  30. وعليكم السلام عليك بإستخدام خاصية البحث بالمنتدى فبه طلبك تعديل كود حذف الهمزة من الألف والنقطة من التاء المربوطة
    1 point
  31. تفضل لا يمكن عمل أكثر من هذا .. وبكده يبقى لديك طريقتان لطلب يمكنك الإختيار منهما حتى يتم غلق الموضوع .طريقة للأستاذ محمد صالح وطريقتى هذه قائمة منسدلة1.xlsx
    1 point
  32. تفضل المشكلة كانت من عندك لأنك محدد فى الكود ظهور ثلاثة أعمدة فقط تـــم تعديل وضبط الفورم كما تريد حلقات المساجد2.xls
    1 point
  33. بارك الله فيك استاذ محمد وكل عام وانتم بخير
    1 point
  34. 1 point
  35. وعليكم السلام اللهم امين .. كل عام وانتم بخير استاذ محمد اللهم اوعدك بحج بيته الحرام
    1 point
  36. جزاك الله كل خير جعل الله هذا العمل فى ميزان حسناتك
    1 point
×
×
  • اضف...

Important Information