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

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. الساعة الأخيرة
  2. أخي انت لم تستخدم الكود الذي ذكرته لك وحتى لم تكلف نفسك بتجربته على العموم نفس الكود اعلاه يعمل. فقط كلف نفسك وانقله الى ملفك يعني نسخ ولصق . وهذا ملفك مع نفس الكود اعلاه error (1).accdb
  3. طيب اخي الكريم . لماذا في التقرير لايجلب كل الاعداد للدئره ؟
  4. أخي الكريم @مازن الحسيني ، ليس للتقرير علاقة بالاستعلام المبني عليه لا من قريب ولا من بعيد . الاستعلام لعرض السجلات بشرط ملاك . وفي التقرير تريد جلب المجموع والأعداد لهذه السجلات
  5. واجهات الأستاذ موسى تفتح النفس ، والشهية .. ومثاله جميل وشامل لجميع النماذج وبما ان برنامجك يرتكز على نموذجين فقط سأسحب لك صلاحيات لبرنامج عندي مشابه تماما لتصميمك ان شاء الله انتظرني ...
  6. أخي سامر .. سيكون التعديل منقسماً إلى جزئين . الأول في الماكرو الموجود في حدث قبل التحديث للنموذج كالتالي :- من الجملة التالية :- DCount("[Ekhla_serial]","[Ekhla_Details]","[Ekhla_Details]![ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ألى الجملة التالية :- DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ثم سيتم التعديل على الاستعلام DO كالآتي :- من الجملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Details.Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], Ekhla_Details.coodee = [Forms]![Ekhla_Details]![coode], Ekhla_Details.Emp_Name = [Forms]![Ekhla_Details]![coodee], Ekhla_Details.ID_Number = [Forms]![Ekhla_Details]![ID_Number], Ekhla_Details.الموقع = [Forms]![Ekhla_Details]![y4], Ekhla_Details.الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); إلى جملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], coodee = [Forms]![Ekhla_Details]![coode], Emp_Name = [Forms]![Ekhla_Details]![coodee], ID_Number = [Forms]![Ekhla_Details]![ID_Number], الموقع = [Forms]![Ekhla_Details]![y4], الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); وأعلمني بالنتيجة أخي سامر .. Arciving222.zip
  7. Today
  8. السلام عليكم ورحمة الله رمضان كريم عليكم جميعا في قاعدة البيانات المرفقة وعند فتح frdata في النماذج واختيار اسم الدائرة لايظهر لي الاعداد كاملة في التقرير وتكون معظم المربعات في التقرير فارغة مع العلم يوجد اعداد, اتمنى حل تلك المشكلة ممن لديه الخبرة الكافية مع الشكر والتقدير مقدما مشكله.rar
  9. السلام عليكم ورحمة الله وبركاته ارجو المساعدة.. أصيبت ملفاتي بالفيروس وتم تشفير ها... هل هناك طريقة لاسترجاعها ... ارجو من حضراتكم المساعدة جزاكم الله خيرا
  10. في اي نموذج اخي @سامر محمود ، حدد لنا اذا سمحت
  11. بارك الله فيك اخى الكريم احتاج نموذج بصلاحيات مستخدمين فعال وشامل وبسيط اخى الكريم
  12. السلام السادة الافاضل كل و حضراتكم بخير محتاج كود VBA يقوم باستخراج متوسط درجات الطلاب فى كل قسم خلال فترة محددة من الجدول الملون باللون الاخضر الى الجدول الملون باللون الاصفر درجة الطالب الموجودة فى عمود التقيم الملون باللون الاخضر متوسط الدرجات = مجموع الدرجات / عدد مرات التدريب مثلا لو طالب دخل الورشة تزجة1 مرتين اول مره حصل على 9 درجات و المرة الثانية حصل على 7 درجات يبقي المتوسط 8 درجات الف شكر لمجهود حضراتكم مرفق ملف للتوضيح ترحيل بالتاريخ.xlsx
  13. الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته بالامس طرحت مشكلة ان في سجلات مكررة في برنامج عندي وتمت الاجابة من الاخوة الافاضل @ازهر عبد العزيز والاخ الكريم @kkhalifa1960 والحمد لله لكن من امس وانا بحاول اعالج الخطا انه ميتكررش فبحاول اعمل كود لو في خطا ينبهني ويقولي مكرر كام مرة ويتيح امكانية اني اوافق علي التكرار لانه احيانا هيكون وارد ارجو المساعدة للاستفادة خالص شكرى وتقديري Arciving222.rar
  14. الموقع الأول الموقع الثاني الموقع الثالث لتأثيرات النصوص ( عربي - English )
  15. نريد هذه فضلا لا امرا .. ربما تكون افضل من طريقتي طريقتي هي انشاء قرص شبكة على جميع الاجهزة يكون اسمه موحد مثلا : z
  16. وعليكم السلام ورحمة الله وبركاته ملف جميل وبارك الله فيك وجعله فى ميزان حسناتك
  17. Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46 Then Else KeyAscii = 0 MsgBox "يجب ادخال ارقام فقط", vbCritical End If End Sub جرب الكود التالى ربما هو المطلوب
  18. السلام عليكم استاذنا الفاضل abouelhassan الف الف شكر لتعب حضرتك و مجهودك ربنا يجعله فى ميزان حسناتك السلام عليكم استاذنا الفاضل حسونة حسين الف الف شكر لتعب حضرتك و مجهودك الكود يعمل بكفاءة و ينفذ المطلوب ربنا يحفظك و يعزك ويبارك فيك
  19. وعليكم السلام ورحمه الله وبركاته ما الذي لا يعمل اخي ما تم تعديله هو TextBox4 فقط مفروض تعدل باقي التيكست بنفس الطريقه
  20. السلام عليكم استاذ حسونه شكرا للاهتمام ولكن لا تعمل برده بعد تغير الكود
  21. استاذ في المرفق ادخل على العامل رقم 82 وانظر سداد المبلغ بقي يحذف الا سجل هذا العامل فقط نفهم فما خلل في الكود 20240319.mdb
  22. كما ذكر المهندس فؤاد @Foksh قمت بعمل فكرة سابقا واشتغلت عليها فترة وكانت ناجحة ولله الحمد .. لكن واجهت فيها بعض الإشكالات وطورتها لاحقا بعمل وسيط ملف VBS هو اللي يقوم بعملية حذف الإصدار القديم وتنزيل الإصدار الجديد ، بالإضافة جعلت البرنامج تلقائيا يتعرف على مكان واجهات البرنامج ومكان قاعدة الجداول .. 🙂 وإلى الآن أعمل بهذي الطريقة ومرتاح جدا معها وتشتغل معاي بدون أية مشاكل ولله الحمد 🙂 .. ولازلت أنوي إنزال موضوع متكامل إن شاء الله يشرح الآلية الجديدة لتحديث البرنامج لدى المستخدمين .. 🙂✌ رابط الآلية القديمة :
  1. أظهر المزيد
×
×
  • اضف...

Important Information