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

كل الانشطه

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

  1. الساعة الأخيرة
  2. العفو أخي وسام .. سرني مرورك .. وأهلاً وسهلاً بك معنا بأولى مشاركاتك .
  3. شكراً لك من القلب مهندسنا أبا المعتصم .. أمسكتني طرف الخيط بشكل محكم .. ولكن في تجربتك الجميلة والرائعة كانت النتيجة عند تجربة الإضافة والحفظ من داخل نموذج :- أي أنه حتى النموذج لم يستطع إضافة سجل 😥 . أيضاً لو كان لدي 25 جدول على سبيل المثال ، فهل سأضطر إلى كتابة كافة أسماء الجداول في مصفوفة الاستدعاء للحماية أو الحذف 😁 !!
  4. Today
  5. تفضل عمي فادي .. جرب 🙂 : TblMacroVBA.accdb لتطبيق الحماية أو إزالتها على جدول أو مجموعة جداول : ' Usage (from VBA Immediate Window or code): ' ApplyTableProtection "Tbl_Cust" ' single table ' ApplyTableProtection "Tbl_Cust", "Tbl_Orders" ' multiple tables ' ' RemoveTableProtection "Tbl_Cust" ' RemoveTableProtection "Tbl_Cust", "Tbl_Orders"
  6. بارك الله فيك استاذنا العزيز ومنك نستفيد مت خبراتك ونتعلم
  7. تابع عمل فورم اكسل لحساب انتهاء الخدمة بحث
  8. Yesterday
  9. شكراً لاستجابتك مهندس محمد .. انا أريد منع التعديل على الجداول نفسها من داخل الجداول نفسها . يعني لو فتحت أي جدول وحاولت اعمل عليه تعديل أو حذف سجل ، يمنع التعديل أو الحذف منه . كمثال ، جرب تعدل على أي قيمة داخل الجدول أو حذف السجل في الملف التالي الذي تمت إضافة الحماية عليه يدوياً Test.accdb
  10. قبل ما يتم اعطاء الافكار - هل حضرتك طالب الحماية علي مستوى النماذج ( التي تحتوى على هذه الجداول ال 25 ) و لا على مستوى الجداول نفسها ؟ سأفترض انها على مستوى النماذج التي تحتوى الجداول . مجرد فكره بسيطة 1-نعمل جدول و يتم وضع به اسماء الجداول ال 25 المراد حمايتها 2-نعمل دالة نختبر هل الجدول الحالي ( الذي هو مصدر السجلات للنموذج الحالي مثلا) من ضمن الجداول ال 25 ام لا اذا كان منهم نمنع التعديل و اذا كان ليس منهم نسمح بالتعديل
  11. للاسف جربت جميع الطرق ولم الفلح اظن العيب في الوندوز 10 عندي كان اول في وندوز 7 شغال عندي لذلك حاولت ولم افلح
  12. السلام عليكم ورحمة الله وبركاته .. في إحدى المواضيع التي تم طرحها في "الفعاليات والتحديات الشهرية" ، وتحديداً في التحدي الأول ، كان من أحد الحلول والأفكار المطروحة ؛ تطبيق ماكرو على مستوى الجدول لمنع التحديث والتعديل لأي قيمة داخل الجدول . لكن طبعاً كانت الفكرة قائمة على التنفيذ اليدوي من خلال إضافة ماكرو قبل التحديث للجدول من خصائص الجدول نفسه . الحاصل هنا أنني أريد تطبيق هذه الفكرة برمجياً ، وخصوصاً أن لدي ما يقارب الـ 25 جدول . والهدف هو منع الحقن الخارجي أو التلاعب بالجداول . وقد أرهقتني كثرة المحاولات ولم أصل إلى نتيجة حتمية برمجية صحيحة . حتى بمساعدة الذكاء الإصطناعي 😣 . وقد طرحت السؤال داخل مجموعتنا "مجتمع آكسيس جروب" في الواتس أب ، ولم ألقَ أي إجابة . أرجو المساعدة بتطبيق الفكرة برمجياً VBA بحيث أحدد اسم (الجدول / الجداول) التي أريد تطبيق حمايتها من التعديل لأي قيمة ، و الحذف لأي سجل . (كلاهما) بمعنى أوضح . أريد عند الدخول إلى جدول ومحاولة تعديل قيمة على أحد الحقول (وليس حقل محدد) لأي سجل أو محاولة حذف أي سجل ، أن يتم منعي بإظهار رسالة بأن "الجدول محمي من التعديل" ( للتعديل ) . أو "لا يمكنك حذف سجلات من هذا الجدول" ( للحذف ) . فهل هذا ممكن برمجياً ❓ أفيدوني أفادكم الله . وهذا ملف مرفق كمثال يحتوي جدول بحقول بسيطة وبه 3 سجلات عشوائية . TblMacroVBA.accdb
  13. عمل فورم اكسل لحساب انتهاء الخدمة اضافة
  14. الاسبوع الماضي
  15. المعادلة لا تغمل على اصدار 2010 تعمل على اصدار 2013 وما فوق يمكن استخدام كود لتلوين الخلايا التي بها معادلات الخطوات حدد العمود او الاعمدة - ثم اصغط على الزر تلوين خلايا المعادلات.xlsb
  16. بس هي ليه مش شغاله معايا على اوفيس 2010
  17. السلام عليكم ورحمه الله وبركاته ممكن من التنسيق الشرطي لو الخليه مثلا فيها معادله اضف لون والتنسق اللي =ISFORMULA(A1) وكذلك لامر لو مفيش معادله والخليه فيها قيمه عدديه برده اضف لون وتنسيق =AND(NOT(ISFORMULA(A1)), A1<>"")
  18. تجميع .xlsm السلام عليكم ورحمه الله وبركاته اتفضل لعله يكون المطلوب
  19. لو عندي شيت به عمود به بعد الخلايا بمعادلات واخري قيم محتاج اميز الخلايا الي فيها المعادلات واميز الخلايا التي تحتوي على قيم
  20. السلام عليكم اصدقائي واحبائي في اللة محترفي منتدي اكسيل اريد مساعدتكم في هذة الشيت عند الضغط علي الخلية ( الفرقة ) في الصفحة الرئيسية يتم دمج ( انتظام وانتساب ) في صفحة واحدة لكي ما يتم طابعة كل فرقة انتظام وانتساب في صفحة واحدة علي ان يكون صفحة الانتظام في الاعلي مرتبة البنات في الاول ثم الاولاد يليها مباشرا بعد ذلك صفحة الانتساب اسفل الانتظام مرتب بنات اولا ثم اولاد ملحوظة هناك اسماء سوف يتم اضافتها فيما بعد لكل فرقة فففففففففففففففففففففففف.xlsx
  21. شكراً لك هذا الإطراء أخي منتصر ، والحقيقة انك كنت الحافز بمتابعة الموضوع واستكمال هذه الإضافة البسيطة . ولكم النصيب الأكبر مما دعيتم أبا المعتصم .. فعلاً هناك الكثير من الأيقونات ، وقد قدرت تقريباً بـ 3500 ايقونة ، ولكن برأيك هل تصفح 3500 أو حتى 1000 أيقونة سيكون ممتعاً 😅 نعم صحيح ، حتى تتم المعاينة فيجب أن تكون القائمة قد تم إنشاؤها وإضافة محتوياتها .. كحال أن تقوم بتكبير حجم الخط ونوعه قبل أن تكتب فلن يظهر التنسيق والتأثير إلا بوجود نص ، وهنا الشيء ذاته 😊 .
  22. شكرا .. شكرا .. شكرا .. يوافي حق هذا الإبداع .. ما شاء الله زدت الحلاوة حلا ما شاء الله عليك 🌼 رزقك الله خير ما في الدنيا وأفضل ما في الآخرة .. وأحسن الله إليك ولكل من تحب .. 💖 يظهر من مشاركة الأستاذ @أحمد العيسى أن هناك العشرات من الأيقونات التي لم يتم إضافتها بعد 😅🖐️ وأيضا هناك ملاحظة بسيطة جدا .. وهي أنه بعد تعيين الأيقونات والضغط على زر المعاينة فإن التغيير لا يظهر مباشرة إلا بعد أن يتم حفظ القائمة .. حفظك الله 🙂
  23. سبق وقلت لك انت اذا نويت راح تخرج بأفكار يستعصي على أمثالنا أن نفكر بها 😂
  24. مع إحترامي لصاحب الفيديو ولكني أجد أن تخصيص أيقونة أكسس بأيقونة أخرى فهذا لن يحل المشكلة لو أردنا تخصيص الأيقونة لكل تطبيق جرب المرفق ولاحظ النتيجة (بعد إنشاء الإختصار يجب فتح التطبيق بإستخدام الإختصار) كل المطلوب هو إستيراد النموذج frmShortcut إلى اي تطبيق والنقر على الزر (إنشاء الإختصار) ويمكن حذف هذا النموذج بعد ذلك ملاحظة هذا الحل مخصص للعمل في ويندوز 10 فقط تحياتي تجربة.rar
  25. عثرت على الصور هنا فى المنتدى وهى للأخ جعفر . . . . . . . . . . . AccessIcons.rar
  26. فعلاً تذكرت .. وكنت سأقوم بالتعديل فى هذه النقطة بعدما تذكرت السطر العلوى " إزالة الأداة إلى خصائص أكسس ومن الـ Addin ) " المفترض بعد الإزالة أجد أن كلمة " إزالة " تغيرت إلى "إضافة " وافتراضياً "إضافة الأداة إلى خصائص أكسس وإلى الـ Addin "
  27. زر Create الأيقونات مفروزة امامك أخي أحمد ، والخيار الذي استخدمته ( اليدوي ) للذين يعرفون ما رقم الأيقونة التي يريدونها ، أو للتجربة 😅 ما فهمت !!!!! اي عبارة لا تتغير
  1. أظهر المزيد
×
×
  • اضف...

Important Information