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

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      23

    • Posts

      11,630


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      11

    • Posts

      6,818


  3. Moosak

    Moosak

    أوفيسنا


    • نقاط

      7

    • Posts

      1,997


  4. متقاعد

    متقاعد

    الخبراء


    • نقاط

      5

    • Posts

      583


Popular Content

Showing content with the highest reputation on 18 يول, 2022 in all areas

  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. السلام عليكم و رحمة الله و بركاته : اسات\تي الكرام : قاعدة بيانات بها : 6 جداول : 01/ جدول معطيات التلاميذ : Tb_donnéesEleve 02 / جدول الشهائد الطبية : Tb_CertfMedcl 03 / جدول الاساتذة : Tb_Enseignant 04 / جدول المواد : Tb_Matiere 05/ جدول المؤسسة التربوية : Tb_Etablissement 06/ جدول الاقسام : Tb_class كل هذة الجداول في علاقة ببعضها من خلال جدول : تبرير الغيابات : Tb_JustificationAbcence الان : ماذا اريد من ذلك كله ؟ مثلا عندما يتغيب التلميذ مثلا : فلان الفلاني عن اجراء فرض يقدم الى الادارة شهادة طبية تغطي مدة الغياب يقوم العون المكلف بتسجيل هذه الشهادة بجدول : Tb_CertfMedcl عن طريق نموذج تسجيل الشهائد الطبية ثم يقوم بتسجيل تبرير الغياب بجدول : Tb_JustificationAbcence عن طريق نموذج اخر ثم يقوم بطباعة وثيقة تبرير الغياب المشكل : انني قمت بربط الجداول لكن محاولاتي لتجميعها بنموذج واحد بائت بالفشل ربما في عملية الربط خطئ ما . اساتذتي الكرام هل بالامكان مساعدتي في انشاء هذا النموذج لقد قمت بارفاق مثال يحتوي على المطلوب شكرا لكم على رحابت صدوركم و جعل الله اعمالكم في ميزان حسناتكم اخوكم عمار الدربالي "يوما ما ستدرك ان اقسى ما مررت به ، كان خيرا عظيما انق\ك ليجعلك اقوى مما كنت عليه " المثال المرفق.rar
    1 point
  11. والله نبهنا كثير جداً على هذا الأمر ... الذى يؤدى بدوره الى اهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية ... فلا يمكن العمل على التخمين كما انه لا يمكن العمل نهائياً بدون ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة!!!!!
    1 point
  12. التعديل في تقرير جديد تم تقسم التقرير الى جزين الجزء الثاني داخل الجزء الأول مرتبط بالإسم عند البحث عرض التقرير مرفق الملف بعد التعديل اجازات الضباط_1.1.zip
    1 point
  13. كل الاحترام اخ ابو جودي الله يزيدك من علمة كل الاحترام شكرا كثير
    1 point
  14. اكثر الله خيرك وزادك ورزقت الجنة اللهم امين يارب
    1 point
  15. هات البرنامج الرئيسي لان انا ما عدلت اى شئ الا فى النموذج الرئيسي فقط
    1 point
  16. ستة جداول في نموذج واحد امر غير مألوف بالنسبة لي ربما نحتاج لبعض البيانات من هذه الجداول ولكن نستخدم مربعات التحرير والسرد للحصول على قيمة حقل او اكثر او نستخدم بعض الدوال على كل حال مراقب بصمت لعل احد الخبراء او الاساتذة يشرح كيف يتم ذلك فهذا امر جديد بالنسبة لي وارغب في التعلم واكتساب الخبرة تحياتي وتقديري وبالتوفيق باذن الله
    1 point
  17. جزاكم الله خيرا على دعواتكم الطيبة اسأل الله تعالى ان يرزقكم فضلها الحمد لله الذى تتم بنعمته الصالحات
    1 point
  18. ابو جودي حفظك الله ورعاك بارك الله فيك وبك وزال همك واكثر مالك وبارك فى ال بيتك وحفظك وغفر لك اللهم امين اللهم امين يارب احبك فى الله اخى
    1 point
  19. الاجابة رزق ولها وقتها الذى يقدره الله تعالى .. هنيئا لكم احبكم الله الذى احببتمونا لأجله وانا احبكم فى الله ولله كذلك جزاكم الله خيرا على دعواتكم الطيبة اسأل الله تعالى ان يرزقكم فضلها وبخصوص موضوع التعب .. لم اقصد الملل او التعب والله ولكن فعلا فهم السؤال شطر الجواب انا لا عارف اعمل ايه ولا الناتج شكله ايه المشكلة حضرتك بتتعامل فى الحوار وعرض الموضوع على اننا فاهمين افكارك وشكل الناتج النهائى بالارقام وعل كل حال اليكم التعديل على مرفقين والاثنان ان شاء الله تعالى يعملان بكفاءة اختر ما يعجبكم الاختلاف فى المرفق الاصدار الثانى هو الاستغناء عن مربعات السرد فى النموذج الفرعى Financial Management System.zip
    1 point
  20. مسألة صنع نموذج يتحكم بنموذج آخر انا عتبره عمل غير مجدي وغير احترافي طيب يوجد حل آخر وهو ان تجعل النموذج غير منضم ويتم ارسال البيانات الى الجدول من خلال الكود اذا تحقق الشرط
    1 point
  21. 1 point
  22. وهذا تعديل من اخر ببعض التعديلات لالغاء الكمبو بوكس من النموذج الفرعى واخيرا اتمنى على الله تعالى ان لا تكون هناك تعديلات اخرى لات بجد تعبت خلاااااااص Test1(5).zip
    1 point
  23. 1 point
  24. اخى العزيز ...حسين-مامون/ اشكرك جدا على الحل وهذا ما اعتدنا علية من هذا الصرح والعاملين علية بارك الله لك وجعلة فى ميزان حسناتك فانت لاتعرف مدى الخدمة التى قدمتها لى
    1 point
  25. عملت لك نموذج الاختيار الاهداف في نموذج اختيار الخطة وضعت زر امر يفتح النموذج المساند للاختيار المتعدد وبالتالي يمكن اختيار اكثر من هدف كل مرة ويمكنك الاستمرار على الطريقة السابقة اي انه يمكن اضافة هدف كل مرة او مجموعة من الاهداف الاهداف بلون مختلف في النموذج الجديد تعني انها موجود مسبقا لدى الطفل فلا يتم اضافتها مره اخرى حتى لا يحصل تكرار صحيح ممكن منع التكرار او منع ظهور هذة الاهداف ضمن النموذج ولكن ليس لدي وقت ولا طولة البال تحياتي برنامج اعداد الخطط لمركز السلام(3).accdb
    1 point
  26. وعليكم السلام يمكن الاطلاع على الرابط التالي
    1 point
  27. تفضل تـــم التعديل وذلك بسبب مشكلتك انت مع الكود لأنك لغيت سطر إظهار التكست بوكس كتاريخ 1حلقات مسجد الجامع....xlsm
    1 point
  28. وعليكم السلام-بعد اذن الأستاذ محمد يوسف-تفضل فاتورة جديدة12022.xls
    1 point
  29. كل عام وانتم بخير ادعو الله ان يتقبل منا ومنكم سائر الأعمال
    1 point
  30. وعليكم السلام-اجعل المعادلة هكذا =IF(A3="","",IF(OR($A3="Can limon",$A3="meritte"),0%,IF($A3="Rosie",100%,70%))) New Microsoft Excel Worksheet (1).xlsx
    1 point
  31. وعليكم السلا-فقط استخدم هذه المعادلة =COUNTIF($A$2:$A$150,">0") عد الخانات التي تحتوي على ارقام عدا التي تحتوي على صفر و الفراغ1.xlsx
    1 point
  32. وعليكم السلام عليك بإستخدام خاصية البحث بالمنتدى فبه طلبك تعديل كود حذف الهمزة من الألف والنقطة من التاء المربوطة
    1 point
  33. بارك الله فيك استاذ محمد وكل عام وانتم بخير
    1 point
  34. 1 point
  35. وعليكم السلام اللهم امين .. كل عام وانتم بخير استاذ محمد اللهم اوعدك بحج بيته الحرام
    1 point
  36. جزاك الله كل خير جعل الله هذا العمل فى ميزان حسناتك
    1 point
×
×
  • اضف...

Important Information